;Macro para anotacao numerica, para a representacao de legendas de pormenores construtivos.

;Macro realizado pela aluna Beatriz Vitoria Dias Viais - 20211222, aluna do 2C.

;Sistemas de representacao digital em arquitetura lecionada pelo professor Luis Romao.
;Mestrado Integrado em Arquitetura - Faculdade de Arquitetura da Universidade de Lisboa.



;nome da funcao
(defun c:num ()

;define a dimensao do raio do circulo a desenhar
(setq raio 0.1)
;define a dimensao do texto a inserir
(setq dtexto 0.09)
(setq n 1)
(while
(setq pt1 (getpoint "insira centro do numero"))
;executa o circulo com o raio definido no comando setq raio 0.1
(command "circle" pt1 raio)
(command "text" "j" "m" pt1 dtexto 0  n "")
;expressao matematica que define a funcao n+1, somando a anotacao anterior mais um algarismo
(setq n (+ n 1))


)
)