Utilización de zoom
Utilización de zoom
Atribución de escala a una vista
Se puede ampliar con suma rapidez un área especificando sus esquinas. Para ampliar un área especificando su contorno, utilice uno de los métodos ZoomWindow o ZoomPickWindow El primero permite definir mediante programación dos puntos que representan la ventana zoom. El método ZoomPickWindow requiere que el usuario designe dos puntos. Estos dos puntos de designación conforman la ventana de zoom.
Ampliación del dibujo activo al tamaño de una ventana definida por dos puntos
Sub Ch3_ZoomWindow()
' ZoomWindow
MsgBox "Perform a ZoomWindow with:" & vbCrLf & _
"1.3, 7.8, 0" & vbCrLf & _
"13.7, -2.6, 0", , "ZoomWindow"
Dim point1(0 To 2) As Double
Dim point2(0 To 2) As Double
point1(0) = 1.3: point1(1) = 7.8: point1(2) = 0
point2(0) = 13.7: point2(1) = -2.6: point2(2) = 0
ThisDrawing.Application.ZoomWindow point1, point2
' ZoomPickWindow
MsgBox "Perform a ZoomPickWindow", , "ZoomPickWindow"
ThisDrawing.Application.ZoomPickWindow
End Sub