lisp对话框能实现多行单选按钮组吗？

xzd716

各位大侠，lisp对话框能实现多行单选按钮组吗？即多行单选按钮只能选一个按钮，而不是每行可选一个。

vitalgg

要么一整行，要么一整列。
想多行多列联动，就得用回调函数实现。

wen1235

去看我最近的一个帖子

e2002

简单一点，你可以换成单选的 listbox 或者 popup list 控件

tianying307

在每个单选按钮里增加个子程序，让其他单选框值变为0就行了

xyp1964

1. (defun c:tt(); tt(多行单选按钮)
   
2.   (defun ak13()(mapcar'(lambda (x)(set_tile x "0"))'("k4" "k5" "k6" "k7" "k8" "k9")))
   
3.   (defun ak46()(mapcar'(lambda (x)(set_tile x "0"))'("k1" "k2" "k3" "k7" "k8" "k9")))
   
4.   (defun ak79()(mapcar'(lambda (x)(set_tile x "0"))'("k1" "k2" "k3" "k4" "k5" "k6")))
   
5.   (xyp-initSet'(k1 k2 k3 k4 k5 k6 k7 k8 k9)'("1" "0" "0" "0" "0" "0" "0" "0" "0"))
   
6.   (setq Dlst '(("" "参数" ":boxed_column{")
   
7.                ":row{"
   
8.                ("k1" "1" "radio" "(ak13)")
   
9.                ("k2" "2" "radio" "(ak13)")
   
10.                ("k3" "3" "radio" "(ak13)")
    
11.                "}"
    
12.                ":row{"
    
13.                ("k4" "4" "radio" "(ak46)")
    
14.                ("k5" "5" "radio" "(ak46)")
    
15.                ("k6" "6" "radio" "(ak46)")
    
16.                "}"
    
17.                ":row{"
    
18.                ("k7" "7" "radio" "(ak79)")
    
19.                ("k8" "8" "radio" "(ak79)")
    
20.                ("k9" "9" "radio" "(ak79)")
    
21.                "}"
    
22.                "}"
    
23.                ("" "" "user" "(ak13)(ak46)(ak79)")
    
24.               )
    
25.   )
    
26.   (xyp-Dcl-Init Dlst "【多行单选按钮】" t)
    
27.   (princ)
    
28. )
    

(defun c:tt(); tt(多行单选按钮)<br />   (defun ak13()(mapcar'(lambda (x)(set_tile x "0"))'("k4" "k5" "k6" "k7" "k8" "k9")))<br />   (defun ak46()(mapcar'(lambda (x)(set_tile x "0"))'("k1" "k2" "k3" "k7" "k8" "k9")))<br />   (defun ak79()(mapcar'(lambda (x)(set_tile x "0"))'("k1" "k2" "k3" "k4" "k5" "k6")))<br />   (xyp-initSet'(k1 k2 k3 k4 k5 k6 k7 k8 k9)'("1" "0" "0" "0" "0" "0" "0" "0" "0"))<br />   (setq Dlst '(("" "参数" ":boxed_column{")<br />                ":row{"<br />                ("k1" "1" "radio" "(ak13)")<br />                ("k2" "2" "radio" "(ak13)")<br />                ("k3" "3" "radio" "(ak13)")<br />                "}"<br />                ":row{"<br />                ("k4" "4" "radio" "(ak46)")<br />                ("k5" "5" "radio" "(ak46)")<br />                ("k6" "6" "radio" "(ak46)")<br />                "}"<br />                ":row{"<br />                ("k7" "7" "radio" "(ak79)")<br />                ("k8" "8" "radio" "(ak79)")<br />                ("k9" "9" "radio" "(ak79)")<br />                "}"<br />                "}"<br />                ("" "" "user" "(ak13)(ak46)(ak79)")<br />               )<br />   )<br />   (xyp-Dcl-Init Dlst "【多行单选按钮】" t)<br />   (princ)<br /> )<br />

wzg356

(defun c:aa ( / file f key radiokeys dcl_id)        
    (setq file (vl-filename-mktemp "DclTemp.dcl"))
    (setq f (open file "w"))
    (write-line "test:dialog {" f)
    (setq n 0)
    (repeat 3            
           (write-line ":boxed_row {" f)
            (repeat 3
                    (setq key(strcat "key"(itoa(setq n(1+ n)))))
                    (setq radiokeys(cons key radiokeys))
                    (write-line(strcat ":radio_button {key ="
                            (vl-prin1-to-string key)";label ="
                            (vl-prin1-to-string key) ";}")
                        f)
                );key1....key9
                (write-line "}" f)
    )
    (write-line "ok_cancel;}" f)(close f)
      
        (setq dcl_id (load_dialog file))
        (new_dialog "test" dcl_id)
        (set_tile  "key1" "1")
        (foreach key radiokeys
                (action_tile key (strcat
                        "(mapcar '(lambda(x)(set_tile x \"0\"))"
                        "(vl-remove-if '(lambda(x)(= "(vl-prin1-to-string key)" x))radiokeys))"
                ))
        )        
        (action_tile "accept" "(done_dialog 1))")        
        (start_dialog)
        (unload_dialog dcl_id)
        (vl-file-delete file)
)