[求助]画楼梯的小程序 求助优化

MRHDF

(defun c:st()
(setvar "cmdecho" 0)
(setq p1 (getpoint "\n  基点： "))
(setq h (getreal "\n 梯段总高 : "))
(setq w (getreal "\n 踏步宽度 :"))
(setq n (getint "\n踏步个数 :"))
(setq p2 (polar p1 (/ pi 2) (/ h n)))
(setq p3 (polar p2 0 w))
(setvar "cmdecho" 0)
(repeat n
(command "line" p1 p2 p3 "")
(setq p1 p3)
(setq p2 (polar p1 (/ pi 2) (/ h n)))
(setq p3 (polar p2 0 w))
(prin1)))
我希望h变量不要手输入，怎么能够在图面上拾取两个点，这两个点的高度差作为h.
谢谢啦

MRHDF

(defun c:st()
(setvar "cmdecho" 1)
  (setq p1 (getpoint "基点:"))
  (setq p2 (getpoint p1 "拾取平台高度:"))
(setq h (- (cadr p2) (cadr p1)) )
(setq w (getreal "\n 踏步宽度 :"))
(setq n (getint "\n踏步个数 :"))
(setq p2 (polar p1 (/ pi 2) (/ h n)))
(setq p3 (polar p2 0 w))
(setvar "cmdecho" 0)
(repeat n
(command "line" p1 p2 p3 "")
(setq p1 p3)
(setq p2 (polar p1 (/ pi 2) (/ h n)))
(setq p3 (polar p2 0 w))
(prin1)))
查帮助 用记事本来写的 哈哈

MRHDF

有的时候可以成功，有的时候线画的乱糟糟。怎么能够让它100%准确呢

sailorcwx

1.将getreal改成getdist，既可以取2点求值，也可以手工输入
2.将捕捉取消，或许能达到100%正确。(setvar "OSMODE" 0)

wbsab

四楼的正解