如果在处理附着了外部参照的宿主图形时修改了外部参照图形操作系统,则可以使用 该方法更新该外部参照图形。Reload 重新加载时,所选外部参照图形将在宿主图形中更新。此外,如果已卸载外部参照,则可以随时选择重新加载该外部参照图形。 重新加载外部参照定义本示例附加一个外部引用,然后重新加载该外部引用。此示例使用示例目录中的3D House.dwg文件。如果没有此映像,或者它位于其他目录中,请为变量插入有效的路径和文件名。PathName Sub Ch10_ReloadingExternalReference() On Error GoTo ERRORHANDLER ' Define external reference to be inserted Dim xrefHome As AcadBlock Dim xrefInserted As AcadExternalReference Dim insertionPnt(0 To 2) As Double Dim PathName As String insertionPnt(0) = 1 insertionPnt(1) = 1 insertionPnt(2) = 0 PathName = "c:/Program Files/Autodesk/AutoCAD release/3D House.dwg" ' Add the external reference to the block Set xrefInserted = ThisDrawing.ModelSpace. _ AttachExternalReference(PathName, "XREF_IMAGE", _ insertionPnt, 1, 1, 1, 0, False) ZoomAll MsgBox "The external reference is attached." ' Reload the external reference definition ThisDrawing.Blocks.Item(xrefInserted.name).Reload MsgBox "The external reference is reloaded." Exit Sub ERRORHANDLER: MsgBox Err.Description End Sub |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-12 08:27
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.