9个三行三列的radio_button,即只能有一个被选中

桃花源

我想做出9个三行三列的radio_button,即只能有一个被选中。图片不是我想要的效果。恳请热心的朋友指教！

飞雪神光

1. (defun makedanxuandcl  (/ lst_str str file f)
   
2.         (setq lst_str '(
   
3.                                                                          "dx:dialog {"
   
4.                                                                          "    label = \"单选\" ;"
   
5.                                                                          "    :column {"
   
6.                                                                          "        :row {"
   
7.                                                                          "            :radio_button {"
   
8.                                                                          "                key = \"r1\" ;"
   
9.                                                                          "                label = \"单选1\" ;"
   
10.                                                                          "            }"
    
11.                                                                          "            :radio_button {"
    
12.                                                                          "                key = \"r2\" ;"
    
13.                                                                          "                label = \"单选2\" ;"
    
14.                                                                          "            }"
    
15.                                                                          "            :radio_button {"
    
16.                                                                          "                key = \"r3\" ;"
    
17.                                                                          "                label = \"单选3\" ;"
    
18.                                                                          "            }"
    
19.                                                                          "        }"
    
20.                                                                          "        :row {"
    
21.                                                                          "            :radio_button {"
    
22.                                                                          "                key = \"r4\" ;"
    
23.                                                                          "                label = \"单选4\" ;"
    
24.                                                                          "            }"
    
25.                                                                          "            :radio_button {"
    
26.                                                                          "                key = \"r5\" ;"
    
27.                                                                          "                label = \"单选5\" ;"
    
28.                                                                          "            }"
    
29.                                                                          "            :radio_button {"
    
30.                                                                          "                key = \"r6\" ;"
    
31.                                                                          "                label = \"单选6\" ;"
    
32.                                                                          "            }"
    
33.                                                                          "        }"
    
34.                                                                          "        :row {"
    
35.                                                                          "            :radio_button {"
    
36.                                                                          "                key = \"r7\" ;"
    
37.                                                                          "                label = \"单选7\" ;"
    
38.                                                                          "            }"
    
39.                                                                          "            :radio_button {"
    
40.                                                                          "                key = \"r8\" ;"
    
41.                                                                          "                label = \"单选8\" ;"
    
42.                                                                          "            }"
    
43.                                                                          "            :radio_button {"
    
44.                                                                          "                key = \"r9\" ;"
    
45.                                                                          "                label = \"单选9\" ;"
    
46.                                                                          "            }"
    
47.                                                                          "        }"
    
48.                                                                          "    }"
    
49.                                                                          "    ok_cancel;"
    
50.                                                                          "}"
    
51.                                                                          ""
    
52.                                                                  )
    
53.         )
    
54.         (setq file (vl-filename-mktemp "DclTemp.dcl"))
    
55.         (setq f (open file "w"))
    
56.         (foreach str lst_str
    
57.                 (princ "\n" f)
    
58.                 (princ str f)
    
59.         )
    
60.         (close f)
    
61.         file
    
62. )
    
63. (defun updata(va)
    
64.         (foreach x '("r1" "r2" "r3" "r4" "r5" "r6" "r7" "r8" "r9")
    
65.                 (set_tile x "0")
    
66.         )
    
67.         (set_tile (strcat "r" va) "1")
    
68. )
    
69. (setq danxuan_dia(makedanxuandcl))
    
70. (setq dcl_id(load_dialog danxuan_dia))
    
71. (new_dialog "dx" dcl_id)
    
72. (set_tile "r1" "1")
    
73. (action_tile "r1" "(updata \"1\")")
    
74. (action_tile "r2" "(updata \"2\")")
    
75. (action_tile "r3" "(updata \"3\")")
    
76. (action_tile "r4" "(updata \"4\")")
    
77. (action_tile "r5" "(updata \"5\")")
    
78. (action_tile "r6" "(updata \"6\")")
    
79. (action_tile "r7" "(updata \"7\")")
    
80. (action_tile "r8" "(updata \"8\")")
    
81. (action_tile "r9" "(updata \"9\")")
    
82. (action_tile "cancel""(done_dialog 1)")
    
83. (action_tile "accept""(done_dialog 1)")
    
84. (setq idd(start_dialog))
    
85. (unload_dialog dcl_id)
    
