; get paper size on current tab
(defun papersize (TabNam / psn scale) ; <<<
(setq
psn (member '(100 . "AcDbPlotSettings")
(dictsearch
(cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_LAYOUT")))
TabNam ; <<<
)
)
)
...
...
(vlax-for olayout olayouts
(if (/= "Model" (setq layoutname (vla-get-name olayout)))
(bbox:writedata layoutname (papersize layoutname) file) ; <<< )
)
)
...
(bbox:writedata layoutname (papersize layoutname) file)
To:(bbox:writedata layoutname (papersize olayout) file)
(foreach dwg dwgs ; edited here (cdr dwgs)
To: (foreach dwg (cdr dwgs)