[求助]：请教efan2000,如何用VBA修改一个XREF的路径？

烛光

请教efan2000,如何用VBA修改一个XREF的路径？

efan2000

直接修改ExternalReference对象的Path属性。

2. 
   
3.   [FONT=courier new]
   
4. Sub Test()
   
5.     Dim iPt(0 To 2) As Double '创建点坐标
   
6.     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0
   
7.     Dim XRefObj As AcadExternalReference '创建外部引用
   
8.     Set XRefObj = ThisDrawing.ModelSpace.AttachExternalReference("e:\zyzb.dwg", "zyzb", iPt, 1, 1, 1, 0, False)
   
9.     Debug.Print XRefObj.Path '显示外部引用路径
   
10.     XRefObj.Path = "e:\bak_c\zyzb.dwg"
    
11.     Debug.Print XRefObj.Path '显示外部引用路径
    
12.     Set XRefObj = Nothing
    
13. End Sub
    
14.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Test()<br />     Dim iPt(0 To 2) As Double '创建点坐标<br />     iPt(0) = 0: iPt(1) = 0: iPt(2) = 0<br />     Dim XRefObj As AcadExternalReference '创建外部引用<br />     Set XRefObj = ThisDrawing.ModelSpace.AttachExternalReference("e:\zyzb.dwg", "zyzb", iPt, 1, 1, 1, 0, False)<br />     Debug.Print XRefObj.Path '显示外部引用路径<br />     XRefObj.Path = "e:\bak_c\zyzb.dwg"<br />     Debug.Print XRefObj.Path '显示外部引用路径<br />     Set XRefObj = Nothing<br /> End Sub<br />   [/FONT]<br />

第一次显示：e:\zyzb.dwg
第二次显示：e:\bak_c\zyzb.dwg
当然，这两个文件必须是相同的。