Print out the values of a PlotConfuration.

[Anonymous]

Hi

I'm need to print out the values of all the plotconfigurations properties
that is in a drawing.
Is there an easy way to do this?
Do properties have a numerical value to enable cycling through the
plotconfigurations?

Thanks in advance.

Dave F.

[Anonymous]

Are you talking about (i.e. the paper sizes for different printers) or
something else?

JR

"Dave F" wrote in message
news:9A3D8785028A393DB42C48C5399171F6@in.WebX.maYIadrTaRb...
> Hi
>
> I'm need to print out the values of all the plotconfigurations properties
> that is in a drawing.
> Is there an easy way to do this?
> Do properties have a numerical value to enable cycling through the
> plotconfigurations?
>
> Thanks in advance.
>
> Dave F.
>
>

[Anonymous]

Dave,
You have to know the names of the properties (such as Margins, CenterPlot,
etc) in order to access them. You can cut/paste from the help file if it
speeds things up.... But you *can* cycle through the PlotConfigurations
themselves. Here's a sample of just a couple of the properties.

Sub ListPlotConfigs()

Dim curPC As AcadPlotConfiguration
Dim width As Double, height As Double

' you can replace with .Layouts with .PlotConfigurations
For Each curPC In ThisDrawing.Layouts
MsgBox curPC.CanonicalMediaName, , _
curPC.Name & " -- Canon Media Name"

MsgBox IIf(curPC.CenterPlot, "Plot Centered", _
"Plot Not Centered"), , curPC.Name & " -- Center Plot?"

MsgBox curPC.ConfigName, , _
curPC.Name & " -- Config Name"

curPC.GetPaperSize width, height
MsgBox Format$(width) & " x " & Format$(height), _
, curPC.Name & " -- Paper Size"

Next 'curPC

End Sub