多行多列单选按钮可否独立运行？谢谢~

逗亦斗霸

2. (defun c:tt (/ dcl_file dcl_id make_dcl p0)
   
3. 
   
4.   (defun make_dcl  (/ lst_str str file f)
   
5.     (setq lst_str
   
6.       '(
   
7.   "csyx:dialog
   
8.   {label = "测试一下";"
   
9.       ":row
   
10.       {
    
11.         :boxed_column
    
12.         {fixed_height = true; label = "模块1";
    
13.           :row
    
14.           {:column {spacer_0;}
    
15.            :column {:radio_button {key = "m1_1"; label = "新增";} :radio_button {key = "m1_2"; label = "利旧";} spacer_1; }
    
16.           }
    
17.         }
    
18.         :boxed_column
    
19.         {fixed_height = true; label = "模块2";
    
20.           :row
    
21.           {:column{spacer_0;}
    
22.            :column {:radio_button {key = "m2_1"; label = "新增";} :radio_button {key = "m2_2"; label = "利旧";} spacer_1; }
    
23.           }
    
24.         }
    
25.       
    
26.       :row{spacer_1;}
    
27.     }"
    
28. 
    
29. 
    
30.     ":spacer {}
    
31.       :row{
    
32.         spacer_1; spacer_1; :button {key = \accept\;  is_default = true;   fixed_width = true; label = "确定";}
    
33.                   :button {key = "cancel";   is_cancel = true;   fixed_width = true; label = "取消";} spacer_1; spacer_1;
    
34.         }
    
35.       :spacer {}
    
36.   }"
    
37.       )
    
38.     )
    
39.     (setq file (vl-filename-mktemp "DclTemp.dcl") )
    
40.     (setq f (open file "w") )
    
41.     (foreach str lst_str
    
42.       (princ "\n" f)
    
43.       (princ str f)
    
44.     )
    
45.     (close f)
    
46.     file
    
47.   )
    
48. 
    
49.   (if (= (setq dcl_id (load_dialog (setq dcl_file (make_dcl) ) ) ) 0) (progn (alert "\n无法显示对话框！") (exit) ) )
    
50.   (if dcl_file (vl-file-delete dcl_file) )
    
51.     (if (not (new_dialog "csyx" dcl_id) ) (progn (alert "\n无法显示对话框！") (exit) ) )
    
52. 
    
53.   
    
54.   (action_tile "m1_1" "(setq mk1 1)" )
    
55.   (action_tile "m1_2" "(setq mk1 2)" )
    
56. 
    
57.   (action_tile "m2_1" "(setq mk2 1)" )
    
58.   (action_tile "m2_2" "(setq mk2 2)" )
    
59. 
    
60. 
    
61.   (action_tile "accept" "(done_dialog 1)")
    
62.   (action_tile "cancel" "(done_dialog 0) (exit)")
    
63.   (start_dialog)
    
64.     (unload_dialog dcl_id)
    
65. 
    
66.   (setq p0 (getpoint "\n插入点: ") )
    
67.   (setq p1 (mapcar '+ p0 '(500 0 0) ) )
    
68.   (setq p2 (mapcar '+ p0 '(500 500 0) ) )
    
69.   (setq p3 (mapcar '+ p0 '(0 500 0) ) )
    
70.   (setq p4 (mapcar '+ p0 '(0 0 0) ) )
    
71.   (setq p5 (mapcar '+ p0 '(1500 0 0) ) )
    
72.   (setq p6 (mapcar '+ p0 '(1500 1500 0) ) )
    
73.   (setq p7 (mapcar '+ p0 '(0 1500 0) ) )
    
74.   (setq p8 (mapcar '+ p0 '(0 0 0) ) )
    
75.   (setq p9 (mapcar '+ p0 '(2500 00 0) ) )
    
76.   (setq p10 (mapcar '+ p0 '(2500 2500 0) ) )
    
77.   (setq p11 (mapcar '+ p0 '(0 2500 0) ) )
    
78.   (setq p12 (mapcar '+ p0 '(0 0 0) ) )
    
