CopyObjects将现有图块复制为新名称图块

st788796

2. 
   
3. (defun cpblk (oldname newname / doc blks blkdef lst nblk)
   
4.   (setq        doc    (vla-get-activedocument (vlax-get-acad-object))
   
5.         blks   (vla-get-blocks doc)
   
6.         blkdef (vla-item blks oldname)
   
7.   )
   
8.   (vlax-for obj        blkdef
   
9.     (setq lst (cons obj lst))
   
10.   )
    
11.   (setq nblk (vla-add blks (vlax-3d-point '(0 0 0)) newname))
    
12.   (vla-copyobjects
    
13.     doc
    
14.     (vlax-make-variant
    
15.       (vlax-safearray-fill
    
16.         (vlax-make-safearray
    
17.           vlax-vbobject
    
18.           (cons 0 (1- (length lst)))
    
19.         )
    
20.         lst
    
21.       )
    
22.     )
    
23.     nblk
    
24.   )
    
25.   t
    
26. )

<br /> (defun cpblk (oldname newname / doc blks blkdef lst nblk)<br />   (setq        doc    (vla-get-activedocument (vlax-get-acad-object))<br />         blks   (vla-get-blocks doc)<br />         blkdef (vla-item blks oldname)<br />   )<br />   (vlax-for obj        blkdef<br />     (setq lst (cons obj lst))<br />   )<br />   (setq nblk (vla-add blks (vlax-3d-point '(0 0 0)) newname))<br />   (vla-copyobjects<br />     doc<br />     (vlax-make-variant<br />       (vlax-safearray-fill<br />         (vlax-make-safearray<br />           vlax-vbobject<br />           (cons 0 (1- (length lst)))<br />         )<br />         lst<br />       )<br />     )<br />     nblk<br />   )<br />   t<br /> )

_$ (cpblk "1" "2")

cool_studio

感谢分享。。。。。。。

angel066499

怎么用，可以出点简单教程吗

被承包的东子

学习学习

dnbcgrass

谢谢分享！学习学习！

zero423

下载下载学习学习,