Activate Each layout one by one in all open drawing

[Anonymous]

Hello All,
Is it possible to activate each layout in each drawing one by one in all open drawings?

[DannyNL]

<deleted>

Oops....in all open drawings? That's not possible I imagine as the drawing needs to be active to change the active layout. And a LISP function will stop running as soon as you make another open drawing active.

[DannyNL]

Well, tested it and apparently you can.

See code below.

(defun c:Test (/ T_CurrentLayout)
   (setq T_CurrentLayout (getvar "CTAB"))
   (vlax-for T_Document (vla-get-Documents (vlax-get-acad-object))
      (vlax-for T_Layout (vla-get-Layouts T_Document)      
         (vla-put-ActiveLayout T_Document T_Layout)
         (princ (strcat "\nDrawing/Layout: " (vla-get-Name T_Document) " | " (vla-get-Name T_Layout)))
         ;;; Do something
      )
   )
   (setvar "CTAB" T_CurrentLayout)
   (princ)
)

[Anonymous]

Thanks DannyNL,
Its works fine in single drawing, it solve my problem at some extent.

[maratovich]

What for?

[DannyNL]

@Anonymous actually it activates all layouts in all open drawings one by one as requested.

However, the layouts that are activated in the other open drawings than your current active drawing, are done in the background and not visible to you as user.

With LISP it's not possible to activate another drawings and still keep running the rest of the code. The LISP will just stop working immediately after activating the other drawing.

If it is necessary for you to visually see that all layouts are activated one by one, this need to be done with scripting or probably .NET.

But I agree with @maratovich as for us it's currently not clear what your goal is and why you need to activate all the layouts one by one.