apply page setups

We have an application that creates a 3d model and dozens of layouts in
AutoCAD 2000. When I click on each of the layouts I'm prompted to do a page
setup. How can I apply the same page setup to each layout without having to
click on each layout tab? I would prefer a VBA solution or pointers to an
example of how to do this.

thanks
LJB

 

It would be pretty easy to For Each the Layouts using the Layout.CopyFrom and specifying a PlotConfiguration as the arg. You may have to create the PC first, though.

--
----
Ed
----
"ljb" <.> wrote in message We have an application that creates a 3d model and dozens of layouts in
AutoCAD 2000. When I click on each of the layouts I'm prompted to do a page
setup. How can I apply the same page setup to each layout without having to
click on each layout tab? I would prefer a VBA solution or pointers to an
example of how to do this.

thanks
LJB

 

I found your ImportPageSetupsND which does what I need. I do have one problem with it however. It doesn't work for me on

If objLayout.ModelType = True Then
objLayout.CopyFrom ThisDrawing.PlotConfigurations.Item(strMSSetup)

I always get "Key not found". Otherwise it works fine for all the layout tabs.

thanks
LJB
It would be pretty easy to For Each the Layouts using the Layout.CopyFrom and specifying a PlotConfiguration as the arg. You may have to create the PC first, though.

--
----
Ed
----
"ljb" <.> wrote in message We have an application that creates a 3d model and dozens of layouts in
AutoCAD 2000. When I click on each of the layouts I'm prompted to do a page
setup. How can I apply the same page setup to each layout without having to
click on each layout tab? I would prefer a VBA solution or pointers to an
example of how to do this.

thanks
LJB

 

You havn't created a ms page setup in your template or strMSSetup is probably = "". I have allowed for that in a recent update.

--
----
Ed
----
"ljb" <.> wrote in message I found your ImportPageSetupsND which does what I need. I do have one problem with it however. It doesn't work for me on

If objLayout.ModelType = True Then
objLayout.CopyFrom ThisDrawing.PlotConfigurations.Item(strMSSetup)

I always get "Key not found". Otherwise it works fine for all the layout tabs.

thanks
LJB
It would be pretty easy to For Each the Layouts using the Layout.CopyFrom and specifying a PlotConfiguration as the arg. You may have to create the PC first, though.

--
----
Ed
----
"ljb" <.> wrote in message We have an application that creates a 3d model and dozens of layouts in
AutoCAD 2000. When I click on each of the layouts I'm prompted to do a page
setup. How can I apply the same page setup to each layout without having to
click on each layout tab? I would prefer a VBA solution or pointers to an
example of how to do this.

thanks
LJB