(defun c:escada ()
(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 1)
    ( command "copy" "last" "" p1 p3)
    )
        )