|
|
发表于 2008-6-29 12:19:49
|
显示全部楼层
来自： 中国浙江宁波
修改文字对象dxf组码的72（对齐类型）、11（对齐点），使用subst 和assoc 函数来完成；
8 ` Z1 j/ [( h5 o下面是单行文本的dxf组码：
/ w4 l7 x( V! H7 \3 S2 k((-1 . <图元名: 7ef01f98>) (0 . "TEXT") (330 . <图元名: 7ef01f28>) (5 . "73") $ o$ p& |7 T1 ^; Z0 G! W& l# _; i
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10
( f0 r* T2 p/ R9 K# A u107.423 85.5993 0.0) (40 . 5.0) (1 . "ffdfdd") (50 . 0.0) (41 . 1.0) (51 . 0.0) 3 N3 _8 Q/ ], g" ~0 K% H
(7 . "Standard") (71 . 0) (72 . 1) (11 121.59 88.0993 0.0) (210 0.0 0.0 1.0)
. @5 }. w; j4 e+ _" W% q(100 . "AcDbText") (73 . 2))+ J/ Y. z, D9 I2 Z$ v! \1 J
! S, \1 e: E% g1 M# ?
具体用下面的代码可以实现对文字对齐类型的修改
9 f% K$ u5 y @. u(setq m1 (entget (car (entsel)))
* `, U- V# J# K, U e: `+ l* b(setq m1 (subst (cons 72 2) (assoc 72 m1) m1))
% i& O8 t' d2 _# d5 _7 A8 Q(entmod m1). a5 [" L! n5 p; {: _. B! g
对齐方式由MC改为TC
* t$ U; H7 {8 o- |/ N+ l8 u! {& _; {, Y% U$ h/ C
[ 本帖最后由 sealive_leafage 于 2008-6-29 12:42 编辑 ] |
评分
-
查看全部评分
|
[复制链接]
发表于 2008-6-29 10:21:03
楼主