autolisp routine to change pagesetup

I want to add automatically to my startup routines to change the pagesetup
feature to have a different default plotter.

EVERY time we go into someone elses drawing, or an old one of ours, we get
the plotter not found error, very annoying.

We have changed plotters, and would like to automatically change it when
going into the drawing, instead of cancelling the error, and changing it
manually.

Tried to do it via lisp, but cant get the pagesetup or -pagesetuo, etc to
work.

I can write it, just dnt know the parameters needed to change it? what are
the variables, for the default plotter device, or page setup?

Do I need to do it in Vlisp?

 

John,

Where I work, we use PC3 files and I have something like the following in
our startup:

;;
;; For each layout in the drawing,
;; If the PC3 file is not our standard PC3,
;; replace it with "None"
;;
(vlax-for layout
(vla-get-layouts
(vla-get-ActiveDocument (vlax-get-acad-object))
)
;; Replace string with your standard PC3 file name
(if (/= "YOUR.PC3" (strcase (vla-get-configname layout)))
(progn
(vlax-invoke-method layout 'refreshplotdeviceinfo)
(vla-put-configname layout "None")
)
)
)

Regards,
Steve Doman