Define a Zoom Window

From AutoCAD ActiveX

previous page next page

Use Zoom

Scale a View

Control the AutoCAD Environment > Control the Drawing Windows > Use Zoom >

Define a Zoom Window

You can quickly zoom in on an area by specifying the corners that define it. To zoom in on an area by specifying its boundaries, use either the ZoomWindow or ZoomPickWindow method. The ZoomWindow method allows you to define two points representing the Zoom window programmatically. The ZoomPickWindow method requires the user to pick two points. These two picked points become the Zoom window.

Zoom the active drawing to a window defined by two points

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