86. (vl-file-delete danxuan_dia)
    
87. (princ)       
    

(defun makedanxuandcl  (/ lst_str str file f)<br />         (setq lst_str '(<br />                                                                          "dx:dialog {"<br />                                                                          "    label = \"单选\" ;"<br />                                                                          "    :column {"<br />                                                                          "        :row {"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r1\" ;"<br />                                                                          "                label = \"单选1\" ;"<br />                                                                          "            }"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r2\" ;"<br />                                                                          "                label = \"单选2\" ;"<br />                                                                          "            }"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r3\" ;"<br />                                                                          "                label = \"单选3\" ;"<br />                                                                          "            }"<br />                                                                          "        }"<br />                                                                          "        :row {"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r4\" ;"<br />                                                                          "                label = \"单选4\" ;"<br />                                                                          "            }"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r5\" ;"<br />                                                                          "                label = \"单选5\" ;"<br />                                                                          "            }"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r6\" ;"<br />                                                                          "                label = \"单选6\" ;"<br />                                                                          "            }"<br />                                                                          "        }"<br />                                                                          "        :row {"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r7\" ;"<br />                                                                          "                label = \"单选7\" ;"<br />                                                                          "            }"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r8\" ;"<br />                                                                          "                label = \"单选8\" ;"<br />                                                                          "            }"<br />                                                                          "            :radio_button {"<br />                                                                          "                key = \"r9\" ;"<br />                                                                          "                label = \"单选9\" ;"<br />                                                                          "            }"<br />                                                                          "        }"<br />                                                                          "    }"<br />                                                                          "    ok_cancel;"<br />                                                                          "}"<br />                                                                          ""<br />                                                                  )<br />         )<br />         (setq file (vl-filename-mktemp "DclTemp.dcl"))<br />         (setq f (open file "w"))<br />         (foreach str lst_str<br />                 (princ "\n" f)<br />                 (princ str f)<br />         )<br />         (close f)<br />         file<br /> )<br /> (defun updata(va)<br />         (foreach x '("r1" "r2" "r3" "r4" "r5" "r6" "r7" "r8" "r9")<br />                 (set_tile x "0")<br />         )<br />         (set_tile (strcat "r" va) "1")<br /> )<br /> (setq danxuan_dia(makedanxuandcl))<br /> (setq dcl_id(load_dialog danxuan_dia))<br /> (new_dialog "dx" dcl_id)<br /> (set_tile "r1" "1")<br /> (action_tile "r1" "(updata \"1\")")<br /> (action_tile "r2" "(updata \"2\")")<br /> (action_tile "r3" "(updata \"3\")")<br /> (action_tile "r4" "(updata \"4\")")<br /> (action_tile "r5" "(updata \"5\")")<br /> (action_tile "r6" "(updata \"6\")")<br /> (action_tile "r7" "(updata \"7\")")<br /> (action_tile "r8" "(updata \"8\")")<br /> (action_tile "r9" "(updata \"9\")")<br /> (action_tile "cancel""(done_dialog 1)")<br /> (action_tile "accept""(done_dialog 1)")<br /> (setq idd(start_dialog))<br /> (unload_dialog dcl_id)<br /> (vl-file-delete danxuan_dia)<br /> (princ)        <br />

vitalgg

桃花源 发表于 2023-7-7 19:13
这就是我想要的效果，请问如何做到？谢谢！

另一贴，
重点关注回调函数 cb-rb

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 /> )

vitalgg

MVCNIS方法：动态 DCL 编程 详见

https://gitee.com/atlisp/atlisp- ... lisp/dcl-mvcnis.org

更多示例：
https://gitee.com/atlisp/atlisp-lib/tree/main/src/example

飞雪神光

用action_tile和set_tile处理

vitalgg

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

桃花源

vitalgg 发表于 2023-7-7 19:03

这就是我想要的效果，请问如何做到？谢谢！

桃花源

vitalgg 发表于 2023-7-7 20:10
MVCNIS方法：动态 DCL 编程 详见

https://gitee.com/atlisp/atlisp- ... lisp/dcl-mvcnis.org

非常感谢！好好研究研究下。

桃花源

飞雪神光 发表于 2023-7-7 19:03

非常感谢！

wzg356

用listbox好些