Recarga de referencias externas

AutoCAD ActiveX

 
Recarga de referencias externas
 
 
 

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