Puede desenlazar definiciones de referencias externas para suprimir las referencias totalmente del dibujo. También puede borrar las referencias externas por separado. Al desenlazar una definición de referencia externa se eliminan todos los símbolos dependientes asociados a ella. Si se borran todas las copias de una referencia externa en el dibujo, AutoCAD elimina la definición de la referencia externa cuando se vuelve a abrir el dibujo.
Para desenlazar una referencia externa, utilice el método Detach. Las referencias externas anidadas no se pueden desenlazar.
Desenlace de una definición de referencia externa
Este ejemplo enlaza una referencia externa y después la desenlaza. 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_DetachingExternalReference()
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."
' Detach the external reference definition
Dim name As String
name = xrefInserted.name
ThisDrawing.Blocks.Item(name).Detach
MsgBox "The external reference is detached."
Exit Sub
ERRORHANDLER:
MsgBox Err.Description
End Sub