; Ines Azevedo - Macro para criar escadas 2D
(defun c:escadas ()
	(setq pt1 (getpoint "\n Localizacao primeiro degrau? "))
	(setq espelho (getreal "\n Dimensao do espelho?  "))
	(setq pt2 (list (car pt1) (+ espelho (cadr pt1))))
	(setq cobertor (getreal "\n Dimensao do cobertor?  "))
	(setq pt3 (list (+	(car pt2) cobertor) (cadr pt2)))
	(command "pline" pt1 pt2 pt3 "")
	(setq ndegraus (getint "Numero de degraus? "))
	(repeat ndegraus (command "copy" "last" "" pt1 pt3 ""))
)