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