Autocad e Chat GPT - O que não é

Autocad e Chat GPT - O que não é

Assisti a mais um vídeo de Chat GPT e a suposta automatização do Autocad. Automatização é o que todos queremos...

Créditos a este vídeo:

https://www.youtube.com/watch?v=OH4QqStispc

No fundo o que está a fazer, uma vez mais, é pedir à IA que construa um autolisp, linguagem com 4 dezenas de anos, para realizar uma operação de desenho.

Um desenhador ou engenheiro bem embebido no assunto da automatização têm já as suas rotinas guardadas e o seu conhecimento para pôr em prática a automatização.

Não há um meio de dizer ao Chat GPT e Autocad, desenha-me agora as portas e janelas no desenho X.dwg ou sobre a linha tal calcula um perfil...

Como exemplo de um scrip posso fazer o prompt no BING - Copilot:

crie um script de autocad, autolisp para desenhar uma batata doce.

e o resultado é

(defun c:DesenharBatataDoce ()

  (command "circle" (getpoint "Digite o centro da batata-doce: ") 10)

  (command "circle" (getpoint "Digite o centro do olho esquerdo: ") 1)

  (command "circle" (getpoint "Digite o centro do olho direito: ") 1)

  (command "line" (getpoint "Digite o início da boca: ") (getpoint "Digite o final da boca: "))

)

Já se está a ver o que isto vai dar, uma brincadeira.

Agora algo mais sério:

crie um autolisp para autocad, em que se possa dentro de um quadrado de 2 metros de lado, com centro em 20,20,20 desenhar um círculo tangente inscrito no quadrado e tangente aos lados do quadrado.

O resultado é o seguinte:

(defun c:CirculoTangente ()

  (setq lado 2.0) ; Tamanho do lado do quadrado (2 metros)

  (setq centro '(20.0 20.0 20.0)) ; Coordenadas do centro do quadrado

  (setq raio (/ lado 2.0)) ; Raio do círculo inscrito (metade do lado do quadrado)

  ; Desenha o quadrado

  (command "rectangle" centro raio raio)

  ; Calcula as coordenadas dos pontos de tangência

  (setq ponto1 (polar centro 45.0 (* raio (sqrt 2.0))))

  (setq ponto2 (polar centro 135.0 (* raio (sqrt 2.0))))

  ; Desenha o círculo tangente inscrito

  (command "circle" centro raio)

  (command "circle" ponto1 raio)

  (command "circle" ponto2 raio)

)

Alguém quer testar ???