输入230陷入死循环

流_星 · 发表于 2013-4-13 12:35:42

本帖最后由流_星于 2013-4-13 13:57 编辑

请大哥大姐帮忙输入230弹出警告框陷入死循环，小弟刚刚入门
这是在原有设计人的基础上修改的
可是弹出对话框就陷入死循环了（程序在附件中，请高手们看看）
  (setq d T)
  (while d
(if       (or (< d 12) (> d 200))　　
   (alert (strcat "轴径数据输入错误!\n\n请重新输入!")　)
   (setq d nil) 　　　
)
  )

流_星 · 发表于 2013-4-13 12:36:29

大哥大姐如何修改

Andyhon · 发表于 2013-4-13 13:00:00

(setq d T)
(while d
(if (or (< d 12) (> d 200))
可有去想过 (if ... 此中的 d 是啥

流_星 · 发表于 2013-4-13 13:02:25

本帖最后由流_星于 2013-4-13 18:28 编辑

程序在附件中
是我从mingjing找的
首先要感谢原作者
他是两个程序的结合
可是有点问题

流_星 · 发表于 2013-4-13 13:03:33

是个直径
画平面键槽用的现在就是输入错了就弹出对话框陷入死循环了
求解

【KAIXIN】 · 发表于 2013-4-13 13:21:22

(setq A T)
(while A
(if (or (< d 12) (> d 200))　　
(alert (strcat "轴径数据输入错误!\n\n请重新输入!")　)
(setq A nil) 　　　
)
)

流_星 · 发表于 2013-4-13 13:33:29

开心
是必须要把d改成A吗
我是刚刚开始学习lisp的

流_星 · 发表于 2013-4-13 14:52:09

高手们有知道的吗
程序在附件中

ll_j · 发表于 2013-4-13 16:11:24

你的d就等于T，还怎么判别大小呢？

流_星 · 发表于 2013-4-13 17:07:43

那如何改啊
请指教

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

[基础] 输入230陷入死循环

本帖子中包含更多资源

评分