Definición de una ventana de zoom

previous page next page

Utilización de zoom

Atribución de escala a una vista

Manual del desarrollador de ActiveX y VBA > Control del entorno de AutoCAD > Control de las ventanas del dibujo > Utilización de zoom >

Definición de una ventana de zoom

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

previous page start next page