DCL对话框设置三行三列的单选按钮怎么实现

桃花源

新手小白，请教大家如上问题：即9个单选按钮不是框行或框列排列，而是三行三列均布，如何实现？

south

不上代码怎么描述

vitalgg

1. buttons:dialog {label = "buttons";key="title";
   
2. :row{
   
3. :column{
   
4. :toggle{key="slt1"; label="Select1";}
   
5. :toggle{key="slt2"; label="Select2";}
   
6. :toggle{key="slt3"; label="Select3";}
   
7. }
   
8. :column{
   
9. :toggle{key="slt4"; label="Select4";}
   
10. :toggle{key="slt5"; label="Select5";}
    
11. :toggle{key="slt6"; label="Select6";}
    
12. }
    
13. :column{
    
14. :toggle{key="slt7"; label="Select7";}
    
15. :toggle{key="slt8"; label="Select8";}
    
16. :toggle{key="slt9"; label="Select9";}
    
17. }
    
18. }
    
19. :spacer{} : column {: row { fixed_width = true; alignment = centered; : retirement_button { label ="Yes";key="accept";is_default=true;} :spacer{ width = 2; }:retirement_button {label= "No"; key ="cancel"; is_cancel = true;}}}}
    

buttons:dialog {label = "buttons";key="title";<br /> :row{<br /> :column{<br /> :toggle{key="slt1"; label="Select1";}<br /> :toggle{key="slt2"; label="Select2";}<br /> :toggle{key="slt3"; label="Select3";}<br /> }<br /> :column{<br /> :toggle{key="slt4"; label="Select4";}<br /> :toggle{key="slt5"; label="Select5";}<br /> :toggle{key="slt6"; label="Select6";}<br /> }<br /> :column{<br /> :toggle{key="slt7"; label="Select7";}<br /> :toggle{key="slt8"; label="Select8";}<br /> :toggle{key="slt9"; label="Select9";}<br /> }<br /> }<br /> :spacer{} : column {: row { fixed_width = true; alignment = centered; : retirement_button { label ="Yes";key="accept";is_default=true;} :spacer{ width = 2; }:retirement_button {label= "No"; key ="cancel"; is_cancel = true;}}}}<br />

桃花源

非常感谢热心的朋友，但是我的问题是9个三行三列的radio_button,即只能有一个被选中，而不是图片表示的

vitalgg

那就需要写个回调函数了。

如果无法播放，请点击此处在新窗口打开

1. (defun c:tt (/ dcl-fp rbn group-rb rb-value)
   
2.   ;;;; Model
   
3.   (setq rbn 0) ;; 用于记录无线按钮总数
   
4.   (setq group-rb "slt") ;; 用于控制 rb 系列的组名
   
5.   (setq rb-value nil) ;; 用于最后选中的 rb 号
   
6.   ;;;; View
   
7.   ;; 生成 DCL 对话框文件，你也可以用自己的方法生成。生成的 dcl 文件在 temp 文件夹下。
   
8.   (dcl:dialog "buttons")
   
9.   (dcl:begin-cluster "radio_row" "")
   
10.   (repeat 3
    
11.     (progn
    
12.       (dcl:begin-cluster "column" "")
    
13.       (repeat 3
    
14.         (write-line
    
15.           (strcat
    
16.             ":radio_button{key=\""
    
17.             group-rb
    
18.             (itoa (setq rbn (1+ rbn)))
    
19.             "\"; label=\""
    
20.             "Select"
    
21.             (itoa rbn)
    
22.             "\";action=\"(cb-rb $key)\";}" )
    
23.           dcl-fp))
    
24.       (dcl:end-cluster)
    
25.     ))
    
26.   (dcl:end-cluster)
    
27.   (dcl:end-dialog str-yes-no)
    
28.   ;;;; Control
    
29.   ;; 控制 多行多列无线按钮的选中与否
    
30.   (defun cb-rb (key / i)
    
31.     (print key)
    
32.     (setq i 0)
    
33.     (repeat rbn
    
34.       (if (/= key (strcat group-rb (itoa (setq i (1+ i)))))
    
35.         (set_tile (strcat group-rb (itoa i)) "0")
    
36.         (set_tile (strcat group-rb (itoa i)) "1");;
    
37.       ))
    
38.     (setq rb-value key) ;; 最终选中的 rb
    
39.   )
    
40.   ;;;; New
    
41.   (dcl:new "buttons")
    
42.   ;;;; Init 该程序不需要
    
43.   ;;;; Show
    
44.   (dcl:show)
    
45.   rb-value
    
46. )

(defun c:tt (/ dcl-fp rbn group-rb rb-value) <br />   ;;;; Model<br />   (setq rbn 0) ;; 用于记录无线按钮总数<br />   (setq group-rb "slt") ;; 用于控制 rb 系列的组名<br />   (setq rb-value nil) ;; 用于最后选中的 rb 号<br />   ;;;; View<br />   ;; 生成 DCL 对话框文件，你也可以用自己的方法生成。生成的 dcl 文件在 temp 文件夹下。<br />   (dcl:dialog "buttons")<br />   (dcl:begin-cluster "radio_row" "")<br />   (repeat 3 <br />     (progn <br />       (dcl:begin-cluster "column" "")<br />       (repeat 3 <br />         (write-line <br />           (strcat <br />             ":radio_button{key=\""<br />             group-rb<br />             (itoa (setq rbn (1+ rbn)))<br />             "\"; label=\""<br />             "Select"<br />             (itoa rbn)<br />             "\";action=\"(cb-rb $key)\";}" )<br />           dcl-fp))<br />       (dcl:end-cluster)<br />     ))<br />   (dcl:end-cluster)<br />   (dcl:end-dialog str-yes-no)<br />   ;;;; Control<br />   ;; 控制 多行多列无线按钮的选中与否<br />   (defun cb-rb (key / i) <br />     (print key)<br />     (setq i 0)<br />     (repeat rbn <br />       (if (/= key (strcat group-rb (itoa (setq i (1+ i))))) <br />         (set_tile (strcat group-rb (itoa i)) "0")<br />         (set_tile (strcat group-rb (itoa i)) "1");;<br />       ))<br />     (setq rb-value key) ;; 最终选中的 rb<br />   )<br />   ;;;; New<br />   (dcl:new "buttons")<br />   ;;;; Init 该程序不需要<br />   ;;;; Show<br />   (dcl:show)<br />   rb-value<br /> )

运行以上代码需要安装 @lisp 核心及@lisp函数库（函数库会自动下载安装）
安装请至 https://atlisp.cn