This used to work. I added an additional pagesetup to my file "plottest.dwg", and now this doesn't work. I can't figure out why.
Code:
(defun C:PSU (/ O_cmdecho)
(setq O_cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq expert (getvar "EXPERT")) (setvar "EXPERT" 2)
; delete all existing page setups
(vl-load-com)
(vlax-for ps
(vla-get-plotconfigurations
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vla-delete ps)
)
; import all pagesetups from plottest
(command "._-PSETUPIN" "plottest.dwg" "*")
(setvar "cmdecho" )_cmdecho
(setvar "expert" expert)
(princ)
)