LISP copia una pagina de impresión al resto de layout
Publicado: Lun May 25, 2020 1:04 pm
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
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)
)