topic Re: creating new page setup from VBA in VBA Forum

creating new page setup from VBA

Anonymous — Wed, 01 Aug 2007 08:10:50 GMT

Hi,
How do I create a new page setup for plotting from VBA?

I know the plotter, paper size and all other such parameters; I had to show them in a page-setup to the user.
Regards
Shijith

Re: creating new page setup from VBA

Anonymous — Wed, 01 Aug 2007 12:08:55 GMT

Hi Shijith,

I believe it may be the "CopyFrom" method that you are looking for.

Once you have setup all of your desired plot parameters in a
"PlotConfiguration" you can copy them into the active layout with
"CopyFrom". Something similar to the sample below.

Hope it helps.

Gary

Dim sSetupName As String
Dim oPlotConfig As AcadPlotConfiguration

'Add new plot configuration
sSetupName = "My_New_Setup"
Set oPlotConfig = ThisDrawing.PlotConfigurations.Add(sSetupName)

'Setup desired plot parameters
oPlotConfig.StandardScale = ac1_2
oPlotConfig.PaperUnits = acInches
oPlotConfig.PlotType = acDisplay
oPlotConfig.PlotRotation = ac90degrees
'etc. etc.

'Copy the new plot config parameters into the active layout
ThisDrawing.ActiveLayout.CopyFrom ThisDrawing.PlotConfigurations(sSetupName)

Re: creating new page setup from VBA

Anonymous — Wed, 01 Aug 2007 12:40:08 GMT

Hi Gray,
Thanks a lot for your reply.
I just find a work arround, by creating a plotconfigration and calling it fom EndOpen event handler. Here is the code.

Private Sub plotcorrector()
Dim myconf As AcadPlotConfiguration

Set myconf = ThisDrawing.PlotConfigurations.Add("MyPPlot", False)
myconf.Name = "MyPlot"
myconf.RefreshPlotDeviceInfo
myconf.ConfigName = "\\BPC-SECONDARY\X-WC7245 - BW - PS"
Dim mx(0 To 1) As Double
Dim my(0 To 1) As Double
mx(0) = 0
mx(1) = 0
my(0) = 1
my(1) = 1
myconf.SetWindowToPlot mx, my
myconf.PlotType = acWindow
myconf.StyleSheet = "tilt.ctb"
myconf.PaperUnits = acMillimeters
'myconf.RefreshPlotDeviceInfo
myconf.CanonicalMediaName = "A3"

myconf.CenterPlot = True
myconf.UseStandardScale = True

myconf.StandardScale = acScaleToFit

myconf.PlotWithPlotStyles = False
myconf.RefreshPlotDeviceInfo

ThisDrawing.Application.Update

End Sub