Desarrollando Scripts y Lsp en CAD con Inteligencia Artificial

Optimiza tu trabajo en CAD: Cómo crear programas personalizados con ChatGPT y AutoLISP

Resumen

Los scripts en AutoLISP son una herramienta esencial para cualquier ingeniero que trabaje con AutoCAD. Al utilizar ChatGPT para obtener ayuda en la creación de scripts, los ingenieros pueden mejorar su eficiencia en el trabajo y lograr resultados precisos y de alta calidad en menos tiempo..

Introducción

Los ingenieros están constantemente buscando formas de mejorar la eficiencia en el trabajo y una de las herramientas más poderosas en su arsenal es la capacidad de crear programas personalizados en CAD. Estos programas pueden automatizar tareas repetitivas y mejorar la productividad en el trabajo. Sin embargo, a veces puede ser difícil saber por dónde empezar o cómo solucionar problemas de programación.

Aquí es donde entra en juego ChatGPT, una herramienta de inteligencia artificial que puede ayudar a los ingenieros a crear programas personalizados en CAD de manera más efectiva. Con ChatGPT, los ingenieros pueden obtener ayuda para escribir código, solucionar problemas de programación y generar ideas para la automatización de tareas en CAD.

En este artículo, exploraremos cómo los ingenieros pueden utilizar ChatGPT para mejorar su capacidad para crear programas personalizados en CAD. Veremos cómo obtener ayuda para escribir código, solucionar problemas de programación y aprender nuevas habilidades de programación. También discutiremos cómo ChatGPT puede ayudar a los ingenieros a automatizar tareas repetitivas en CAD y mejorar la eficiencia en el trabajo.

Dibujar una cuadrícula personalizada

El objetivo de este script es dibujar una cuadrícula personalizada en AutoCAD, que permita especificar el número de filas y columnas, la separación entre filas y columnas, y el punto de origen de la cuadrícula.

Para crear este script, sigue los siguientes pasos:

        (defun c:cuadricula (/ numfilas numcolumnas sepfilas sepcolumnas origx origy x y)
          (setq numfilas (getint "\nIngrese el número de filas: "))
          (setq numcolumnas (getint "\nIngrese el número de columnas: "))
          (setq sepfilas (getreal "\nIngrese la separación entre filas: "))
          (setq sepcolumnas (getreal "\nIngrese la separación entre columnas: "))
          (setq origx (getreal "\nIngrese la coordenada X del punto de origen: "))
          (setq origy (getreal "\nIngrese la coordenada Y del punto de origen: "))
          (setq x origx)
          (setq y origy)
          (repeat numfilas
            (repeat numcolumnas
              (command "._POINT" (list x y) "")
              (setq x (+ x sepcolumnas))
            )
            (setq y (+ y sepfilas))
            (setq x origx)
          )
          (princ)
        )
      

1. Crea un nuevo archivo de texto en un editor de texto como el Bloc de notas y guarda el archivo con la extensión ".lsp". Este archivo contendrá el script en AutoLISP.
2. Abre el archivo ".lsp" en el editor de texto y escribe el siguiente código:
3. Guarda el archivo ".lsp" y ciérralo.
4. Abre programa CAD y carga el script en AutoLISP con el comando "APPLOAD".
5. Ejecuta el script en AutoCAD con el comando "CUADRICULA".

Al ejecutar el script, se solicitarán los siguientes datos:

• El número de filas de la cuadrícula.
• El número de columnas de la cuadrícula.
• La separación entre filas de la cuadrícula.
• La separación entre columnas de la cuadrícula.
• La coordenada X del punto de origen de la cuadrícula.
• La coordenada Y del punto de origen de la cuadrícula.

Después de ingresar los datos, el script dibujará una cuadrícula personalizada en CAD. Cada intersección de fila y columna se dibujará como un punto. El script es fácil de usar y personalizar para diferentes situaciones de dibujo.

Dibujar Escalera

El objetivo de este script es dibujar una escalera en CAD a partir de las coordenadas de un punto de inicio, la altura y la longitud de cada escalón, el número de escalones y la dirección en la que se va a construir la escalera. Al ejecutar el comando "ESCAL" en CAD, se le solicitan al usuario las entradas necesarias y el programa dibuja la escalera en base a esos valores. Al finalizar la construcción, el programa restaura las configuraciones de las variables PICKBOX y OSMODE a sus valores anteriores y muestra una alerta para indicar que la escalera ha sido dibujada.

Para crear este script, sigue los siguientes pasos:

1. Crea un nuevo archivo de texto en un editor de texto como el Bloc de notas y guarda el archivo con la extensión ".lsp". Este archivo contendrá el script en AutoLISP.
2. Abre el archivo ".lsp" en el editor de texto y escribe el siguiente código:

(defun C:ESCAL ()
(setq pbx (getvar "pickbox"))
(setq osnp (getvar "osmode"))
(command "_setvar" "PICKBOX" 0)
(command "_setvar" "OSMODE" 0)
(setq P1 (getpoint "\nIngresa el punto de inicio de la escalera:"))
(setq DSY (getdist "\nIngresa la altura de cada escalón:"))
(setq DSX (getdist "\nIngresa la longitud horizontal de cada escalón:"))
(setq CAN (getint "\nIngresa el número de escalones:"))
(setq SEN (getint "\n¿Hacia dónde va la escalera? Izquierda[2] o derecha[1]:"))
(setq DS1 (- (/ DSY CAN) 0.03))
(setq DS2 0.05)
(setq DS3 0.03)
(setq DS4 (+ (/ DSX CAN) 0.05))
(while (> CAN 0)
(setq P2 (polar P1 (/ PI 2) DS1))
(command "_LINE" P1 P2 "")
(setq P1 P2)
(if (= SEN 1)
(setq P2 (polar P1 PI DS2))
)
(if (= SEN 2)
(setq P2 (polar P1 0 DS2))
)
(command "_LINE" P1 P2 "")
(setq P1 P2)
(setq P2 (polar P1 (/ PI 2) DS3))
(command "_LINE" P1 P2 "")
(setq P1 P2)
(if (= SEN 1)
(setq P2 (polar P1 0 DS4))
)
(if (= SEN 2)
(setq P2 (polar P1 PI DS4))
)
(command "_LINE" P1 P2 "")
(setq P1 P2)
(setq CAN (- CAN 1))
)
(command "_setvar" "PICKBOX" PBX)
(command "_setvar" "OSMODE" OSNP)
(alert "La escalera ha sido dibujada.Visita a genioestructural.xyz")
(princ)
)
      

3. Guarda el archivo ".lsp" y ciérralo.
4. Abre programa CAD y carga el script en AutoLISP con el comando "APPLOAD".
5. Ejecuta el script en AutoCAD con el comando "ESCAL".

Temas Claves

• Programando CAD
• Lips CaD
• Autolips

Conclusión

En conclusión, los scripts en AutoLISP son una herramienta poderosa para los ingenieros que trabajan con CAD. Al escribir scripts personalizados, los ingenieros pueden automatizar tareas repetitivas y mejorar la eficiencia en el trabajo. Además, los scripts en AutoLISP son fáciles de personalizar y adaptar para diferentes situaciones de dibujo. En este artículo, hemos explorado cómo los ingenieros pueden utilizar ChatGPT para obtener ayuda en la creación de scripts en AutoLISP. Hemos visto cómo crear un script para dibujar una cuadrícula personalizada y cómo importar coordenadas de un archivo CSV. También hemos hablado sobre la importancia de utilizar ChatGPT para aprender nuevas habilidades de programación y mejorar nuestra capacidad para crear programas personalizados en CAD.