Set Plot Configuration current... How??

Set Plot Configuration current... How??

Anonymous
Not applicable
365 Views
5 Replies
Message 1 of 6

Set Plot Configuration current... How??

Anonymous
Not applicable
Okay CAD Gurus!! Does anyone know how (if at all possible) I can set a plot configuration current and use those settings to create PLT file? I know how to do just about everything else I want, with the exception of setting a plot config current. Any help will be greatly appreciated! Thanks in advance!!! - Matt
0 Likes
366 Views
5 Replies
Replies (5)
Message 2 of 6

Anonymous
Not applicable
How about something like

 

Application.ActiveDocument.ActiveLayout.ConfigName
= _

    "C:\Program
Files\ACAD2000\Plotters\<YourName>.pc3"

 

Joe

 


style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
Okay
CAD Gurus!! Does anyone know how (if at all possible) I can set a plot
configuration current and use those settings to create PLT file? I know how to
do just about everything else I want, with the exception of setting a plot
config current. Any help will be greatly appreciated! Thanks in advance!!! -
Matt
0 Likes
Message 3 of 6

Anonymous
Not applicable
Maybe I wasn't totally clear or have my thoughts mixed up.... What I was hoping to do was, select an existing Page Setup Name (through VBA) and use the parameters it sets to create PLT files. The Page Setup Name sets the PC3 that I've already "told" it to use when I created the Page Setup. Hope this helps! TIA - Matt
0 Likes
Message 4 of 6

Anonymous
Not applicable
Check out my Acad Plot Class on the Website;

 

Info -> Application Design -> CAD -> Sample
Projects

 

There is a new release of the full class that wil be released
this week.  If the plot class if not what you are looking for, contact me
and I can modify it for you.

 

HTH

 


 

 


style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
Maybe
I wasn't totally clear or have my thoughts mixed up.... What I was hoping to
do was, select an existing Page Setup Name (through VBA) and use the
parameters it sets to create PLT files. The Page Setup Name sets the PC3 that
I've already "told" it to use when I created the Page Setup. Hope this helps!
TIA - Matt
0 Likes
Message 5 of 6

Anonymous
Not applicable
Veign,

Why would I use a third party class object when the desired
functionality is already there?

Big,

ThisDrawing.Layouts("Layout1").CopyFrom
ThisDrawing.PlotConfigurations("My Page Setup")

You must apply the page setup to the layout before you can create a plot
file. Then PlotToFile. You could also use CopyFrom to create a
temporary PlotConfiguration that contains the layouts' current settings,
then copy them back to the layout after the plot file is created.

HTH,
Danny Polkinhorn
Perkins & Will
Atlanta

BigCountry wrote:

> Maybe I wasn't totally clear or have my thoughts mixed up.... What I was
> hoping to do was, select an existing Page Setup Name (through VBA) and
> use the parameters it sets to create PLT files. The Page Setup Name sets
> the PC3 that I've already "told" it to use when I created the Page
> Setup. Hope this helps! TIA - Matt
0 Likes
Message 6 of 6

Anonymous
Not applicable
Unfortunately, CopyFrom is not a method of the Layout object, at least not in A2ki. Here's a method that I use. Sorry for the word wrap problem.

Public Sub SyncLayoutToPConfig(objLayout As AcadLayout, objPC As AcadPlotConfiguration)

'Syncronizes a Layout's properties to a PlotConfiguration's properties
objLayout.CenterPlot = objPC.CenterPlot
objLayout.PlotHidden = objPC.PlotHidden
objLayout.PlotOrigin = objPC.PlotOrigin
objLayout.PlotRotation = objPC.PlotRotation
objLayout.PlotType = objPC.PlotType
objLayout.PlotViewportBorders = objPC.PlotViewportBorders
objLayout.PlotViewportsFirst = objPC.PlotViewportsFirst
objLayout.PlotWithLineweights = objPC.PlotWithLineweights
objLayout.PlotWithPlotStyles = objPC.PlotWithPlotStyles
objLayout.ScaleLineweights = objPC.ScaleLineweights
objLayout.ShowPlotStyles = objPC.ShowPlotStyles
objLayout.StandardScale = objPC.StandardScale
objLayout.StyleSheet = objPC.StyleSheet
objLayout.UseStandardScale = objPC.UseStandardScale
objLayout.ViewToPlot = objPC.ViewToPlot

End Sub
0 Likes