userzhl 发表于 2009-4-27 11:54:00

[求助]请教高手,如何修改块内线条比例?

[求助]请教高手,如何修改块内线条比例?

caoyin 发表于 2009-4-27 14:37:00

;;修改块内对象的线型比例---090427
(defun c:tt (/ OBJ BLK BLKS)
(setq OBJ(entsel "\n选择快: ")
      OBJ(vlax-ename->vla-object (car OBJ))
      BLK(vla-get-name OBJ)
      BLKS (vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))
      LTS(getreal "\n指定线型比例因子: ")
)
(vlax-for X (vla-item BLKS BLK)
(vla-put-LinetypeScale X LTS)
)
(vla-Update OBJ)
)

userzhl 发表于 2009-4-27 15:16:00

<strong><font face="Verdana" color="#da2549">caoyin版主</font></strong>再请教一下,如何获得块内线条的长度呢?

caoyin 发表于 2009-4-27 17:03:00

<p>(defun c:ttt ()<br/>&nbsp; (setq e (nentsel "\n选择块中的直线: ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; e (vlax-ename-&gt;vla-object (car e))<br/>&nbsp; )<br/>&nbsp; (vla-get-Length e);;只对直线、多段线有效，其他曲线改用vlax-curve系列函数</p><p>)</p>

myqzq 发表于 2013-9-18 13:33:07

程序大强了！很好用！谢谢！
页: [1]
查看完整版本: [求助]请教高手,如何修改块内线条比例?