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