Out of my Depth - ObjectDBX and Page Setups

This might be best achieved in .NET but I will put it out there in any case.

Deleting superfluous page setups and importing or setting a named page setup across multiple drawings through ObjectDBX?

At present, I just use a basic lisp on startup using "._-PSETUPIN" from a named file.

Cheers,

This might be best achieved in .NET but I will put it out there in any case.

 

Deleting superfluous page setups and importing or setting a named page setup across multiple drawings through ObjectDBX?

 

At present, I just use a basic lisp on startup using "._-PSETUPIN" from a named file.

 

Cheers,

As I suspect you're already aware, one cannot call Commands via ObjectDBX.

However, as you might also already know, you can quickly iterate the PlotConfigurations Collection, to Delete() them:

(defun _DeletePlotConfigurations (doc)
 (vlax-for x (vla-get-plotconfigurations doc)
   (vl-catch-all-apply 'vla-delete (list x))
 )
)

You can copy the ACAD_PLOTSETTINGS Dictionary entries from one Document to another, in order to 'import' named Page Setups.

As for setting a given named Page Setup as active for one or more Layouts, that will require something like this:

 

Example

 

(foreach layoutname (layoutlist)
 ([color="red"]vla-SetActivePageSetup[/color] layoutname “[color="blue"]YourPageSetupName[/color]”)
)

 

Cheers

BlackBox,

Thank you for taking the time to respond, I will use the information provided to try and achieve what I want.

Also, your Right Click Rename App is awesome!

https://apps.exchange.autodesk.com/ACD/en/Detail/Index?id=appstore.exchange.autodesk.com%3arightclickrenameforautocad%3aen

Cheers.

Thank you for taking the time to respond, I will use the information provided to try and achieve what I want.

No worries; I'm interested to see what you come up with.

Also, your Right Click Rename App is awesome!

 

https://apps.exchange.autodesk.com/ACD/en/Detail/Index?id=appstore.exchange.autodesk.com%3arightclickrenameforautocad%3aen

That is incredibly kind of you to say; thank you.

Cheers