vla-AttachExternalReference

Free-Lancer

Attaches an external reference (xref) to the drawing.

RetVal = object.AttachExternalReference (PathName, Name, InsertionPoint, XScale, YScale, ZScale, Rotation, bOverlay [, Password])

Object

1. (if (and (setq fl (getfiled "\nSelct DWG to attach" "" "dwg" 8))
   
2.          (setq p (getpoint "\nInsert Point: "))
   
3.     )
   
4.   (vla-AttachExternalReference
   
5.     (fy:acspace)
   
6.     fl
   
7.     "XREF_IMAGE";_当前图中块名
   
8.     (vlax-3d-point p)
   
9.     1.
   
10.     1.0
    
11.     1.0
    
12.     0.
    
13.     :vlax-true;_重载
    
14.   )
    
15. )

(if (and (setq fl (getfiled "\nSelct DWG to attach" "" "dwg" 8))<br />          (setq p (getpoint "\nInsert Point: "))<br />     )<br />   (vla-AttachExternalReference<br />     (fy:acspace)<br />     fl<br />     "XREF_IMAGE";_当前图中块名<br />     (vlax-3d-point p)<br />     1.<br />     1.0<br />     1.0<br />     0.<br />     :vlax-true;_重载<br />   )<br /> )