Desenlace de referencias externas

AutoCAD ActiveX

 
Desenlace de referencias externas
 
 
 

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