How can we update all layouts with the same page setup quickly ?

[cyberflow]

Hi,

I've got a page layout called "A1-Project" and would like to apply it on all my tabs without going thru each one, one at a time.

Anyone know and effective workflow ?
Or even a hidden command.

[ronjonp · Accepted solution]

Give this a try. Go to your current tab that has the settings you want, then run the code.

(defun c:foo (/ a d)
  ;; RJP » 2021-07-19
  ;; Applies current paperspace tab settings to all layouts
  (if (= (getvar 'cvport) 1)
    (progn (setq d (vla-get-activedocument (vlax-get-acad-object)))
	   (setq a (vla-item (vla-get-layouts d) (getvar 'ctab)))
	   (vlax-for tab (vla-get-layouts d)
	     (if (> (vlax-get tab 'taborder) 0)
	       (progn (vl-catch-all-apply 'vla-copyfrom (list tab a))
		      (vlax-invoke tab 'refreshplotdeviceinfo)
	       )
	     )
	   )
    )
    (alert "GO TO A PAPERSPACE TAB!")
  )
  (princ)
)