Visualización de límites y extensiones del dibujo

AutoCAD ActiveX

 
Visualización de límites y extensiones del dibujo
 
 
 

Los métodos ZoomAll, ZoomExtents o ZoomPrevious permiten la presentación en pantalla de una vista en función de los contornos o de la extensión de los objetos del dibujo.

ZoomAll muestra el dibujo completo. Si los objetos se extienden más allá de los límites, ZoomAll muestra la extensión de los objetos. Si los objetos están dibujados dentro de los límites, ZoomAll muestra los límites.

ZoomExtens calcula el factor de ampliación tomando como referencia la extensión de la ventana gráfica actual, no de la vista actual. Por lo general, la ventana gráfica activa está completamente visible, por lo que el resultado es obvio y previsible. Por lo general, la ventana gráfica activa está completamente visible, por lo que el resultado es obvio y previsible. Sin embargo, cuando se utilizan los métodos Zoom en el espacio modelo mientras se trabaja en una ventana gráfica en el espacio papel, si se amplía sobrepasando los contornos de la ventana gráfica en el espacio papel, puede que no se vea parte del área ampliada.

ZoomExtents cambia la vista para ajustar las extensiones de entidad en el dibujo actual. En algunos casos (tanto para ZoomAll como para ZoomExtents), esto puede provocar la regeneración. La regeneración no tendrá lugar en capas inutilizadas o desactivadas. Si el dibujo no contiene objetos, ZoomExtents muestra los límites del dibujo.

En las vistas 3D, ZoomAll y ZoomExtents tienen el mismo resultado. Las líneas auxiliares infinitas (líneasx) y los rayos no influyen en ninguna de las opciones.

ZoomPrevious amplía la ventana gráfica hasta la extensión anterior.

Para obtener más información acerca del funcionamiento del zoom, véase “Ampliación de una vista (hacer zoom)” en el Manual del usuario.

Ampliación del dibujo activo a todo el contenido y a la extensión del dibujo

Sub Ch3_ZoomAll()
' ZoomAll
    MsgBox "Perform a ZoomAll", , "ZoomAll"
    ThisDrawing.Application.ZoomAll
      
' ZoomExtents
    MsgBox "Perform a ZoomExtents", , "ZoomExtents"
    ThisDrawing.Application.ZoomExtents
End Sub