PlotManager property example

Private Sub PlotManagerExample()

     Dim myDoc As IntelliCAD.Document

     Dim myPM As IntelliCAD.PlotManager

     Set myPM = ThisDocument.Application.PlotManager

     MsgBox "Plot Manager Preferences" & Chr(13) & "Version: " & myPM.PlotProperties.Version & Chr(13) & "Scale: " & myPM.PlotProperties.Scale

End Sub