如何用lisp绘制梯形_AutoCADLISP绘制楼梯

(defun c:test()

(setvar "cmdecho" 0)

(setq nn (getint "\n阶数<5>："))

(if (null nn) (setq nn 5))

(setq pt1 (getpoint "\n第一点："))

(setq pt2 (getpoint "\n第二点："))

(setq ww (distance pt1 pt2))

(setq str_hh (strcat "\n高度:"))

(setq hh (getdist pt1 str_hh))

(if (null hh) (setq hh ww))

(setq ang (angle pt1 pt2))

(setq ptbas pt2)

(command "pline" pt1 ptbas)

(repeat nn

(setq ptbas (polar ptbas (+ ang (/ pi 2)) (/ hh nn)))

(command ptbas)

(setq ptbas (polar ptbas (+ ang pi) (/ ww nn)))

(command ptbas)

)

(command "c")

(prin1)

)