[编程交流] DCL单选按钮

weld1 : dialog { label = "WELD NOTES 1 " ; width = 30; fixed_width = true;
   :boxed_row {
     : spacer { width = 10; }
     : text { label = "WELD SIZE:"; alignment = bottom; is_bold = true;}
     : edit_box { key = "ws1"; edit_width = 5; alignment = top; }
     : spacer { width = 0;}}
   :row { 
     : text { label = "PREDEFINED NOTES:"; is_bold = true; alignment = left; }
     : spacer { width = 1;}
     : text { label = "L/S"; alignment = center;}
     : text { label = "R/S"; alignment = left ;}}
     : spacer { width = 0;}
:row {
 :column {
     : text { label = "TYP SIM LOCATIONS "; alignment = left;}
     : spacer { width = 0;}   
     : text { label = "TYP THESE ITEMS "; alignment = left;}
     : spacer { width = 1.6;}   
     : text { label = "USER TEXT: "; alignment = left;}
     : spacer { width = 6.5;}}
   : column {  
      : radio_button { key = "lradbut1";}
      : radio_button { key = "rradbut1";}  
      : radio_button { key = "lradbut2";}}
   : column {
      : radio_button { key = "rradbut2";}
      : radio_button { key = "lradbut3";}
      : radio_button { key = "rradbut3";}}}
  ok_cancel ;       
}
The Lisp File
(defun c:aa ( /  ddiag dcl_id p1 d1 WeldSize)
(defun setVars ()
     (setq WeldSize (distof (get_tile "ws1"))))
     ;(setq notes )
 (setq dcl_id (load_dialog (findfile "weld1.dcl")))
 (if (not (new_dialog "weld1" dcl_id))(exit))
 (action_tile "ws" "(setq d1 (distof (get_tile "ws")))")
 (action_tile "accept" "(done_dialog 1)")
 (action_tile "cancel" "(done_dialog 0)")  
 (setq ddiag (start_dialog))
 (unload_dialog dcl_id)
 (if (= ddiag 1)
   (progn
     (setq p1 (getpoint "\nPick a point "))
     (command-s "_line" p1 (polar p1 (deltadtr 0) d1) "")
   )
 )
 (princ)
)

: row        {
: boxed_radio_column         {