Xref 操作的几个函数

st788796

关于 Xref 操作的几个函数
判断 Blockdef 是否为 xref

1. ;; :vlax-true 是
   
2. ;; :vlax-false 否
   
3. (vla-get-isxref blockdefname)

;; :vlax-true 是<br /> ;; :vlax-false 否<br /> (vla-get-isxref blockdefname)

判断 BlockRef 是否为 Xref

1. ;; T 是， Nil 否
   
2. (vlax-property-available-p Blockref 'Path)

;; T 是， Nil 否<br /> (vlax-property-available-p Blockref 'Path)

插入 Xref

1. ;;AttachExternalReference (PathName, Name, InsertionPoint, XScale, YScale, ZScale, Rotation, bOverlay [, Password])
   
2. ;;PathName 文件名 Name Xref_dwg Xref_image
   
3. (vla-AttachExternalReference
   
4.   (vla-get-modelspace
   
5.     (vla-get-activedocument (vlax-get-acad-object))
   
6.   )
   
7.   filename
   
8.   "XREF_DWG"
   
9.   (vlax-3d-point (getpoint))
   
10.   1.
    
11.   1.
    
12.   1.
    
13.   0.
    
14.   :vlax-false
    
15. )

;;AttachExternalReference (PathName, Name, InsertionPoint, XScale, YScale, ZScale, Rotation, bOverlay [, Password]) <br /> ;;PathName 文件名 Name Xref_dwg Xref_image<br /> (vla-AttachExternalReference<br />   (vla-get-modelspace<br />     (vla-get-activedocument (vlax-get-acad-object))<br />   )<br />   filename<br />   "XREF_DWG"<br />   (vlax-3d-point (getpoint))<br />   1.<br />   1.<br />   1.<br />   0.<br />   :vlax-false<br /> )

其他几个操作

1. ;;卸载 重载 Xref
   
2. (setq blkname (vla-get-name blockref))
   
3. (setq
   
4.   blkdef (vla-item (vla-get-blocks
   
5.        (vla-get-activedocument (vlax-get-acad-object))
   
6.      )
   
7.      blkname
   
8.   )
   
9. )
   
10. (vla-unload blkdef)
    
11. (vla-reload blkdef)
    
12. (vla-bind blkdef :vlax-false)
    
13. ;;(vla-bind blkdef :vlax-true) 成为 block
    
14. ;;拆离
    
15. (vla-Detach blkdef)

;;卸载 重载 Xref<br /> (setq blkname (vla-get-name blockref))<br /> (setq<br />   blkdef (vla-item (vla-get-blocks<br />        (vla-get-activedocument (vlax-get-acad-object))<br />      )<br />      blkname<br />   )<br /> )<br /> (vla-unload blkdef)<br /> (vla-reload blkdef)<br /> (vla-bind blkdef :vlax-false)<br /> ;;(vla-bind blkdef :vlax-true) 成为 block<br /> ;;拆离<br /> (vla-Detach blkdef)