单选框程序该如何编写！

jacksion

meflying

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.   (mode_tile "Scale" 1)
   
8.   (mode_tile "Long" 1)
   
9.   (mode_tile "Width" 1)
   
10.   (mode_tile "Val_In" 1)
    
11.   (mode_tile "Val_Out" 1)  
    
12.   (set_tile key "1")
    
13.   (cond
    
14.     ((= key "Scale_All") (mode_tile "Scale" 0))
    
15.     ((= key "Scale_Long") (mode_tile "Long" 0) (mode_tile "Width" 0))
    
16.     ((= key "Scale_Turn_In") (mode_tile "Val_In" 0))
    
17.     ((= key "Scale_Turn_Out") (mode_tile "Val_Out" 0))
    
18.   )
    
19. )
    
20. 
    
21. (defun c:main( / dcl_id m)
    
22.   (if (< (setq dcl_id (load_dialog "gcad.dcl")) 0)
    
23.     (exit)
    
24.   )
    
25.   (new_dialog "gcad" dcl_id)
    
26.   ;(set_tile "Scale_All" "1")
    
27.   (Radio_click "Scale_All")
    
28.   (action_tile "Scale_All" "(Radio_click $key)")
    
29.   (action_tile "Scale_Long" "(Radio_click $key)")
    
30.   (action_tile "Scale_Turn_In" "(Radio_click $key)")
    
31.   (action_tile "Scale_Turn_Out" "(Radio_click $key)")
    
32.   (action_tile "accept" "(setq m (get_tile "rad")) (done_dialog)")
    
33.   (start_dialog)
    
34.   (unload_dialog dcl_id)
    
35.   (princ m)
    
36.   (princ)
    
37. )

(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 />   (mode_tile "Scale" 1)<br />   (mode_tile "Long" 1)<br />   (mode_tile "Width" 1)<br />   (mode_tile "Val_In" 1)<br />   (mode_tile "Val_Out" 1)  <br />   (set_tile key "1")<br />   (cond<br />     ((= key "Scale_All") (mode_tile "Scale" 0))<br />     ((= key "Scale_Long") (mode_tile "Long" 0) (mode_tile "Width" 0))<br />     ((= key "Scale_Turn_In") (mode_tile "Val_In" 0))<br />     ((= key "Scale_Turn_Out") (mode_tile "Val_Out" 0))<br />   )<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 />   (Radio_click "Scale_All")<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 /> )

BDYCAD

Jacksion把你開發的的這個程序E-mail一份給我用好嗎?我將非常感謝.

BDYCAD

Jacksion你好我把上面的程序試了一下,怎么我看不懂是用來做什麼的,你給大伙說說吧.