79.   (setq p13 (mapcar '+ p0 '(3500 0 0) ) )
    
80.   (setq p14 (mapcar '+ p0 '(3500 3500 0) ) )
    
81.   (setq p15 (mapcar '+ p0 '(0 3500 0) ) )
    
82.   
    
83.   (defun csyx1 () (command "pline" p0 p1 p2 p3 p0 "") )
    
84.   
    
85.   (defun csyx2 () (command "pline" p4 p5 p6 p7 p4 "") )
    
86. 
    
87.   (defun csyx3 () (command "pline" p8 p9 p10 p11 p8 "") )
    
88.   
    
89.   (defun csyx4 () (command "pline" p12 p13 p14 p15 p12 "") )
    
90. 
    
91.     (cond  
    
92.       ( (= mk1 1) (csyx1) )
    
93.       ( (= mk1 2) (csyx2) )
    
94.       ( (= mk2 1) (csyx3) )
    
95.       ( (= mk2 2) (csyx4) )
    
96.     )
    
97. 
    
98. (princ)
    
99. )

(defun c:tt (/ dcl_file dcl_id make_dcl p0)<br /> <br />   (defun make_dcl  (/ lst_str str file f)<br />     (setq lst_str<br />       '(<br />   "csyx:dialog<br />   {label = "测试一下";"<br />       ":row<br />       {<br />         :boxed_column<br />         {fixed_height = true; label = "模块1";<br />           :row<br />           {:column {spacer_0;}<br />            :column {:radio_button {key = "m1_1"; label = "新增";} :radio_button {key = "m1_2"; label = "利旧";} spacer_1; }<br />           }<br />         }<br />         :boxed_column<br />         {fixed_height = true; label = "模块2";<br />           :row<br />           {:column{spacer_0;}<br />            :column {:radio_button {key = "m2_1"; label = "新增";} :radio_button {key = "m2_2"; label = "利旧";} spacer_1; }<br />           }<br />         }<br />       <br />       :row{spacer_1;}<br />     }"<br /> <br /> <br />     ":spacer {}<br />       :row{<br />         spacer_1; spacer_1; :button {key = \accept\;  is_default = true;   fixed_width = true; label = "确定";}<br />                   :button {key = "cancel";   is_cancel = true;   fixed_width = true; label = "取消";} spacer_1; spacer_1;<br />         }<br />       :spacer {}<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 /> <br />   (if (= (setq dcl_id (load_dialog (setq dcl_file (make_dcl) ) ) ) 0) (progn (alert "\n无法显示对话框！") (exit) ) )<br />   (if dcl_file (vl-file-delete dcl_file) )<br />     (if (not (new_dialog "csyx" dcl_id) ) (progn (alert "\n无法显示对话框！") (exit) ) )<br /> <br />   <br />   (action_tile "m1_1" "(setq mk1 1)" )<br />   (action_tile "m1_2" "(setq mk1 2)" )<br /> <br />   (action_tile "m2_1" "(setq mk2 1)" )<br />   (action_tile "m2_2" "(setq mk2 2)" )<br /> <br /> <br />   (action_tile "accept" "(done_dialog 1)")<br />   (action_tile "cancel" "(done_dialog 0) (exit)")<br />   (start_dialog)<br />     (unload_dialog dcl_id)<br /> <br />   (setq p0 (getpoint "\n插入点: ") )<br />   (setq p1 (mapcar '+ p0 '(500 0 0) ) )<br />   (setq p2 (mapcar '+ p0 '(500 500 0) ) )<br />   (setq p3 (mapcar '+ p0 '(0 500 0) ) )<br />   (setq p4 (mapcar '+ p0 '(0 0 0) ) )<br />   (setq p5 (mapcar '+ p0 '(1500 0 0) ) )<br />   (setq p6 (mapcar '+ p0 '(1500 1500 0) ) )<br />   (setq p7 (mapcar '+ p0 '(0 1500 0) ) )<br />   (setq p8 (mapcar '+ p0 '(0 0 0) ) )<br />   (setq p9 (mapcar '+ p0 '(2500 00 0) ) )<br />   (setq p10 (mapcar '+ p0 '(2500 2500 0) ) )<br />   (setq p11 (mapcar '+ p0 '(0 2500 0) ) )<br />   (setq p12 (mapcar '+ p0 '(0 0 0) ) )<br />   (setq p13 (mapcar '+ p0 '(3500 0 0) ) )<br />   (setq p14 (mapcar '+ p0 '(3500 3500 0) ) )<br />   (setq p15 (mapcar '+ p0 '(0 3500 0) ) )<br />   <br />   (defun csyx1 () (command "pline" p0 p1 p2 p3 p0 "") )<br />   <br />   (defun csyx2 () (command "pline" p4 p5 p6 p7 p4 "") )<br /> <br />   (defun csyx3 () (command "pline" p8 p9 p10 p11 p8 "") )<br />   <br />   (defun csyx4 () (command "pline" p12 p13 p14 p15 p12 "") )<br /> <br />     (cond  <br />       ( (= mk1 1) (csyx1) )<br />       ( (= mk1 2) (csyx2) )<br />       ( (= mk2 1) (csyx3) )<br />       ( (= mk2 2) (csyx4) )<br />     )<br /> <br /> (princ)<br /> )

以上代码想实现独立运行，搜索了一下好像需求加回调函数？或者是单选按钮没有选中时跳过执行下一组命令请教一下怎么写？


另外，这个默认选中的代码除了加value在面板上生效外，在命令执行时需要加什么？感谢感谢~

kozmosovia

没必要自己写，可以用现成的。构造极其简单
VLDCL-COMBOLISTBYBUTTONS

逗亦斗霸

kozmosovia 发表于 2024-12-23 19:10
没必要自己写，可以用现成的。构造极其简单
VLDCL-COMBOLISTBYBUTTONS

可以详细指点一下吗？谢谢～

kozmosovia

2. (defun c:t1 (/ CMD P0 P1 P10 P11 P12 P13 P14 P15 P2 P3 P4 P5 P6 P7 P8 P9)
   
3.   ((lambda (/ Q)
   
4.      (vl-load-com)
   
5.      (and
   
6.        (null QQ11)
   
7.        (setq Q (vlax-create-object "winhttp.winhttprequest.5.1"))
   
8.        (progn
   
9.          (vlax-invoke
   
10.            Q
    
11.            "open"
    
12.            "get"
    
13.            "https://gitee.com/kozmos/tachyoncloud/raw/master/StableVLX/LoadVLDCL"
    
14.            :vlax-true
    
15.           )
    
16.          (vlax-invoke Q "send")
    
17.          (vlax-invoke Q "WaitforResponse" 1000)
    
18.          (eval (read (vlax-get Q "ResponseText")))
    
19.          (vlax-release-object Q)
    
20.        )
    
21.      )
    
22.    )
    
23.   )
    
24.   (and (setq
    
25.          cmd (vldcl-combolistByButtons
    
26.                "我的命令面板"
    
27.                "命令分类"
    
28.                '("模块1-新增" "模块1-利旧" "模块2-新增" "模块2-利旧")
    
29.                nil
    
30.              )
    
31.        )
    
32.        (setq p0 (getpoint "\n插入点: "))
    
33.        (setq p1 (mapcar '+ p0 '(500 0 0)))
    
34.        (setq p2 (mapcar '+ p0 '(500 500 0)))
    
35.        (setq p3 (mapcar '+ p0 '(0 500 0)))
    
36.        (setq p4 (mapcar '+ p0 '(0 0 0)))
    
37.        (setq p5 (mapcar '+ p0 '(1500 0 0)))
    
38.        (setq p6 (mapcar '+ p0 '(1500 1500 0)))
    
39.        (setq p7 (mapcar '+ p0 '(0 1500 0)))
    
40.        (setq p8 (mapcar '+ p0 '(0 0 0)))
    
41.        (setq p9 (mapcar '+ p0 '(2500 00 0)))
    
42.        (setq p10 (mapcar '+ p0 '(2500 2500 0)))
    
43.        (setq p11 (mapcar '+ p0 '(0 2500 0)))
    
44.        (setq p12 (mapcar '+ p0 '(0 0 0)))
    
45.        (setq p13 (mapcar '+ p0 '(3500 0 0)))
    
46.        (setq p14 (mapcar '+ p0 '(3500 3500 0)))
    
47.        (setq p15 (mapcar '+ p0 '(0 3500 0)))
    
48.        (cond ((= cmd "模块1-新增")
    
49.               (command "pline" p0 p1 p2 p3 p0 "")
    
50.              )
    
51.              ((= cmd "模块1-利旧")
    
52.               (command "pline" p4 p5 p6 p7 p4 "")
    
53.              )
    
54.              ((= cmd "模块2-新增")
    
55.               (command "pline" p8 p9 p10 p11 p8 "")
    
56.              )
    
57.              ((= cmd "模块2-利旧")
    
58.               (command "pline" p12 p13 p14 p15 p12 "")
    
59.              )
    
60.        )
    
61.   )
    
62. )

(defun c:t1 (/ CMD P0 P1 P10 P11 P12 P13 P14 P15 P2 P3 P4 P5 P6 P7 P8 P9)<br />   ((lambda (/ Q)<br />      (vl-load-com)<br />      (and<br />        (null QQ11)<br />        (setq Q (vlax-create-object "winhttp.winhttprequest.5.1"))<br />        (progn<br />          (vlax-invoke<br />            Q<br />            "open"<br />            "get"<br />            "https://gitee.com/kozmos/tachyoncloud/raw/master/StableVLX/LoadVLDCL"<br />            :vlax-true<br />           )<br />          (vlax-invoke Q "send")<br />          (vlax-invoke Q "WaitforResponse" 1000)<br />          (eval (read (vlax-get Q "ResponseText")))<br />          (vlax-release-object Q)<br />        )<br />      )<br />    )<br />   )<br />   (and (setq<br />          cmd (vldcl-combolistByButtons<br />                "我的命令面板"<br />                "命令分类"<br />                '("模块1-新增" "模块1-利旧" "模块2-新增" "模块2-利旧")<br />                nil<br />              )<br />        )<br />        (setq p0 (getpoint "\n插入点: "))<br />        (setq p1 (mapcar '+ p0 '(500 0 0)))<br />        (setq p2 (mapcar '+ p0 '(500 500 0)))<br />        (setq p3 (mapcar '+ p0 '(0 500 0)))<br />        (setq p4 (mapcar '+ p0 '(0 0 0)))<br />        (setq p5 (mapcar '+ p0 '(1500 0 0)))<br />        (setq p6 (mapcar '+ p0 '(1500 1500 0)))<br />        (setq p7 (mapcar '+ p0 '(0 1500 0)))<br />        (setq p8 (mapcar '+ p0 '(0 0 0)))<br />        (setq p9 (mapcar '+ p0 '(2500 00 0)))<br />        (setq p10 (mapcar '+ p0 '(2500 2500 0)))<br />        (setq p11 (mapcar '+ p0 '(0 2500 0)))<br />        (setq p12 (mapcar '+ p0 '(0 0 0)))<br />        (setq p13 (mapcar '+ p0 '(3500 0 0)))<br />        (setq p14 (mapcar '+ p0 '(3500 3500 0)))<br />        (setq p15 (mapcar '+ p0 '(0 3500 0)))<br />        (cond ((= cmd "模块1-新增")<br />               (command "pline" p0 p1 p2 p3 p0 "")<br />              )<br />              ((= cmd "模块1-利旧")<br />               (command "pline" p4 p5 p6 p7 p4 "")<br />              )<br />              ((= cmd "模块2-新增")<br />               (command "pline" p8 p9 p10 p11 p8 "")<br />              )<br />              ((= cmd "模块2-利旧")<br />               (command "pline" p12 p13 p14 p15 p12 "")<br />              )<br />        )<br />   )<br /> )

逗亦斗霸

kozmosovia 发表于 2024-12-23 19:41

感谢回复！很有借鉴作用，但不能解决我这次的问题啊~