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

jay913

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

 (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你

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

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

alexmai

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

试试这个命令：BATTMAN

KO你

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

步行黔南

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

石井鱼

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

电赛加油

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

zhangcan0515

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

流_星

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