|
|
发表于 2008-6-29 12:19:49
|
显示全部楼层
来自： 中国浙江宁波
修改文字对象dxf组码的72（对齐类型）、11（对齐点），使用subst 和assoc 函数来完成；
: T/ R8 Q9 X8 w下面是单行文本的dxf组码：
6 B' x! b+ _! D+ ?, p& [((-1 . <图元名: 7ef01f98>) (0 . "TEXT") (330 . <图元名: 7ef01f28>) (5 . "73") 9 M& }& B! P) k- ]" X |" ^
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10 / }# B3 {/ o J5 D: O
107.423 85.5993 0.0) (40 . 5.0) (1 . "ffdfdd") (50 . 0.0) (41 . 1.0) (51 . 0.0)
" n: \1 {4 A- z(7 . "Standard") (71 . 0) (72 . 1) (11 121.59 88.0993 0.0) (210 0.0 0.0 1.0) # T; X6 R& E1 K/ A
(100 . "AcDbText") (73 . 2))
1 V, t# w6 }' }# l9 q* I4 d1 b, ]* z4 t6 ?: q W& \6 D, @+ q
具体用下面的代码可以实现对文字对齐类型的修改4 d1 r; M) R9 l5 u+ A$ q0 U) S
(setq m1 (entget (car (entsel)))
# E Z$ J" ]* B9 t1 s) V. a- P" h(setq m1 (subst (cons 72 2) (assoc 72 m1) m1))# E/ ]6 I) t: M
(entmod m1)6 q: f+ J3 ^/ w, n C5 E0 t5 e# K
对齐方式由MC改为TC
3 z1 y& p- \- M, Z; }9 r
% Z* O) K8 d- i9 p" z3 X[ 本帖最后由 sealive_leafage 于 2008-6-29 12:42 编辑 ] |
评分
-
查看全部评分
|
[复制链接]
发表于 2008-6-29 10:21:03
楼主