社区 › CAD › 从多段线gl清除图形

samifox 发表于 2022-7-6 23:17:03

从多段线gl清除图形

你好
我想编写一个脚本，选择全局宽度非零的所有多段线并清除它们。
 
我该怎么办？
 
谢谢
S

BIGAL 发表于 2022-7-7 00:02:58

很简单（vla把constantwidth obj放在0.0），我将让你来做ssget位。

rkmcswain 发表于 2022-7-7 00:42:28

也许这会有帮助？
 

(defun c:foo ( / sset ent obj i)
(setq sset (ssget "_X" '((0 . "*POLYLINE"))) i 0)
(repeat (sslength sset)
    (setq ent (ssname sset i))
    (setq obj (vlax-ename->vla-object ent))
    (vla-put-constantwidth obj 0.0)
    (setq i (1+ i))
)
(princ)
)

查看完整版本: 从多段线gl清除图形