怎样采用编程手段修改文字的对齐方式?

maoyangmy

怎样采用编程手段修改文字的对齐方式?
% I. b/ R. R  V3 @7 r/ f; r- D在CAD对象的DXF组码中, 单行文字的坐标值是根据文字的插入点、字高和字宽、对齐方式计算出来的，但如何用编程手段修改文字的对齐方式，而不改变插入点的坐标？？？采用LISP编程！

sealive_leafage

修改文字对象dxf组码的72（对齐类型）、11（对齐点），使用subst 和assoc 函数来完成；
; x2 I4 J% a: V8 s( S0 M& q9 x& w下面是单行文本的dxf组码：
# {: t: Q" K, e- I((-1 . <图元名: 7ef01f98>) (0 . "TEXT") (330 . <图元名: 7ef01f28>) (5 . "73")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10
107.423 85.5993 0.0) (40 . 5.0) (1 . "ffdfdd") (50 . 0.0) (41 . 1.0) (51 . 0.0)
+ q6 x; u5 e/ ]1 {  }8 h(7 . "Standard") (71 . 0) (72 . 1) (11 121.59 88.0993 0.0) (210 0.0 0.0 1.0)
(100 . "AcDbText") (73 . 2))
- E. A7 `( Q% _" d) V
8 q  ?! n, F. ?  Y$ v具体用下面的代码可以实现对文字对齐类型的修改
+ C+ j# ?6 l2 }! i. E- A" O/ J(setq m1 (entget (car (entsel)))
6 [# ]  m5 K" ~; I7 @0 B; K& X. O(setq m1 (subst (cons 72 2) (assoc 72 m1) m1))
5 w5 K$ T# g) P" @(entmod m1)
7 V2 \0 s: D6 ~6 q对齐方式由MC改为TC
5 o" n4 b) m: x. g
1 Q6 Q4 _7 U6 V: l8 Y: L[ 本帖最后由 sealive_leafage 于 2008-6-29 12:42 编辑 ]

maoyangmy

但请教二楼的，坐标值怎样计算？我想保持插入点不变，坐标值11与字高、字宽、对齐方式存在怎样的逻辑关系？？？

sealive_leafage

建议你在CAD中创建各种对齐方式的文字自己感觉一下，因对齐方式不同，与其它要素的关系有所不同，这个测试应该很容易对比出不同效果；