调整尺寸标注行距
(setq en (nentsel);;选择尺寸ed (last (nth 3 en))
et (car en)
etl (entget et))
(vla-put-textoverride (setq vs1 (vlax-ename->vla-object ed)) "<>\\Phuh45");修改标注文字,增加一行
(vla-put-VerticalTextPosition vs1 0);修改文字位置
(entmod (subst '(44 . 0.7) (assoc 44 etl) etl));;调整文字标注行距****,这个没有作用
(entupd et)(if ed (entupd ed));;更新尺寸
这个调整行距的不起作用
像这样调整行距就能行,怎么回事啊?
(setq en (nentsel);;选择尺寸
ed (last (nth 3 en))
et (car en)
etl (entget et))
(entmod (subst '(44 . 0.7) (assoc 44 etl) etl));;调整文字标注行距****,这个没有作用
(entupd et)(if ed (entupd ed));;更新尺寸
在尺寸的组码中未见组码44。是CAD版本问题? CAD2004也没见44啊。。。。 尺寸没玩过。 不清楚啊 探索者tssd里有个尺寸排版功能,可以调整尺寸标注行距 CAD自带这样的功能 zhangcan0515 发表于 2017-7-28 23:18
CAD自带这样的功能
CAD有这样的? 是啊,CAD自身命令你都没搞明白 就是标注工具条上的
页:
[1]