Bind-as-Insert, using Visual LISP?

XDSoft

问题：
How to perform a bind-as-insert an Xref, using Visual LISP?

解答：
In AutoCAD , the BINDTYPE system variable was introduced.  By setting it
to 1, a bind-as-insert is performed:


(setvar "BINDTYPE" 1)
(command "_-xref" "_bind" "MYBLOCK")
(setvar "BINDTYPE" 0)


Using Visual Lisp, the following code will accomplish the same task in AutoCAD
.  See below:

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. )
    

(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 />

Note: In AutoCAD 2000/2000i, there is a problem with the Bind method.  The results
are opposite (i.e.  invoking the Bind method with :vlax-true does not bind the
xref as an insert).  In that case, the workaround is to change the argument
to :vlax-false.  This is not a problem in AutoCAD 2002.