单选框程序该如何编写！

jacksion

请大家帮帮忙，左边的单选框是怎么编写程序的，我试了好几次，没成功。
设计要求：四个单选框要单一选择的。
麻烦大家了！！谢谢！

meflying

什么东西？

jacksion

不好意思，这是图

jacksion

spring

不知道是不是你想要的
(defun c:spring()
(setq dli (load_dialog "spring.dcl"))
  (if (null (new_dialog "spring" dli))
    (exit)
  )
  (start_dialog)
  (unload_dialog dli)
  (princ)
)
;;;保存為 spring.dcl
spring:dialog{
: boxed_radio_column{label="select";
: radio_button {label="spring";}
: radio_button {label="spring1";}
: radio_button {label="spring2";}
: radio_button {label="spring3";}
}
ok_cancel;
}

meflying

============以下是DCL文件=============

2. gcad : dialog {
   
3.         label = "镜框辅助设计系统";
   
4.         :text { label = "馒头型眼睛镜框设计";alignment = centered; }
   
5.         :row {
   
6.                 :boxed_radio_column {
   
7.                         label = "方法选用:";
   
8.                         key = "rad";
   
9.                         fixed_width = true;
   
10.                         width = 30;
    
11.                         height = 15;
    
12.                         :radio_button {
    
13.                                 label = "整体比例缩放";
    
14.                                 key = "Scale_All";
    
15.                         }
    
16.                         :edit_box {
    
17.                                 label = "缩放因子(0-1.5)";
    
18.                                 key = "Scale";
    
19.                         }
    
20.                         :radio_button {
    
21.                                 label = "长宽尺寸调整";
    
22.                                 key = "Scale_Long";
    
23.                         }
    
24.                         :edit_box {
    
25.                                 label = "基线长:";
    
26.                                 key = "Long";
    
27.                         }
    
28.                         :edit_box {
    
29.                                 label = "基线宽:";
    
30.                                 key = "Width";
    
31.                         }
    
32.                         :radio_button {
    
33.                                 label = "内调";
    
34.                                 key = "Scale_Turn_In";
    
35.                         }
    
36.                         :edit_box {
    
37.                                 label = "调节值:";
    
38.                                 key = "Val_In";
    
39.                         }
    
40.                         :radio_button {
    
41.                                 label = "外调";
    
42.                                 key = "Scale_Turn_Out";
    
43.                         }
    
44.                         :edit_box {
    
45.                                 label = "调节值:";
    
46.                                 key = "Val_Out";
    
47.                         }
    
48.                 }
    
49.                 :boxed_column {
    
50.                         label = "视图";
    
51.                         :image {
    
52.                                 key = "cur_color";
    
53.                                 label = "color";
    
54.                                 color = 7;
    
55.                                 fixed_width = true;
    
56.                                 width = 40;
    
57.                                 height = 15;
    
58.                         }
    
59.                         :text { label = "系统设定中心为调整中心(详细见图样)";}
    
60.                 }
    
61.         }
    
62.         ok_cancel;
    
63. 
    
64. }
    

