[原创]批量修改块属性文字的宽度系数

jay913 · 发表于 2010-10-2 12:19

我们在添加文字过程中，经常会遇到这样一个问题，每次由于设置问题导致文字宽度不一样，针对上述问题编写了如下代码，希望能给大家带来方便。好的话请顶一下，谢谢

(defun C:TT (/ E I O SS WID X)

(princ

"\n批量修改块属性文字的宽度系数 "

)

(if (and (setq WID (getreal "\n输入宽度系数: "))

(setq SS (ssget '((0 . "INSERT") (66 . 1))))

)

(repeat (setq I (sslength SS))

(and (setq E (ssname SS (setq I (1- I))))

(setq O (vlax-ename->vla-object E))

(mapcar

'(lambda (X)

(vla-put-scalefactor X WID)

)

(vlax-safearray->list

(vlax-variant-value (vla-getattributes O))

)

(princ)

)

KO你 · 发表于 2020-8-15 00:29

KO你发表于 2019-6-25 19:40
同名属性块有很多属性文字，改同名块的指定位置批量修改属性文字的宽度，能不能加上这功能，你这个程序是把 ...

老早就找过了，好像是老严的还是谁的处女作来的，很多修改都会出错或者变形，而且没有面板，操作太多步也不方便

alexmai · 发表于 2020-11-28 15:14

KO你发表于 2020-8-15 00:29
老早就找过了，好像是老严的还是谁的处女作来的，很多修改都会出错或者变形，而且没有面板，操作太多步也 ...

试试这个命令：BATTMAN

KO你 · 发表于 2019-6-25 19:40

同名属性块有很多属性文字，改同名块的指定位置批量修改属性文字的宽度，能不能加上这功能，你这个程序是把所有的都改了
加上《全部》《指定位置》

liminnet · 发表于 2010-10-2 13:26

提示: 作者被禁止或删除内容自动屏蔽

步行黔南 · 发表于 2013-10-18 00:14

若增加修改文字高度，图层和样式，对齐方式更加完美了

石井鱼 · 发表于 2013-10-18 13:52

对正样式是“调整”的不起作用[em0]

电赛加油 · 发表于 2020-8-22 00:37

多谢大神分享，学习一下！

zhangcan0515 · 发表于 2020-9-20 21:25

真是学习的好程序，自己在加上过滤。

流_星 · 发表于 2022-5-13 16:38

问一下，这个程序如何指定一个属性或者两个属性修改字宽，不需要都改字宽，有办法吗，

账号		自动登录	找回密码
密码			注册

[基础] [原创]批量修改块属性文字的宽度系数

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2010-10-2 13:26 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