使用Vlisul Lis 插入绑带图块

Free-Lancer

Bind-as-Insert, using Visual LISP                                                        By Balaji Ramamoorthy
To perform a bind-as-insert of an Xref, using Visual LISP, here is a sample code.
By setting the BINDTYPE system variable 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.

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. You might also like:

(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 /> You might also like: