Topic: How to get layout paper size in lisp?

[Brick_top]

Hi there, thread title says it.

Is there a way to do it?

thanks.

[Brick_top]

I'm sorry, I searched but didn't find.

Just as I created this thread I found this

http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Layout-paper-size/td-p/2006452

Code: [Select]

(defun layoutget(name)
(dictsearch(cdr(assoc -1(dictsearch(namedobjdict)"ACAD_LAYOUT")))name)
)

(defun pagesetget(name)
(dictsearch(cdr(assoc -1(dictsearch(namedobjdict)"ACAD_PLOTSETTINGS")))name)
)

(defun pagesetupname-get(layout)
(cdr(assoc 1(member'(100 . "AcDbPlotSettings")(layoutget layout))))
)

(defun pagesetupname-set(layout plotsettings)
(setq
plotsettings(dictsearch(cdr(assoc -1(dictsearch(namedobjdict)"ACAD_PLOTSETTINGS")))plotsettings)
layout
(dictsearch(cdr(assoc -1(dictsearch(namedobjdict)"ACAD_LAYOUT" )))layout)
)
(and layout plotsettings
(setq plotsettings(member'(100 . "AcDbPlotSettings")plotsettings)
header (reverse(cdr(member'(100 .
"AcDbPlotSettings")(reverse layout))))
footer (member'(100 . "AcDbLayout")layout)
layout (append header plotsettings footer)
)
(entmod layout)
)
)

(defun plotpapersize(elist)
(setq elist(member'(100 . "AcDbPlotSettings")elist))
(list(cdr(assoc 44 elist))(cdr(assoc 45 elist)))
)

;;; Evan's script may simply need this:
(plotpapersize(layoutget "Layout1"))
thanks anyway

[ronjonp]

Maybe?

Code: [Select]

(vla-get-canonicalmedianame
  (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) (getvar 'ctab))
)

[CAB]

Brick_top, Lots of info here at the Swamp. 

http://goo.gl/IY5Yc