How to Activate next Layout from command line

[apsonwane]

Hi,

 

When you are in layout tab, is it possible to Activate next Layout (in multiple layout drawing) from command line instead of clicking on next layout tab.

 

Tnx,

[ReMark]

Wild guess here. Would it be the system variable CTAB?

[apsonwane]

Wild guess here. Would it be the system variable CTAB?

 

Thanks ReMark,

"CTAB" returns the name of current active tab. I would like to activate next layout tab without entering next layout name.

[ReMark]

Without entering the layout name? OK. I'll poke around. Maybe a LISP routine would work here?

[bonehead411]

Not command line input as such but Ctrl + Page Up / Down will cycle through layouts.

[Ashishs]

Not command line input as such but Ctrl + Page Up / Down will cycle through layouts.

 

Tnx bonehead411,

 

This was new for me & serves purpose.

However to make is more handy, is it possible to modify CUI or create a lsp routine so that when I input "NL" on command line to activate next layout.

[ronjonp]

Give this a whirl:

 

(defun c:nl () (setvar 'ctab (cadr (member (getvar 'ctab) (layoutlist)))))

[NBC]

Cool ron; is it possible to modify that so that it will move to the previous layout ?

[Ashishs]

Give this a whirl:

 

(defun c:nl () (setvar 'ctab (cadr (member (getvar 'ctab) (layoutlist)))))

 

Thanks "ron" from prompt answer.

This is what I was looking for.

Simple & Perfect.

 

 

 

Tnx all,

[apsonwane]

Dear Ron,

 

Works in layouts. But doesn't work when model space is active.

 

Command: NL

; error: AutoCAD variable setting rejected: CTAB nil

[ronjonp]

This one should work as advertised

 

(defun c:nl (/ lay next)
(vl-load-com)
 (vlax-map-collection
   (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
   '(lambda (x) (setq lay (cons x lay)))
 )
 (if (setq
   next (cadr
          (member
        (getvar 'ctab)
        (mapcar 'vla-get-name
            (vl-sort lay '(lambda (x y) (< (vla-get-taborder x) (vla-get-taborder y))))
        )
          )
        )
     )
   (setvar 'ctab next)
(setvar 'ctab "Model")
 )
 (princ)
)

[NBC]

not forgetting to include

(vl-load-com)

immediately after the line beginning defun.... and immediately before the line beginning (vla-get-layouts.....

[apsonwane]

Thanks ron,

 

This is flawless now.

 

I found similar program here for activating first, next, previous & last layouts.

I would like to share this with you-

 

http://www.cadtutor.net/forum/showthread.php?t=36727

 

Tnx,