从多段线gl清除图形

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

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

我该怎么办？

谢谢
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清除图形

发表回复

精选推荐