Topic: Model Space to Paper Space in Vlisp?

[CAB]

Looking in my tool box I can't find this routine.

As a pre plot I want to switch all layouts to paper space using visual lisp.
I do not want to activate each tab to save time. Just close all open/active viewports.
Anybody got this one?

[Lee Mac]

The following is the only way that I know how to do this 

Code - Auto/Visual Lisp: [Select]

1. (defun c:vpoff ( / ctb doc )
2.     (setq ctb (getvar 'ctab)
3.           doc (vla-get-activedocument (vlax-get-acad-object))
4.     )
5.     (foreach tab (layoutlist)
6.         (setvar 'ctab tab)
7.         (vla-put-mspace doc :vlax-false)
8.     )
9.     (setvar 'ctab ctb)
10.     (princ)
11. )
12. (vl-load-com) (princ)

[CAB]

Well that makes me feel good

I could not do any better!

Thanks Lee

[Lee Mac]

No worries Alan, anytime. 

[CAB]

Seems like ther should be a way but I can't find it.
This is an old code I used to zoom layouts.

Code: [Select]

(defun c:vpClose (/ lay_lst lay)
  (setq *acad*  (vlax-get-acad-object)
        *doc*   (vla-get-activedocument *acad*)
  )
   ;;  make list of names into strings  remove Model space
  (setq lay_lst (mapcar '(lambda (x) (strcase x)) (layoutlist)))
  (vlax-for lay (vla-get-layouts *doc*)  ; step through layouts
        (vla-put-activelayout *doc* lay) ; activate layout
        (and
           (= (vla-get-activespace *doc*) 0)     ; If not in paperspace
           (= (vla-get-mspace *doc*) :vlax-true) ; in mspace viewport
           (vla-put-mspace *doc* :vlax-false)    ; de-activate vp
        )
        ; (vla-zoomextents *acad*)
  )
)(vl-load-com) (princ)