使用VLISP BIND-AS-INSERT XREF

XDSoft

1. (defun c:BindInsert ( / appAcad docActive colBlocks objBlk)
   
2.    (vl-load-com) ;load ActiveX
   
3.    (setq appAcad (vlax-get-acad-object)
   
4.          docActive (vla-get-ActiveDocument appAcad)
   
5.    ) ;setq
   
6.    ;;get the blocks collection
   
7.    (setq colBlocks (vla-get-blocks docActive))
   
8.    (vlax-for objBlk colBlocks
   
9.       ;;Is the block an xref?
   
10.       (if (= (vlax-get-property objBlk 'IsXref) :vlax-true)
    
11.          ;;if True, then bind it as an insert
    
12.          (vlax-invoke-method objBlk "bind" :vlax-true)
    
13.       ) ;if
    
14.       (vlax-release-object objBlk)
    
15.    ) ;vlax-for
    
16.    ;;release objects from memory
    
17.    (vlax-release-object colBlocks)
    
18.    (vlax-release-object docActive)
    
19. )
    
20. 
    

(defun c:BindInsert ( / appAcad docActive colBlocks objBlk)<br />    (vl-load-com) ;load ActiveX<br />    (setq appAcad (vlax-get-acad-object)<br />          docActive (vla-get-ActiveDocument appAcad)<br />    ) ;setq<br />    ;;get the blocks collection<br />    (setq colBlocks (vla-get-blocks docActive))<br />    (vlax-for objBlk colBlocks<br />       ;;Is the block an xref?<br />       (if (= (vlax-get-property objBlk 'IsXref) :vlax-true)<br />          ;;if True, then bind it as an insert<br />          (vlax-invoke-method objBlk "bind" :vlax-true)<br />       ) ;if<br />       (vlax-release-object objBlk)<br />    ) ;vlax-for<br />    ;;release objects from memory<br />    (vlax-release-object colBlocks)<br />    (vlax-release-object docActive)<br /> )<br /> <br />

sh_h

谢谢老大分享！！！

xyz002

非常好，辛苦了