[编程交流] 删除隐藏文本

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

([color="blue"]defun [/color]c:text ([color="blue"]/[/color] a b i)
 ([color="blue"]if[/color] ([color="blue"]setq[/color] a ([color="blue"]ssget[/color] [color="magenta"]"_x" [/color]'(([color="seagreen"]0[/color] . [color="magenta"]"*text"[/color]))))
   ([color="blue"]repeat[/color] ([color="blue"]setq[/color] i ([color="blue"]sslength[/color] a))
     ([color="blue"]setq[/color] b ([color="blue"]vlax-ename->vla-object[/color] ([color="blue"]ssname[/color] a ([color="blue"]setq[/color] i ([color="blue"]1-[/color] i)))))
     ([color="blue"]if[/color] ([color="blue"]eq[/color] ([color="blue"]vla-get-visible[/color] b) [color="blue"]:vlax-false[/color])
([color="blue"]vla-delete[/color] b)
     )
   )
 )
 ([color="blue"]princ[/color])
)