[VBA程序]：如何获得XREF文件的路径

XDSoft

2. 
   
3. [FONT=courier new]
   
4. How to get the path of an inserted xref?  
   
5. ID    33923  
   
6. Applies to:    AutoCAD 2000
   
7. 
   
8. This document is part of    Block Reference   COM-ActiveX Interfaces   VBA   Xrefs     
   
9. 
   
10. 
    
11. Question
    
12. How can I get the path of an attached (inserted) external reference (xref) with
    
13. ActiveX?
    
14. Answer
    
15. Use the ObjectIdToObject to reference an AcadBlockReference to an
    
16. AcadExternalReference object. The external reference object has a path property
    
17. that will return the path of the Xref.
    
18. 
    
19. Here is a VBA example:
    
20. Public Sub getXrefPath()
    
21.   ' Declare two variables for a block reference and external reference
    
22.    Dim pt As ACAD_POINT
    
23.    Dim ob As AcadObject
    
24.    Dim xR As AcadExternalReference
    
25.             
    
26.    ' Select an Object in AutoCAD
    
27.    ThisDrawing.Utility.GetEntity ob, pt, "Select an XREF: "
    
28.    
    
29.    If (ob.ObjectName = "AcDbBlockReference") Then
    
30.    
    
31.         On Error GoTo TypeError
    
32.        
    
33.             ' Reference an AcDbBlockReference
    
34.             Set xR = ob
    
35.             ' Print the path in the immediate window
    
36.             MsgBox xR.Path
    
37.             Exit Sub
    
38.             
    
39. TypeError:
    
40.             MsgBox "This is not an XREF!"
    
41.             Exit Sub
    
42.             
    
43.         Resume Next
    
44.        
    
45.    Else
    
46.    
    
47.         MsgBox "This entity is of type: " + ob.ObjectName
    
48.        
    
49.    End If
    
50. End Sub[/FONT]

<br /> [FONT=courier new]<br /> How to get the path of an inserted xref?  <br /> ID    33923  <br /> Applies to:    AutoCAD 2000<br /> <br /> This document is part of    Block Reference   COM-ActiveX Interfaces   VBA   Xrefs     <br /> <br /> <br /> Question <br /> How can I get the path of an attached (inserted) external reference (xref) with<br /> ActiveX?<br /> Answer <br /> Use the ObjectIdToObject to reference an AcadBlockReference to an<br /> AcadExternalReference object. The external reference object has a path property<br /> that will return the path of the Xref. <br /> <br /> Here is a VBA example:<br /> Public Sub getXrefPath()<br />   ' Declare two variables for a block reference and external reference<br />    Dim pt As ACAD_POINT<br />    Dim ob As AcadObject<br />    Dim xR As AcadExternalReference<br />             <br />    ' Select an Object in AutoCAD<br />    ThisDrawing.Utility.GetEntity ob, pt, "Select an XREF: "<br />    <br />    If (ob.ObjectName = "AcDbBlockReference") Then<br />    <br />         On Error GoTo TypeError<br />         <br />             ' Reference an AcDbBlockReference<br />             Set xR = ob<br />             ' Print the path in the immediate window<br />             MsgBox xR.Path<br />             Exit Sub<br />             <br /> TypeError:<br />             MsgBox "This is not an XREF!"<br />             Exit Sub<br />             <br />         Resume Next<br />         <br />    Else<br />    <br />         MsgBox "This entity is of type: " + ob.ObjectName<br />         <br />    End If<br /> End Sub[/FONT]