LISP copia una pagina de impresión al resto de layout

dudas y consultas sobre CAD

Moderador: Moderadores

Avatar de Usuario
javi lapina
Auxiliar
Mensajes: 47
Registrado: Sab Abr 14, 2018 7:33 pm
Contactar:

LISP copia una pagina de impresión al resto de layout

Mensaje por javi lapina »

Tienes un montón de presentaciones/layout y cada una tiene una configuración de pagina (impresión) distinta...... no hay problema.

1º Cambia la configuración en una presentación/layout.
2º Ejecuta el lisp desde la presentación/layout que acabas de cambiar.
3º Una vez ejecutado, se habrán actualizado el resto de resentaciones/layout como la que acabas de cambiar.


Espero que os sirva de ayuda

Código: Seleccionar todo

;-------------------------- COPIA LA CONFIGURACION DE PAGINA DE IMPRESION ACTUAL, AL RESTO DE PRESENTACIONES -------------------
(princ "\nEjecuta la aplicacion con la oreden: copypg ")
(defun C:copypg (/)

 (setvar "cmdecho" 0)
 (setvar "tilemode" 0)
 (vl-load-com)


  (setq aDoc  (vla-get-activedocument (vlax-get-acad-object))
        Layts (vla-get-layouts aDoc)
        clyt  (vla-get-activelayout aDoc)
  )

  (foreach
     itm
        (vl-remove (vla-get-name clyt) (layoutlist))
        (vla-copyfrom (vla-item Layts itm) clyt)
  )

  (princ "\nCopida en todas las presentaciones, la configuracion de la pagina actual (IMPRESION) ")
  (princ)       

)
Adjuntos
copypg.zip
(513 Bytes) Descargado 300 veces
Master en AutoCad y sigo aprendiendo.....
Responder