【求教】关于DCL单选按钮的设计

我来看MM的

下面这个是简单的DCL

1. zhandian:dialog{
   
2.          label="切换展点注记";
   
3.          :boxed_radio_column{
   
4.          
   
5.                 :radio_button{label="展测点点号"; key="dh";}
   
6.                
   
7.          
   
8.                 :radio_button{label="展测点编码";key="bm";}
   
9.                
   
10.          
    
11.                 :radio_button{label="展测点高程"; key="gc"; value=1;}
    
12.         
    
13.           }
    
14.           spacer_1;
    
15.           ok_cancel;
    
16.         }

zhandian:dialog{<br />          label="切换展点注记";<br />          :boxed_radio_column{<br />           <br />                 :radio_button{label="展测点点号"; key="dh";}<br />                <br />           <br />                 :radio_button{label="展测点编码";key="bm";}<br />                <br />          <br />                 :radio_button{label="展测点高程"; key="gc"; value=1;}<br />         <br />           }<br />           spacer_1;<br />           ok_cancel;<br />         }

我想通过选择后单击确定后弹出3.jpg图的效果。
刚学DCL，还望大家写个范例让我学学！
小弟不胜感激！！！

我来看MM的

3.JPG的图看不见再传一张

我来看MM的

ZZXXQQ

2. 
   
3. zhandian:dialog{
   
4. label="切换展点注记";
   
5. :boxed_radio_column{
   
6.   :radio_button{label="展测点点号";key="dh";}
   
7.   :radio_button{label="展测点编码";key="bm";}
   
8.   :radio_button{label="展测点高程";key="gc";value=1;}
   
9. }
   
10. spacer_1;
    
11. ok_cancel;
    
12. }
    
13. dianhao:dialog{
    
14. :text{label="展点号";}
    
15. ok_only;
    
16. }
    

<br /> zhandian:dialog{<br /> label="切换展点注记";<br /> :boxed_radio_column{<br />   :radio_button{label="展测点点号";key="dh";}<br />   :radio_button{label="展测点编码";key="bm";}<br />   :radio_button{label="展测点高程";key="gc";value=1;}<br /> }<br /> spacer_1;<br /> ok_cancel;<br /> }<br /> dianhao:dialog{<br /> :text{label="展点号";}<br /> ok_only;<br /> }<br />

2. 
   
3. (defun c:tt ()
   
4. (setq re 2)
   
5. (if (> (setq dcl_id (load_dialog "zhandian")) 0) (progn
   
6.   (while (> re 1)
   
7.    (if (new_dialog "zhandian" dcl_id) (progn
   
8.     (action_tile "gc" "(done_dialog 2)")
   
9.     (action_tile "bm" "(done_dialog 3)")
   
10.     (action_tile "dh" "(done_dialog 4)")
    
11.     (action_tile "cancel" "(done_dialog 0)")
    
12.     (action_tile "accept" "(done_dialog 1)")
    
13.     (setq re (start_dialog))
    
14.    )
    
15.     (princ "\n无法显示对话框！")
    
16.    )
    
17.    (cond
    
18.     ((= re 2) (gaocheng))
    
19.     ((= re 3) (bianma))
    
20.     ((= re 4) (dianhao))
    
21.    )
    
22.   )
    
23.   (unload_dialog dcl_id)
    
24. )
    
25.   (princ "\n无法加载对话框！")
    
26. )
    
27. (if (= re 1) (princ "draw"))
    
28. (princ)
    
29. )
    
30. (defun gaocheng ()
    
31. (if (new_dialog "dianhao" dcl_id) (progn
    
32.   (action_tile "cancel" "(done_dialog 0)")
    
33.   (action_tile "accept" "(done_dialog 2)")
    
34.   (setq re2 (start_dialog))
    
35. )
    
36.   (princ "\n无法显示对话框！")
    
37. )
    
38. (if (= re2 2) (princ "draw2"))
    
39. )
    

<br /> (defun c:tt ()<br /> (setq re 2)<br /> (if (> (setq dcl_id (load_dialog "zhandian")) 0) (progn<br />   (while (> re 1)<br />    (if (new_dialog "zhandian" dcl_id) (progn<br />     (action_tile "gc" "(done_dialog 2)")<br />     (action_tile "bm" "(done_dialog 3)")<br />     (action_tile "dh" "(done_dialog 4)")<br />     (action_tile "cancel" "(done_dialog 0)")<br />     (action_tile "accept" "(done_dialog 1)")<br />     (setq re (start_dialog))<br />    )<br />     (princ "\n无法显示对话框！")<br />    )<br />    (cond<br />     ((= re 2) (gaocheng))<br />     ((= re 3) (bianma))<br />     ((= re 4) (dianhao))<br />    )<br />   )<br />   (unload_dialog dcl_id)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (if (= re 1) (princ "draw"))<br /> (princ)<br /> )<br /> (defun gaocheng ()<br /> (if (new_dialog "dianhao" dcl_id) (progn<br />   (action_tile "cancel" "(done_dialog 0)")<br />   (action_tile "accept" "(done_dialog 2)")<br />   (setq re2 (start_dialog))<br /> )<br />   (princ "\n无法显示对话框！")<br /> )<br /> (if (= re2 2) (princ "draw2"))<br /> )<br />

我来看MM的

ZZXXQQ 发表于 2012-4-1 20:20  

什么意思？

我来看MM的

ZZXXQQ 发表于 2012-4-1 20:20

谢谢。。。上次用手机看的，没看到东西，才那么问。不好意思啊！！！

328302216

学习了