;Macro que permite desenhar EM CORTE umas escadas realizada pela aluna Claudia Barbadaes Rodrigues da Turma A
<br />
;Mestrado Integrado em Arquitetura - Faculdade de Arquitetura - FAUL
<br />
;Sistemas de Representacao Digital em Arquitetura - Professor Luis Romao
<br />
<br />
<br />
(defun c:staircase ()
<br />
<br />
<br />
;definicao das variaveis e perguntas correspondentes:
<br />
<br />
(setq e1 (getpoint "Qual o ponto de arranque das escadas?"))
<br />
(setq e2 (getpoint "Qual o ponto final das escadas?"))
<br />
(setq e3 (getreal "Quantos degraus tem a escada?"))
<br />
<br />
<br />
;definicao de outras duas variaveis: o cobertor e o espelho das escadas:
<br />
<br />
(setq p3 (list (car e1) (+ (cadr e1) (/ (- (cadr e2) (cadr e1)) e3))))
<br />
(setq p4 (list (+ (car e1) (/ (- (car e2) (car e1)) (- e3 1))) (cadr p3)))
<br />
(setq p5 (list (car e2) (- (cadr e2) (/ (- (cadr e2) (cadr e1)) e3))))
<br />
<br />
<br />
;definir os comandos do AutoCAD
<br />
<br />
(command "pline" e1 p3 p4 "")
<br />
(command "copy" e1 "" e1 "array" (fix (- e3 1)) p4 "")
<br />
(command "line" e2 p5 "")