原地Ccopy属性块------------总结

自贡黄明儒

;;在晓东论坛上，我求助了原地Ccopy属性块,并对之进行了总结，现将总结放在这里，希望还有高手来完善

1. ;;自贡黄明儒 2013年6月14日
   
2. ;;(setq en (car (entsel "\n拾取属性块：")))
   
3. ;;1 command co法(by woman1314)
   
4. (command "_.copy" en "" "0,0" "@")
   
5. 
   
6. ;;2 entmake法(by ll_j)
   
7. (defun w2 (en / BOOL ENT NEN)
   
8.   (setq        nen en
   
9.         bool T
   
10.   )
    
11.   (while bool
    
12.     (entmake (setq ent (entget nen)))
    
13.     (if        (equal (cdr (assoc 0 ent)) "SEQEND")
    
14.       (setq bool nil)
    
15.       (setq nen (entnext nen))
    
16.     )
    
17.   )
    
18. )
    
19. 
    
20. ;;3 vlax法(by woman1314)
    
21. (vlax-invoke-method (vlax-ename->vla-object en) 'Copy)
    
22. 
    
23. ;;4 vla法(by free-Lancer)
    
24. (vla-copy (vlax-ename->vla-object en))
    
25. 
    
26. ;;5 vla-InsertBlock法(by Lispboy)
    
27. (defun w3 (en / IP MSPACE NAME ROT UTIL VLA-EN XSCALE YSCALE ZSCAL)
    
28.   (setq        mspace (vla-get-modelspace
    
29.                  (vla-get-activedocument (vlax-get-acad-object))
    
30.                )
    
31.   )
    
32.   (setq vla-en (vlax-ename->vla-object en))
    
33.   (setq        Name   (vla-get-Name vla-en)
    
34.         ip     (vla-get-InsertionPoint vla-en)
    
35.         xscale (vla-get-XScaleFactor vla-en)
    
36.         yscale (vla-get-YScaleFactor vla-en)
    
37.         zscale (vla-get-ZScaleFactor vla-en)
    
38.         rot    (vla-get-Rotation vla-en)
    
39.   )  
    
40.   (vla-InsertBlock mspace ip Name xscale yscale zscale rot)
    
41. )
    
42. 
    
43. ;;6 选择集法(by Gu_xl)
    
44. (defun w4 (ss)
    
45.   (command "_.select" ss "")
    
46.   (vlax-map-Collection
    
47.     (vla-get-ActiveSelectionSet
    
48.       (vla-get-ActiveDocument (vlax-get-acad-object))
    
49.     )
    
50.     'vla-copy
    
51.   )
    
52. )
    
53. 
    
54. ;;7 entmakex法
    
55. 未知

;;自贡黄明儒 2013年6月14日<br /> ;;(setq en (car (entsel "\n拾取属性块：")))<br /> ;;1 command co法(by woman1314)<br /> (command "_.copy" en "" "0,0" "@")<br /> <br /> ;;2 entmake法(by ll_j)<br /> (defun w2 (en / BOOL ENT NEN)<br />   (setq        nen en<br />         bool T<br />   )<br />   (while bool<br />     (entmake (setq ent (entget nen)))<br />     (if        (equal (cdr (assoc 0 ent)) "SEQEND")<br />       (setq bool nil)<br />       (setq nen (entnext nen))<br />     )<br />   )<br /> )<br /> <br /> ;;3 vlax法(by woman1314)<br /> (vlax-invoke-method (vlax-ename->vla-object en) 'Copy)<br /> <br /> ;;4 vla法(by free-Lancer)<br /> (vla-copy (vlax-ename->vla-object en))<br /> <br /> ;;5 vla-InsertBlock法(by Lispboy)<br /> (defun w3 (en / IP MSPACE NAME ROT UTIL VLA-EN XSCALE YSCALE ZSCAL)<br />   (setq        mspace (vla-get-modelspace<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />   )<br />   (setq vla-en (vlax-ename->vla-object en))<br />   (setq        Name   (vla-get-Name vla-en)<br />         ip     (vla-get-InsertionPoint vla-en)<br />         xscale (vla-get-XScaleFactor vla-en)<br />         yscale (vla-get-YScaleFactor vla-en)<br />         zscale (vla-get-ZScaleFactor vla-en)<br />         rot    (vla-get-Rotation vla-en)<br />   )  <br />   (vla-InsertBlock mspace ip Name xscale yscale zscale rot)<br /> )<br /> <br /> ;;6 选择集法(by Gu_xl)<br /> (defun w4 (ss)<br />   (command "_.select" ss "")<br />   (vlax-map-Collection<br />     (vla-get-ActiveSelectionSet<br />       (vla-get-ActiveDocument (vlax-get-acad-object))<br />     )<br />     'vla-copy<br />   )<br /> )<br /> <br /> ;;7 entmakex法<br /> 未知

hnfsf

总结得很好，多个解决问题的办法。

langjs

有时候可能用得上，马克先

qyming

好，。。。。。。。。。。