PlotProperties property example

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