El intercambio de archivos entre distintos programas de CAD puede generar conflictos inesperados, especialmente cuando se trabaja con presentaciones que ya están configuradas. Aunque aspectos como el tamaño del papel y las plumillas son fáciles de estandarizar, ya que estas configuraciones pueden compartirse mediante archivos adjuntos, hay un detalle que suele ser un gran inconveniente: la configuración de la impresora.

Este problema se vuelve evidente cuando el archivo proviene de un programa diferente al que usamos. Por ejemplo, si trabajamos con ZWCAD y el archivo fue creado en progeCAD, nos encontraremos con que las presentaciones no tienen una impresora asignada. Esto ocurre porque el programa receptor no reconoce la configuración de impresora utilizada en el programa original.

En sentido inverso, cuando exportamos un archivo desde ZWCAD a progeCAD, no hay inconvenientes. ProgeCAD asigna automáticamente una impresora por defecto si la original no está disponible. Pero cuando importamos un archivo desde progeCAD a ZWCAD, la impresora queda sin definir en las presentaciones. Esto obliga al usuario a reasignar manualmente una impresora en cada una de las presentaciones, algo que puede convertirse en una tarea tediosa y que consume tiempo, especialmente cuando ya se ha invertido esfuerzo en configurar las presentaciones.

Una Solución Práctica: Automatización con LISP

Para resolver este problema, desarrollé un pequeño programa en LISP, pensado para usuarios de ZWCAD que necesitan automatizar esta tarea. Este script recorre automáticamente todas las presentaciones del archivo y asigna una impresora predefinida: ZWCAD PDF (High Quality Print).pc5.

¿Por qué esta impresora? En otro artículo ya expliqué por qué considero que esta opción es la mejor para trabajar en ZWCAD. Es confiable, ofrece alta calidad y es una configuración universal dentro del programa.

¿Cómo Funciona el Script?

El comando que creé tiene el atajo AIM, y su propósito es cambiar la impresora en todas las presentaciones del dibujo (excluyendo el espacio modelo). A continuación, te explico los pasos que realiza:

Carga del entorno COM: El programa verifica que las funciones COM de ZWCAD estén habilitadas para interactuar con las presentaciones.

Obtención de las presentaciones: Se accede al conjunto de layouts en el archivo, excluyendo el modelo, ya que este no requiere configuración de impresora.

Asignación de la impresora: Para cada presentación, se asigna automáticamente la impresora ZWCAD PDF (High Quality Print).pc5.

Confirmación visual: Por cada presentación modificada, el script imprime un mensaje confirmando que el cambio se realizó correctamente.

Finalización limpia: Al terminar, el programa muestra un mensaje indicando que todas las presentaciones han sido actualizadas.

Código LISP

A continuación, dejo el código LISP para que puedas descargarlo, adaptarlo y utilizarlo libremente:

(defun c:AIM () ;; Comando para llamar a esta función
  ;; Cambiar configuración de plotter en todas las presentaciones
  ;; Autor: JurassicARQ
  ;; Descripción: Cambia la configuración de plotter a "ZWCAD PDF(High Quality Print).pc5" en todas las presentaciones del dibujo.
  (if (not (vl-load-com))
    (princ "\nError: No se pudo cargar el entorno COM.")
    (progn
      ;; Obtener el documento activo
      (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
      ;; Obtener todas las presentaciones (layouts)
      (setq layouts (vla-get-Layouts doc))

      ;; Iterar sobre las presentaciones
      (vlax-for layout layouts
        ;; Omitir el espacio modelo ("Model")
        (if (/= (strcase (vla-get-Name layout)) "MODEL")
          (progn
            ;; Configurar el plotter a "ZWCAD PDF(High Quality Print)"
            (vla-put-ConfigName layout "ZWCAD PDF(High Quality Print).pc5")

            ;; Imprimir confirmación para cada presentación modificada
            (princ (strcat "\nPlotter actualizado en la presentación: " (vla-get-Name layout)))
          )
        )
      )
      ;; Mensaje de finalización
      (princ "\nSe ha completado la actualización de configuraciones de plotter.")
    )
  )
  ;; Salida limpia
  (princ)
)

Ventajas de Usar Este LISP

Ahorro de tiempo: Se eliminan las tareas repetitivas al configurar manualmente las impresoras en cada presentación.

Consistencia: Todas las presentaciones tendrán la misma configuración de impresora, evitando errores o discrepancias.

Fácil de usar: Solo necesitas cargar el archivo LISP en ZWCAD y ejecutar el comando AIM.

Flexibilidad: Puedes modificar el script para asignar otra impresora si lo deseas.

Este script es una herramienta útil para optimizar tu flujo de trabajo cuando intercambias archivos entre diferentes programas de CAD. Con él, puedes ahorrar tiempo y garantizar que las presentaciones estén listas para imprimir con una configuración uniforme.

Espero que este artículo y el código LISP sean de utilidad en tu día a día. Con esto, inauguramos una nueva serie de artículos dedicados a comandos LISP que te ayudarán a sacar el máximo provecho de tu programa CAD.

Espero que la información te haya sido útil. Cada semana iré ampliando la cantidad de artículos dedicados al CAD, incorporando ejemplos prácticos sobre los temas tratados. Aunque AutoCAD es el programa más utilizado, en este blog daremos prioridad a ProgeCAD y ZWCAD, sin que ello signifique que la mayoría de los comandos no sean compatibles con AutoCAD. En caso de incluir documentación adicional, esta será elaborada con el software para el que tengo licencia, por motivos legales. Sin embargo, notarás que las diferencias con otros programas son mínimas, y podrás abrir los archivos sin problemas en el software que utilices.