;escada
(defun c:escada ()
(setq os (getvar 'osmode))
(setq p1 (getpoint "indique o ponto de inserção: "))
(setq espelho (getreal "qual o valor do espelho: "))
(setq cobertor (getreal "qual o valor do cobertor: "))
(setq ndegraus (getint "qual o número de degraus? "))
(setq p2 (list
			(car p1)		;valor x
			(+ (car (cdr p1) espelho)		;valor y
			)
		)
(setq p3 (list
			(+ (car p1)	cobertor)	;valor x
			(car (cdr p2))		;valor y
			)
		)

(command "pline" p1 p2 p3 "")
(repeat (- ndegraus )
(command "copy" "last" "" p1 p3)
)
(setvar 'osmode os)
)