删除隐藏文本
大家好，我收到带有隐藏文字的图纸，我不需要，但它在一个带有可见文字的图层上，我需要保留。。。
有没有办法只删除隐藏的文本？
我找到了2006年的格雷格·席尔瓦代码，打开了它——这个可以修改吗？
(Defun
C:Ao (/ Counter Eobj Obj Selobj Slength)
(Vl-Load-Com)
(Setq Selobj (Ssget "X"))
(Setq Slength (Sslength Selobj))
(Setq Counter 0)
(Repeat Slength
(Setq Obj (Ssname Selobj Counter))
(Setq Eobj (Vlax-Ename->Vla-Object Obj))
(Vla-Put-Visible Eobj -1)
(Setq Counter (+ Counter 1))
)
) 快速示例：
(defun c:text (/ a b i)
(if (setq a (ssget "_x" '((0 . "*text"))))
(repeat (setq i (sslength a))
(setq b (vlax-ename->vla-object (ssname a (setq i (1- i)))))
(if (eq (vla-get-visible b) :vlax-false)
(vla-delete b)
)
)
)
(princ)
) 太好了谢谢
页:
[1]