ZoomPickWindow method example

Private Sub ZoomPickWindow()

' This example creates a line and adds it to the drawing using the AddLine

' method. It then uses the ZoomPickWindow method to zoom in on a desired window.

     Dim myDoc As IntelliCAD.Document

     Dim myLine As IntelliCAD.Line

     Dim myStartPt As IntelliCAD.Point

     Dim myEndPt As IntelliCAD.Point

     Set myDoc = Application.ActiveDocument

     Set myLine = myDoc.ModelSpace.AddLine(Library.CreatePoint(4, 4), Library.CreatePoint(7, 1))

     myLine.Update

     Me.hide

     ThisDocument.ActiveViewport.ZoomPickWindow

End Sub