Al enlazar una referencia externa, se asocia un dibujo (el archivo de referencia o la referencia externa) con el dibujo actual. Cuando un dibujo hace alusión a una referencia externa, AutoCAD sólo enlaza la definición de la RefX al dibujo, a diferencia de los bloques normales, en los que se guarda la definición y el contenido del bloque con el dibujo actual. AutoCAD lee el dibujo de referencia para determinar lo que debe mostrarse en el dibujo actual. Si el archivo de referencia no existe o está dañado, sus datos no se muestran en el dibujo actual. Cada vez que se abre un dibujo, AutoCAD carga todos los objetos gráficos y no gráficos (como capas, tipos de línea y estilos de texto) desde los archivos de referencia. Si VISRETAIN está activada, AutoCAD guarda toda la información de capa dependiente de la referencia externa que se haya actualizado en el dibujo actual.
Las referencias externas pueden enlazarse tantas veces como se desee y cada una en una posición, con una escala y un ángulo de rotación diferentes. También pueden controlarse las capas dependientes y las propiedades de tipo de línea definidas en la referencia externa.
Para enlazar una referencia externa, utilice el método AttachExternalReference. Este método requiere la ruta y el nombre de archivo del dibujo al que se va a hacer referencia, el nombre de la referencia externa que se va a utilizar en el dibujo actual, el punto de inserción, la escala y la información de rotación de la referencia externa. El método AttachExternalReference devuelve el objeto ExternalReference recién creado.
Para obtener más información sobre el enlace de referencias externas, véase “Enlace de referencias externas” en el Manual del usuario.
Enlace de una referencia externa a un dibujo
Este ejemplo muestra todos los bloques del dibujo actual antes y después de añadir una referencia externa. 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_AttachingExternalReference()
On Error GoTo ERRORHANDLER
Dim InsertPoint(0 To 2) As Double
Dim insertedBlock As AcadExternalReference
Dim tempBlock As AcadBlock
Dim msg As String, PathName As String
' Define external reference to be inserted
InsertPoint(0) = 1
InsertPoint(1) = 1
InsertPoint(2) = 0
PathName = "C:/Program Files/AutoCAD 2008/sample/3D House.dwg"
' Display current Block information for this drawing
GoSub ListBlocks
' Add the external reference to the drawing
Set insertedBlock = ThisDrawing.ModelSpace. _
AttachExternalReference(PathName, "XREF_IMAGE", _
InsertPoint, 1, 1, 1, 0, False)
ZoomAll
' Display new Block information for this drawing
GoSub ListBlocks
Exit Sub
ListBlocks:
msg = vbCrLf ' Reset message
For Each tempBlock In ThisDrawing.Blocks
msg = msg & tempBlock.Name & vbCrLf
Next
MsgBox "The current blocks in this drawing are: " & msg
Return
ERRORHANDLER:
MsgBox Err.Description
End Sub