Private Sub PlotProperties_Example()
' This example obtains various plot properties.
MsgBox "The origin coordinates are: " & IntelliCAD.PlotManager.PlotProperties.OriginX & ", " & IntelliCAD.PlotManager.PlotProperties.OriginY
IntelliCAD.PlotManager.PlotProperties.OriginX = IntelliCAD.PlotManager.PlotProperties.OriginX + 1
MsgBox "The X origin is now: " & IntelliCAD.PlotManager.PlotProperties.OriginX
MsgBox "The OptimizeLevel property is: " & IntelliCAD.PlotManager.PlotProperties.OptimizeLevel
MsgBox "The number of pens is: " & IntelliCAD.PlotManager.PlotProperties.Pens.Count
MsgBox "The pen width is: " & IntelliCAD.PlotManager.PlotProperties.PenWidth
MsgBox "The Rotate property is: " & IntelliCAD.PlotManager.PlotProperties.Rotate
MsgBox "The scale is: " & IntelliCAD.PlotManager.PlotProperties.Scale
MsgBox "The units are: " & IntelliCAD.PlotManager.PlotProperties.Units
End Sub