页面设置

;;; Set a named page setup as current on current layout by avoiding command usage http://jtbworld.com/autocad-pagesetup-lsp
;;; (SetCurrentPageSetup  )
;;; (SetCurrentPageSetup (vla-get-activedocument (vlax-get-acad-object)) "Setup2")
(defun SetCurrentPageSetup (doc pcname / layout PlotConfig)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq layout (vla-get-activelayout doc))
  (setq PlotConfig (vl-catch-all-apply
                     'vla-item
                     (list
                       (vla-get-PlotConfigurations
                         doc
                       )
                       pcname
                     )
                   )
  )
  (if (not (vl-catch-all-error-p PlotConfig))
    (vla-copyfrom layout PlotConfig)
  )
)