AutoCAD es una herramienta esencial en el diseño asistido por computadora. Para quienes desean optimizar su flujo de trabajo, AutoLISP permite automatizar tareas repetitivas y mejorar la eficiencia. En este artículo, presentamos un script de AutoLISP que extrae valores de dimensiones en un dibujo de AutoCAD, desarrollado por el Ing. Román Rafael Ibarra.

¿Qué Hace Este Código?

Este script permite seleccionar múltiples dimensiones en AutoCAD y muestra sus valores en la consola de comandos. Esta funcionalidad es ideal para quienes necesitan trabajar con estos valores de manera rápida. Además, al cargar el script, se abre automáticamente el sitio web del autor para más recursos: www.selatcon.com.

Código AutoLISP para Extraer Dimensiones

(defun c:get-dim ()
  ; Código creado por Ing. Román Rafael Ibarra
  ; Sitio web: www.selatcon.com

  (setq msg "") ; Inicializa el mensaje vacío para almacenar los valores

  ; Bucle que permite seleccionar dimensiones múltiples
  (while (setq ent (car (entsel "\nSeleccione una dimensión: "))) ; Selecciona una dimensión en AutoCAD
    (setq dim-data (entget ent)) ; Obtiene la lista de datos de la dimensión seleccionada

    ; Obtiene el valor numérico de la dimensión
    (setq dim-value (cdr (assoc 42 dim-data))) ; El código 42 corresponde al valor de la dimensión en AutoCAD

    ; Acumula el valor en la variable 'msg' para mostrarlo luego
    (setq msg (strcat msg (rtos dim-value 2 2) "\n"))
  )

  ; Verifica si se seleccionaron dimensiones y muestra los valores
  (if (not (equal msg ""))
    (princ (strcat "\nValores de las dimensiones:\n" msg))
    (princ "\nNo se seleccionaron dimensiones.")
  )

  ; Abre automáticamente el sitio web del autor en Google Chrome
  (startapp "C:\\Program Files\\Google\\Chrome\\Application\\chrome.exe" "http://www.selatcon.com")

  (princ) ; Finaliza la función sin devolver valores residuales en la consola
)
        

Explicación Detallada del Código

El script está compuesto de varias secciones claves para realizar esta extracción de valores de dimensión en AutoCAD:

• Definición de la función: La función c:get-dim permite ejecutar el script escribiendo get-dim en la línea de comandos de AutoCAD.
• Bucle de selección de entidades: Permite al usuario seleccionar múltiples dimensiones en el dibujo.
• Extracción del valor: Usa el código 42 para obtener el valor de cada dimensión.
• Acumulación de resultados: Almacena los valores seleccionados en la variable msg.
• Salida de resultados: Muestra los valores acumulados en la consola de AutoCAD.
• Abrir sitio web: Abre el sitio web del autor, www.selatcon.com, en Google Chrome al cargar el script.