Recarga de referencias externas

previous page next page

Desenlace de referencias externas

Utilización de referencias externas

Descarga de referencias externas

Manual del desarrollador de ActiveX y VBA > Técnicas avanzadas de dibujo y organización > Utilización de referencias externas >

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

previous page start next page