Aula 23 (4.12.2013)

Aula de apoio às macros individuais dos alunos.
Apoio à macro 

(defun c:escada ()
(setq pt1 (getpoint "\n qual o ponto de arranque da escada? "))
(setq espelho (getreal "\n qual a altura do espelho? "))
(setq nd (getint "\n quantos degraus tem a escada? "))
(setq pt2 (polar pt1 (dtr 90) espelho))
(setq pt3 (polar pt2 (dtr 0) cobertor))
(command "pline" pt2 "")
(repeat nd
(command "copy" "last" "" pt1 pt3))
)



(defun dtr ( deg ) (* pi (/ deg