|
发表于 2008-6-29 12:19:49
|
显示全部楼层
来自: 中国浙江宁波
修改文字对象dxf组码的72(对齐类型)、11(对齐点),使用subst 和assoc 函数来完成;
2 `& P% |0 y+ w9 m下面是单行文本的dxf组码:7 V# Q4 F0 E3 k5 C3 l; w" ?* F
((-1 . <图元名: 7ef01f98>) (0 . "TEXT") (330 . <图元名: 7ef01f28>) (5 . "73")
7 r( m: H) o& M& b( |(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10 ) Q0 a+ u3 J, P3 u1 ]2 i$ G
107.423 85.5993 0.0) (40 . 5.0) (1 . "ffdfdd") (50 . 0.0) (41 . 1.0) (51 . 0.0) M, T& U2 b% y& e" ^
(7 . "Standard") (71 . 0) (72 . 1) (11 121.59 88.0993 0.0) (210 0.0 0.0 1.0) 2 r4 c% z& G9 S6 u1 f# g+ b9 R% U
(100 . "AcDbText") (73 . 2))
% A' q4 K' _9 f& x, v3 @1 P8 V$ s" r# s
具体用下面的代码可以实现对文字对齐类型的修改3 {$ w$ m, t3 q6 Q0 K1 g1 S1 _
(setq m1 (entget (car (entsel)))
L/ V1 e5 `# J) ~# U( [; h(setq m1 (subst (cons 72 2) (assoc 72 m1) m1))
- K5 C3 R; z0 B- P. N(entmod m1)/ D& o6 T3 m) D
对齐方式由MC改为TC2 E" }. j, X1 o+ I8 _
6 C- R6 t, M+ v t
[ 本帖最后由 sealive_leafage 于 2008-6-29 12:42 编辑 ] |
评分
-
查看全部评分
|