Aula 06 | 29/03/2022

Exercício 3: Autolisp.

Nesta aula foi nos introduzido o autolisp e ensinada a possibilidade de criar comandos para autocad através de programação por notepad. 

O primeiro comando a ser programado foi o "1234":

(defun c:1234 ()
(setq raio 0.05)
(setq dtexto 0.04)
(setq n 1)
(while
(setq pt1 (getpoint "insira centro do numero"))
(command "circle" pt1 raio)
(command "text" "j" "m" pt1 dtexto 0 n "")
(setq n (+ n 1))
)
)

Após escrever o código, guardámo-lo em formato lsp e realizámos estes passos em autocad:

- DTM

- SETQ

- APPLOUD

Resultado do comando criado em aula: