【新手求助】教程中自动画楼梯，参数输入不同，结果会出现异常
本帖最后由 fanjing_ok 于 2018-5-16 17:59 编辑(defun c:1()
(setq pa (getpoint "请求输入左下角点:"))
(setq ww (getreal "\n请求输入楼梯宽度:"))
(setq hh (getreal "\n请求输入楼梯高度:"))
(setq n (getint "\n请求输入楼梯阶数:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(command "pline" pa pb pc "")
(setq dw (/ ww n))
(setq dh (/ hh n))
(setq pp pa)
(repeat n
(setq pp1 (polar pp (/ pi 2) dh))
(setq pp2 (polar pp1 0 dw))
(command "pline" pp pp1 pp2 "")
(setq pp pp2)
)
(command "zoom" "e")
(prin1)
)
(princ "\n <<1>>快速自动楼梯绘制程序")
(prin1)
以上是代码，输入参数宽100，高40，阶数10，结果正常，如下图
但输入参数宽100，高30，阶数10，结果则异常，如下图
新手不理解为什么会出现此类异常状况，求各位高手大神解答
这样好快哦
(defun c:lt()
(setq pa (getpoint "请求输入左下角点:"))
(setq ww (getreal "\n请求输入楼梯宽度:"))
(setq hh (getreal "\n请求输入楼梯高度:"))
(setq n (getint "\n请求输入楼梯阶数:"))
(setq pb (polar pa 0 ww))
(setq pc (polar pb (/ pi 2) hh))
(entmake (list '(0 . "line")(cons 10 pa)(cons 11 pb)))
(entmake (list '(0 . "line")(cons 10 pb)(cons 11 pc)))
(setq dw (/ ww n))
(setq dh (/ hh n))
(setq pp pa)
(repeat n
(setq pp1 (polar pp (/ pi 2) dh))
(setq pp2 (polar pp1 0 dw))
(entmake (list '(0 . "line")(cons 10 pp)(cons 11 pp1)))
(entmake (list '(0 . "line")(cons 10 pp1)(cons 11 pp2)))
(setq pp pp2)
)
(command "zoom" "e")
(prin1)
) 把捕捉关闭试试，你的数据输入得太小了。 (setvar "osmode" 0) 嗯，试了一下，关掉对象捕捉之后，就没有出现上述问题了，感谢解惑！ 试过用2楼和3楼严总的方法都可以
页:
[1]