Reload Page Setup

I recently got a new Xerox plotter and I re-done my plot configurations (new & modified some .pc3's). I have hundreds of as-built dwgs that still have the old Page Setup and I've been using the 2 lisp routines below to reload the lastest Page Setup to my Layouts.

I don't use multiple layouts & I currently use two paper sizes. Therefore I have a mixture of G-Size 42x30 & D-Size 28x22 drawings. I'm trying to automate a lisp that would load the right Page Setup to the right drawing size (G-Size & D-Size).

Is there a way to combine the 2 lisp and have it load to the correct drawing size?.... If I get this to work I'm going to put a prefix command in my plot button (Load Latest Psetup;^C^C plot...


;; Return value: None
(defun DelPageSetup (Name / Cfgs)
(setq
Cfgs
(vla-get-plotconfigurations
(vla-get-activedocument
(vlax-get-acad-object)
)
)
)


(cond
((vl-string-search "*" Name)
(vlax-for x Cfgs
(if (wcmatch (vla-get-name x) Name)
(vla-delete x)
)
)
)


(T
(vl-catch-all-apply
'(lambda () (vla-delete (vla-item Cfgs Name)))
)
)
)
(princ)
)
(defun cPsetup ()
(DelPageSetup "*")
(SETVAR "CMDECHO" 0)
(COMMAND "PSETUPIN"
"CONTROL TEMPLATES.DWT"
"*D-Size*,*%*"
)
(COMMAND "-Plot" "N" "" "D-Size 28x22"
"Xerox 8830 D-Size.pc3" "N" "Y" "N")
(SETVAR "CMDECHO" 1)
(princ)
)
(defun c:GPsetup ()
(DelPageSetup "*")
(SETVAR "CMDECHO" 0)
(COMMAND "PSETUPIN"
"CONTROL TEMPLATES.DWT"
"*G-Size*,*%*"
)
(COMMAND "-Plot" "N" "" "G-Size 42x30"
"Xerox 8830 G-Size.pc3" "N" "Y" "N")
(SETVAR "CMDECHO" 1)
(princ)
)