Page Setup to Current Script

[RPGIS]

Hi there,

 

I have been struggling for the past while on coming up with a solution for updating my layouts page setup for all the drawings in my inventory.

 

I know that you can publish drawings to a different page setup up, but that doesnt help for various reasons.

 

Does anyone know of a way to script:

 

(1) the import of a page setup "BORDER"

(2) set every layout tab in the drawing to current ("BORDER")

 

I think this can be done using lisp, but I am very new to this stuff, so any help would be helpful.

 

thank you

[rkent]

Hi there,

 

I have been struggling for the past while on coming up with a solution for updating my layouts page setup for all the drawings in my inventory.

 

I know that you can publish drawings to a different page setup up, but that doesnt help for various reasons.

 

Does anyone know of a way to script:

 

(1) the import of a page setup "BORDER"

(2) set every layout tab in the drawing to current ("BORDER")

 

I think this can be done using lisp, but I am very new to this stuff, so any help would be helpful.

 

thank you

 

 

Do you want to run a program after a drawing is open to import and set a pagesetup for each layout? Or, do you want to select multiple drawings and have those open with a script and import and set a pagesetup for each layout?

[RPGIS]

Do you want to run a program after a drawing is open to import and set a pagesetup for each layout? Or, do you want to select multiple drawings and have those open with a script and import and set a pagesetup for each layout?

 

 

I suppose either one. My intention was to use scriptpro to cylce a script through my drawing inventory.

 

What do you suggest?

[rkent]

With the lisp files and this script you can get there. Modify the paths with your own and also modify the name of the drawing or template that holds the border pagesetup.

 

 

 
TILEMODE
0
(LOAD "c:/ACAD/LLL/PLOTTING/PSETUP")
(LOAD "C:/ACAD/LLL/PLOTTING/DELETEPAGESETUPS")
DELETEALLPS
-PSETUPIN
C:/ACAD/BORDER.DWT
border
PSETUP
BORDER
all
QSAVE
CLOSE

Psetup.lsp

DeletePageSetups.lsp