Recarga de referencias externas
Utilización de referencias externas
Unión de referencias externas
Para descargar una referencia externa, utilice el método Unload. Cuando se descarga un archivo de referencia que no utiliza el dibujo actual, el rendimiento de AutoCAD aumenta, ya que no tiene que leer ni mostrar geometría innecesaria ni información de tablas de símbolos. La geometría de las referencias externas y de las anidadas, si las hay, no se muestra en el dibujo activo mientras no se vuelvan a cargar.
Descarga de una definición de referencia externa
Este ejemplo enlaza una referencia externa y después la descarga. 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_UnloadingExternalReference()
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
Set xrefInserted = ThisDrawing.ModelSpace. _
AttachExternalReference(PathName, "XREF_IMAGE", _
insertionPnt, 1, 1, 1, 0, False)
ZoomAll
MsgBox "The external reference is attached."
' Unload the external reference definition
ThisDrawing.Blocks.Item(xrefInserted.name).Unload
MsgBox "The external reference is unloaded."
Exit Sub
ERRORHANDLER:
MsgBox Err.Description
End Sub