我想编一个简单的循环。

robin43257 · 发表于 2003-5-5 15:31:00

当没有输入或者输入不是为1，2时要求重输。
以下是我现有的代码：
  (while (not  (setq m (getreal "\n 请输入(1/2)1。红线 2。黑线：") )
            )
         (alert "\n输入错误,请输入整数1和2\n")
  )
      (cond  ((= m 1 ) (setq cc 6))
            ((= m 2 ) (setq cc 3))

龙龙仔 · 发表于 2003-5-5 16:49:00

(initget 1 "1 2")
(setq M (getkword "\n请输入[红线(1)/黑线(2): "))
(cond ((= M "1") (setq CC 6))
((= M "2") (setq CC 3))
)

我想编一个简单的循环。

发表回复

精选推荐

浏览过的版块