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

桃花源 · 发表于 2023-7-7 18:11:36

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

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

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

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

vitalgg · 发表于 2023-7-7 19:32:12

本帖最后由 vitalgg 于 2023-7-7 20:07 编辑

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

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

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

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

vitalgg · 发表于 2023-7-7 20:10:43

本帖最后由 vitalgg 于 2023-7-7 20:20 编辑

MVCNIS方法：动态 DCL 编程详见

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

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

飞雪神光 · 发表于 2023-7-7 18:41:59

用action_tile和set_tile处理

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

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

桃花源 · 发表于 2023-7-7 19:13:53

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

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

桃花源 · 发表于 2023-7-7 20:39:46

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

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

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

桃花源 · 发表于 2023-7-7 20:46:57

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

非常感谢！

wzg356 · 发表于 2023-7-8 06:37:26

用listbox好些

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分

评分