【新手求助】教程中自动画楼梯，参数输入不同，结果会出现异常

fanjing_ok · 发表于 2018-5-16 17:56:51

本帖最后由 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，结果则异常，如下图

新手不理解为什么会出现此类异常状况，求各位高手大神解答

669423907 · 发表于 2018-5-17 18:12:20

这样好快哦
(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)
  )

evayleung · 发表于 2018-5-16 18:15:19

把捕捉关闭试试，你的数据输入得太小了。

yxp · 发表于 2018-5-17 02:19:01

(setvar "osmode" 0)

fanjing_ok · 发表于 2018-5-17 16:39:40

嗯，试了一下，关掉对象捕捉之后，就没有出现上述问题了，感谢解惑

！

BaoWSE · 发表于 2018-5-17 16:51:56

试过用2楼和3楼严总的方法都可以

账号		自动登录	找回密码
密码			注册

[提问] 【新手求助】教程中自动画楼梯，参数输入不同，结果会出现异常

本帖子中包含更多资源