高手帮忙改一下毕业设计，

e19000

;选择不同的 zc（zc是下拉菜单），则出现k1值的范围，在下面输入准确的k1值得时候，我想让输入的k1值限制在上面出现的k1范围内！如果输入的不在范围内则弹出警告的对话框！

急用，快答辩了 ，谢谢大哥们

,

tangsong33

你这个程序是什么意思哦,你要做个什么嘛

把它放在CAD的安装根目录下

e19000

我的题目是《尺寸计算》.谢谢楼上帮我修改，

下面是我整个程序，帮我看看有什么不足吗？请指教

 

xyp1964

(defun c:test ()
  (if (new_dialog "xianzhi" (load_dialog "xianzhi"))
    (progn
      (if(null zc)(setq zc "0"))
      (initial)
      (change3)
      (set_tile "key_zc" zc)
      (action_tile "key_zc" "(setq zc $value)(change3)")
      (start_dialog)
    )
  )
)
(defun change3 ()
  (setq k1 (nth (atoi zc) (eval (read (strcat "k1" category "_list")))))
  (set_tile "key_k1" k1)
)
(defun initial ()
  (setq cate3_list '("<=11" "13-23" "25-59" "61-87")
 k10_list   '("0.42-0.55" "0.48-0.74" "0.65-0.9" "0.75-0.9")
 category   "-1"
  )
  (start_list "key_zc")
  (mapcar 'add_list cate3_list)
  (end_list)
  (setq category "0")
)

e19000

;选择不同的 zc（zc是下拉菜单），则出现k1值的范围，在下面输入准确的k1值得时候，我想让输入的k1值限制在上面出现的k1范围内！如果输入的不在范围内则弹出警告的对话框！

急用，快答辩了 ，谢谢大哥们