; TestMe.lsp type pagesetup name to assign to layouts (case sensitive)
; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/apply-page-setup-to-multiple-layouts/m-p/4651451/highlight/true#M317264
(defun C:TestMe (/ page_setup config l)
  (vl-load-com)
  (or acDoc (setq acDoc (vla-get-activedocument (vlax-get-acad-object))))
  (princ "\n************************************\n")
  (if
    (and
      (> (vla-get-Count (setq page_setup (vla-get-plotconfigurations acDoc))) 0)
      (vlax-for a page_setup (princ (strcat "\n" (car (setq l (cons (vla-get-name a) l))))))
      (not (textscr))
      (member (setq config (getstring T "\nSelect page setup: ")) l)
      )
     (vlax-for layout (vla-get-layouts acDoc)
       (if (not (eq (strcase (vla-get-name layout)) "MODEL"))
         (vla-copyfrom layout (vla-item page_setup config))
         )
       )
    )
;;;  (vla-regen acDoc acAllViewPorts)
  (graphscr)
  (princ)
  )