如何获得块中子图元

Gu_xl

回复 muhanleek 的帖子

1. ;;;Wipeout 后置
   
2. (defun c:tt ( / blocks objblk obj )
   
3.   (setq blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
   
4.   (vlax-for objblk blocks
   
5. 
   
6.   (vlax-for obj objblk
   
7.     (if (/= "AcDbWipeout" (vla-get-ObjectName obj))
   
8. (progn
   
9.   (vla-copy obj)
   
10.   (vla-Delete obj)
    
11. )
    
12.     )
    
13.     )
    
14.     )
    
15. (command "_regen")
    
16. )
    
17. ;;;Wipeout 前置
    
18. (defun c:tt1 ( / blocks objblk obj )
    
19.   (setq blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
    
20.   (vlax-for objblk blocks
    
21. 
    
22.   (vlax-for obj objblk
    
23.     (if (= "AcDbWipeout" (vla-get-ObjectName obj))
    
24. (progn
    
25.   (vla-copy obj)
    
26.   (vla-Delete obj)
    
27. )
    
28.     )
    
29.     )
    
30.     )
    
31. (command "_regen")
    
32. )
    

;;;Wipeout 后置<br /> (defun c:tt ( / blocks objblk obj )<br />   (setq blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))<br />   (vlax-for objblk blocks<br /> <br />   (vlax-for obj objblk<br />     (if (/= "AcDbWipeout" (vla-get-ObjectName obj))<br /> (progn<br />   (vla-copy obj)<br />   (vla-Delete obj)<br /> )<br />     )<br />     )<br />     )<br /> (command "_regen")<br /> )<br /> ;;;Wipeout 前置<br /> (defun c:tt1 ( / blocks objblk obj )<br />   (setq blocks (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))<br />   (vlax-for objblk blocks<br /> <br />   (vlax-for obj objblk<br />     (if (= "AcDbWipeout" (vla-get-ObjectName obj))<br /> (progn<br />   (vla-copy obj)<br />   (vla-Delete obj)<br /> )<br />     )<br />     )<br />     )<br /> (command "_regen")<br /> )<br />

muhanleek

谢了，太好

longer1000

G版的确厉害