current pagesetup in status bar

[The Real JD]

Can someone offer a way to show the current pagesetup of a drawing at the statusbar? I searched and haven't found anything yet. TIA

 

[ECCAD]

Suggestion:
Get the current pagesetup (as a string called cur_pagesetup) then (setvar "MODEMACRO" cur_pagesetup)

Bob

 

[The Real JD]

Sorry not clear on something.
is "cur_pagesetup" a system variable? Or are you suggesting to take the system variable and setq it to a string called cur_pagesetup ?

 

[The Real JD]

Okay, so i searched thru the system variables.
How do i retrieve the name of the current pagesetup?

 

[ECCAD]

I think something like:

(setq adoc (vla-get-activedocument (vlax-get-acad-object)) cur_pagesetup (vla-get-activelayout adoc)
)

Would set cur_pagesetup (string variable you can rename).
Then:
(setvar "MODEMACRO" cur_pagesetup)

Above may not be the exact item (page setup) you want.

Bob

 

[Jason Piercey]

Not sure if there is a direct route to the current
pagesetup via ActiveX but this should do the
trick for a vanilla version.

Use like this:
(getCurrentPagesetup (getvar "ctab"))

; [layout] - string, layout name
; returns current pagesetup of [layout] or nil
(defun getCurrentPagesetup (layout / lst data)
(setq lst (dictsearch (namedobjdict) "acad_layout"))
(setq lst (dictsearch (cdar lst) layout))
(setq lst (member '(100 . "AcDbPlotSettings") lst))
(setq data (cadr lst))
(if (and (= 1 (car data)) (/= "" (cdr data)) )
(cdr (assoc 1 lst)) )
)

 

[The Real JD]

Thanks Jason!
I'll give that a try...

Not sure if there is a direct route to the current
pagesetup via ActiveX but this should do the
trick for a vanilla version.

Use like this:
(getCurrentPagesetup (getvar "ctab"))

; [layout] - string, layout name
; returns current pagesetup of [layout] or nil
(defun getCurrentPagesetup (layout / lst data)
(setq lst (dictsearch (namedobjdict) "acad_layout"))
(setq lst (dictsearch (cdar lst) layout))
(setq lst (member '(100 . "AcDbPlotSettings") lst))
(setq data (cadr lst))
(if (and (= 1 (car data)) (/= "" (cdr data)) )
(cdr (assoc 1 lst)) )
)

How do i retrieve the name of the current pagesetup?

 

[Jason Piercey]

You're welcome!