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

[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)       

)