Si algún usuario modifica un dibujo referido externamente mientras se trabaja en el dibujo al que está enlazada la referencia externa, puede actualizar el dibujo que contiene la referencia externa con el método Reload. Al volver a cargarlo, el dibujo de referencia externa seleccionado se actualiza en el dibujo receptor. Además, si ha descargado una referencia externa, puede cargar de nuevo el dibujo referido externamente en cualquier momento.
Recarga de una definición de referencia externa
Este ejemplo enlaza una referencia externa y después la vuelve a cargar. Se utiliza el archivo 3D House.dwg del directorio de ejemplos. Si no tiene esta imagen o si está situada en un directorio diferente, escriba una ruta y un nombre de archivo válidos para la variable 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:/AutoCAD 2008/sample/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