如何返回重新输入

caoyin

不好意思，这几天太忙，我看看能否帮你

jackechang

谢谢，期待中

caoyin

只是代码短了一点，速度并不快

(while (not z)
  (apply '(lambda (v1 v2 v3 v4)
            (setq z (cond ((getint(strcat "\n请输入带轮槽数z <" (itoa v2) ">: "))) (v2)))
            (if (not (eval v3))
              (progn
                (alert (strcat "\n" (strcase v1) "型带轮带槽" v4))
                (setq z nil)
              )
            )
          )
         (assoc ty '(("y" 3 (> z 4) "不能超过 4 个轮槽。")
                     ("z" 3 (> z 6) "不能超过 6 个轮槽。")
                     ("a" 3 (> 8 z 2) "在2~8之间")
                     ("b" 3 (> 9 z 3) "在3~9之间")
                     ("c" 3 (> 9 z 3) "在3~9之间")
                     ("d" 3 (> 9 z 3) "在3~9之间")
                     ("e" 5 (> 20 z 4) "在4~20之间")
                    )
         )
  )
)

jackechang

谢谢CAOYIN大哥,程序简短就好,学习中

jackechang

caoyin大哥，程序修改后，如果带槽超过设定的数量也不会出现提示，而且会直接画出图形。达不到原程序效果。解释一下(while (not z)
  (apply '(lambda (v1 v2 v3 v4)
            (setq z (cond ((getint(strcat "\n请输入带轮槽数z <" (itoa v2) ">: "))) (v2)))
            (if (not (eval v3))好吗？参数V1 V2 V3 V4的意义是什么呀。不好意思，水平太差了点，所以问题就多呀。

caoyin

假设ty="c"，

那么

         (assoc ty '(("y" 3 (> z 4) "不能超过 4 个轮槽。")
                     ("z" 3 (> z 6) "不能超过 6 个轮槽。")
                     ("a" 3 (> 8 z 2) "在2~8之间")
                     ("b" 3 (> 9 z 3) "在3~9之间")
                     ("c" 3 (> 9 z 3) "在3~9之间")
                     ("d" 3 (> 9 z 3) "在3~9之间")
                     ("e" 5 (> 20 z 4) "在4~20之间")
                    )
         )
则返回

("c" 3 (> 9 Z 3) "在3~9之间")

而v1  v2 v3 v4 分别代表

 "c" 3 (> 9 Z 3) "在3~9之间"

四个数据