我想编一个简单的循环。

robin43257

当没有输入或者输入不是为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))

龙龙仔

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