gcad : dialog {<br />         label = "镜框辅助设计系统";<br />         :text { label = "馒头型眼睛镜框设计";alignment = centered; }<br />         :row {<br />                 :boxed_radio_column {<br />                         label = "方法选用:";<br />                         key = "rad";<br />                         fixed_width = true;<br />                         width = 30;<br />                         height = 15;<br />                         :radio_button {<br />                                 label = "整体比例缩放";<br />                                 key = "Scale_All";<br />                         }<br />                         :edit_box {<br />                                 label = "缩放因子(0-1.5)";<br />                                 key = "Scale";<br />                         }<br />                         :radio_button {<br />                                 label = "长宽尺寸调整";<br />                                 key = "Scale_Long";<br />                         }<br />                         :edit_box {<br />                                 label = "基线长:";<br />                                 key = "Long";<br />                         }<br />                         :edit_box {<br />                                 label = "基线宽:";<br />                                 key = "Width";<br />                         }<br />                         :radio_button {<br />                                 label = "内调";<br />                                 key = "Scale_Turn_In";<br />                         }<br />                         :edit_box {<br />                                 label = "调节值:";<br />                                 key = "Val_In";<br />                         }<br />                         :radio_button {<br />                                 label = "外调";<br />                                 key = "Scale_Turn_Out";<br />                         }<br />                         :edit_box {<br />                                 label = "调节值:";<br />                                 key = "Val_Out";<br />                         }<br />                 }<br />                 :boxed_column {<br />                         label = "视图";<br />                         :image {<br />                                 key = "cur_color";<br />                                 label = "color";<br />                                 color = 7;<br />                                 fixed_width = true;<br />                                 width = 40;<br />                                 height = 15;<br />                         }<br />                         :text { label = "系统设定中心为调整中心(详细见图样)";}<br />                 }<br />         }<br />         ok_cancel;<br /> <br /> }<br />

========以下是控制函数，OK后打印选中的RADIO的KEY值========

2. (defun Radio_click(key)
   
3.   (set_tile "Scale_All" "0")
   
4.   (set_tile "Scale_Long" "0")
   
5.   (set_tile "Scale_Turn_In" "0")
   
6.   (set_tile "Scale_Turn_Out" "0")
   
7.   (set_tile key "1")
   
8. )
   
9. 
   
10. (defun c:main( / dcl_id m)
    
11.   (if (< (setq dcl_id (load_dialog "gcad.dcl")) 0)
    
12.     (exit)
    
13.   )
    
14.   (new_dialog "gcad" dcl_id)
    
15.   (set_tile "Scale_All" "1")
    
16.   (action_tile "Scale_All" "(Radio_click $key)")
    
17.   (action_tile "Scale_Long" "(Radio_click $key)")
    
18.   (action_tile "Scale_Turn_In" "(Radio_click $key)")
    
19.   (action_tile "Scale_Turn_Out" "(Radio_click $key)")
    
20.   (action_tile "accept" "(setq m (get_tile "rad")) (done_dialog)")
    
21.   (start_dialog)
    
22.   (unload_dialog dcl_id)
    
23.   (princ m)
    
24.   (princ)
    
25. )

(defun Radio_click(key)<br />   (set_tile "Scale_All" "0")<br />   (set_tile "Scale_Long" "0")<br />   (set_tile "Scale_Turn_In" "0")<br />   (set_tile "Scale_Turn_Out" "0")<br />   (set_tile key "1")<br /> )<br /> <br /> (defun c:main( / dcl_id m)<br />   (if (< (setq dcl_id (load_dialog "gcad.dcl")) 0)<br />     (exit)<br />   )<br />   (new_dialog "gcad" dcl_id)<br />   (set_tile "Scale_All" "1")<br />   (action_tile "Scale_All" "(Radio_click $key)")<br />   (action_tile "Scale_Long" "(Radio_click $key)")<br />   (action_tile "Scale_Turn_In" "(Radio_click $key)")<br />   (action_tile "Scale_Turn_Out" "(Radio_click $key)")<br />   (action_tile "accept" "(setq m (get_tile "rad")) (done_dialog)")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (princ m)<br />   (princ)<br /> )

jacksion

谢谢各位了！！

jacksion

老兄，程序是没错，只是少了点东西，我要求五个单选按钮达到单选的效果，我试过很多次，没有成功，希望各位多多帮忙！！

meflying

可你给的图是四个单选啊，而且你完全可以根据我的4个单选来推出五个的写法。
你试过我的程序？不行吗，我调试完全成功。
希望以后都这样：试了别人的程序，如果有错误发生，或没有达到你的要求，应该具体写出现象，是怎么样的问题，这样，别人好修改。

jacksion

对不起了，现在可以了，呵呵