Descarga de referencias externas

previous page next page

Recarga de referencias externas

Utilización de referencias externas

Unión de referencias externas

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

Descarga de referencias externas

Para descargar una referencia externa, utilice el método Unload. Cuando se descarga un archivo de referencia que no utiliza el dibujo actual, el rendimiento de AutoCAD aumenta, ya que no tiene que leer ni mostrar geometría innecesaria ni información de tablas de símbolos. La geometría de las referencias externas y de las anidadas, si las hay, no se muestra en el dibujo activo mientras no se vuelvan a cargar.

Descarga de una definición de referencia externa

Este ejemplo enlaza una referencia externa y después la descarga. 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_UnloadingExternalReference()

    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."
                ' Unload the external reference definition
          ThisDrawing.Blocks.Item(xrefInserted.name).Unload
          MsgBox "The external reference is unloaded."
          Exit Sub
      ERRORHANDLER:
          MsgBox Err.Description
      End Sub

previous page start next page