(defun c:tt()
   (setq pa (getpoint "\n 指定左下角点:"))
  (setq ww (getdist "\n 输入楼梯宽度:"))
  (setq hh (getdist "\n 输入楼梯高度:"))
  (setq nn (getint "\n 输入楼梯阶数:"))
  (setq pb (polar pa 0 ww))
  (setq pc (polar pb (/ pi 2) hh))
  (command "pline" pa pb pc "")
  (setq w (/ ww nn))
  (setq h (/ hh nn))
  (setq pp pa)
  (command "pline")
  (repeat nn
     (setq p1 (polar pp (/ pi 2) h))
     (setq p2 (polar p1 0 w))
     (command pp p1 p2)
    (setq pp p2)
    )
  (command "")
;;;  (repeat nn
;;;     (setq p1 (polar pp (/ pi 2) h))
;;;     (setq p2 (polar p1 0 w))
;;;     (command "pline" pp p1 p2 "")
;;;    (setq pp p2)
;;;    )
  )