;Macro que permite desenhar EM CORTE umas escadas simples
;Macro realizada pelo aluno Luís Norton do Reis, da turma B do 2 ano
;Mestrado Integrado em Arquitetura - Faculdade de Arquitetura - FAUL
;Sistemas de Representacao Digital em Arquitetura - Professor Luis Romão

(defun c:escadas ()

;definir as variáveis e as perguntas a fazer

(setq e1 (getpoint "Qual o ponto de arranque das escadas?"))
(setq e2 (getpoint "Qual o ponto final das escadas?"))
(setq e3 (getreal "Quantos degraus tem a escada?"))

;definir outras duas variáveis, o cobertor e o espelho das escadas, consequentes das escolhas do utilizador.

(setq p3 (list (car e1) (+ (cadr e1) (/ (- (cadr e2) (cadr e1)) e3))))
(setq p4 (list (+ (car e1) (/ (- (car e2) (car e1)) (- e3 1))) (cadr p3)))
(setq p5 (list (car e2) (- (cadr e2) (/ (- (cadr e2) (cadr e1)) e3))))

;definir os comandos do AutoCAD

(command "pline" e1 p3 p4 "")
(command "copy" e1 "" e1 "array" (fix (- e3 1)) p4 "")
(command "line" e2 p5 "")
)