GetWindow and SetWindow methods example

Private Sub Get/SetWindow_Example()

     ' This example gets and resets the window coordinates.

     Dim fx As Double

     Dim fy As Double

     Dim tx As Double

     Dim ty As Double

     IntelliCAD.PlotManager.GetWindow fx, fy, tx, ty

     MsgBox "Lower Left X = : " & fx & "Lower Left Y = : " & fy & Chr(13) & "Upper Right X = : " & tx & "Upper Right Y = : " & ty

     IntelliCAD.PlotManager.SetWindow fx + 1, fy + 1, tx + 1, ty + 1

     IntelliCAD.PlotManager.GetWindow fx, fy, tx, ty

     MsgBox "Lower Left X = : " & fx & "Lower Left Y = : " & fy & Chr(13) & "Upper Right X = : " & tx & "Upper Right Y = : " & ty

End Sub