清理proxy对象

Lisphk

1. (defun c:byebye        nil
   
2.   (vl-load-com)
   
3.   (vlax-for o (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
   
4.     (if        (= "AcDbZombieEntity" (vla-get-objectname o))
   
5.       (vla-delete o)
   
6.     )
   
7.     (vlax-for o2 o
   
8.       (if (= "AcDbZombieEntity" (vla-get-objectname o2))
   
9.         (vla-delete o2)
   
10.       )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    

(defun c:byebye        nil<br />   (vl-load-com)<br />   (vlax-for o (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))<br />     (if        (= "AcDbZombieEntity" (vla-get-objectname o))<br />       (vla-delete o)<br />     )<br />     (vlax-for o2 o<br />       (if (= "AcDbZombieEntity" (vla-get-objectname o2))<br />         (vla-delete o2)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />