AYUDA ACTIVAR LAYOUT CON VISUAL LISP
2 participantes
Página 1 de 1.
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.
(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.
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: AYUDA ACTIVAR LAYOUT CON VISUAL LISP
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
Un saludo
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))
-
- Código:
(vla-put-ActiveLayer doc layer1)
- Código:
(setvar 'clayer "layer1")
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Re: AYUDA ACTIVAR LAYOUT CON VISUAL LISP
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.
ok.
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: AYUDA ACTIVAR LAYOUT CON VISUAL LISP
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)
)
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)
)
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: AYUDA ACTIVAR LAYOUT CON VISUAL LISP
No ...
Te explicaste correctamente, pero se me fue la hoya, perdona
Lo buscaré
Un saludo
Te explicaste correctamente, pero se me fue la hoya, perdona
Lo buscaré
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Re: AYUDA ACTIVAR LAYOUT CON VISUAL LISP
Pues paar esto pasa lo mismo que para las capas, en lisp es mas sencillo
Un saludo
- Código:
(setvar 'clayout lNOMBRE)
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
![-](https://2img.net/i/empty.gif)
» AYUDA CON TEMA DE VIEWPORTS EN LAYOUT
» tabla con visual lisp
» Dividir poligono en partes iguales con visual lisp
» Ayuda con un lisp
» AYUDA LISP NO CORRE
» tabla con visual lisp
» Dividir poligono en partes iguales con visual lisp
» Ayuda con un lisp
» AYUDA LISP NO CORRE
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.