AYUDA ACTIVAR LAYOUT CON VISUAL LISP

Estoy tratando de hacer una pequeña rutina y lo que necesito es el comando
(command "layout" "s" "Layout1")
pero en visual Lisp, porque como yo lo veo, de la forma como lo presento es muy lento
Agradezco mucho su valiosa ayuda.

A ver, a menos de que estés trabajando todo en vlisp, no le veo la gracia.
Suponiendo que tienes capturado el documento activo en la variable doc y la capa en la variable layer1 (ojo la variable, no el nombre "layer1") cuando la creaste

Código:

(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
-
-
(setq layer1 (vla-get-ActiveLayer doc))
-

Sería

Código:

(vla-put-ActiveLayer doc layer1)

Lo que pasa es que es mucho mas fácil en lisp

Código:

(setvar 'clayer "layer1")

Un saludo

Muchas gracias NOLO, pero al parecer no me he explicado correctamente, lo que busco es pasar de MODEL a Layout (presentación) indicando el nombre de la misma pero busco esto en VLISP
ok.

Muchas gracias Nolo
y me respondo sería de esta manera

(defun ActivaLayout (lNOMBRE / doc layouts)
(setq doc (vla-get-activedocument (vlax-get-acad-object))
layouts (vla-get-layouts doc)
)
(vla-put-activelayout doc (vla-item layouts lNOMBRE))
(princ)
)

No ...
Te explicaste correctamente, pero se me fue la hoya, perdona
Lo buscaré

Un saludo

Pues paar esto pasa lo mismo que para las capas, en lisp es mas sencillo

Código:

(setvar 'clayout lNOMBRE)

Un saludo