请问同一个DCL对话框中radio_button切换和执行命令的功能可否同时存在？谢谢~

逗亦斗霸

2. (vl-load-com)
   
3. (defun c:tt (/ fname fn x dclid lin)
   
4.        (setq fname (vl-filename-mktemp nil nil ".dcl" ))
   
5.        (setq fn (open fname "w" ))
   
6.        (foreach x '(
   
7. 
   
8. 
   
9. 
   
10.                      "  agtckz : dialog{"
    
11.                      "  label="测试一下";"
    
12.                      
    
13. 
    
14.         ":radio_column {"
    
15.      
    
16.         ":row {"
    
17. 
    
18.         ":radio_button {key = "11" ;label ="界面一" ;value = "1";width=10;}"
    
19.         ":radio_button {key = "12" ;label ="界面二" ;width=10;}"
    
20.        " }"
    
21.        " }"
    
22. 
    
23. 
    
24.                      "     :row{"
    
25.                      "     :boxed_column{"
    
26.                      "     :row{"
    
27.                      "      :radio_button{key="1";label="按钮1";width=10;}"
    
28.                      "      :radio_button{key="2";label="按钮2";width=10;}"
    
29.                      "     }"
    
30. 
    
31. 
    
32.                      "     }"
    
33.                      "     }"
    
34. 
    
35.                      "ok_cancel;"
    
36. 
    
37.                      "}"
    
38. 
    
39.               );end ;endlist
    
40.               (princ x fn)
    
41.               (write-line "" fn)
    
42.        );end foreach
    
43.        (close fn)
    
44.        (setq fn (open fname "r" ))
    
45.        (setq dclid (load_dialog fname))
    
46.        (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))
    
47.        (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
    
48. 
    
49.        (action_tile "1" "(done_dialog 1)" )
    
50.        (action_tile "2" "(done_dialog 2)" )
    
51.        (action_tile "11" "(done_dialog 11)" )
    
52.        (action_tile "12" "(done_dialog 12)" )
    
53. 
    
54.    
    
55. 
    
56.        (action_tile "cancel" "(done_dialog 0)" )
    
57.        (setq re (start_dialog))
    
58.        (cond
    
59.               ((= re 1) (GL:1))
    
60.               ((= re 2) (GL:2))
    
61.               ((= re 11) (c:qq))
    
62.               ((= re 12) (c:yx_zy))
    
63. 
    
64. 
    
65.        );end cond
    
66.        (unload_dialog dclid)
    
67.        (close fn)
    
68.        (vl-file-delete fname)
    
69.        (princ)
    
70. )
    
71. 
    
72. 
    
73. (vl-load-com)
    
74. (defun c:yx_zy (/ fname fn x dclid lin)
    
75.        (setq fname (vl-filename-mktemp nil nil ".dcl" ))
    
76.        (setq fn (open fname "w" ))
    
77.        (foreach x '(
    
78. 
    
79. 
    
80. 
    
81.                      "  agtckz : dialog{"
    
82.                      "  label="测试一下";"
    
83.                      
    
84. 
    
85. 
    
86. 
    
87.         ":row {"
    
88. 
    
89.         ":radio_button {key = "11" ;label ="界面一" ;width=10;}"
    
90.         ":radio_button {key = "12" ;label ="界面二" ;value = "1";width=10;}"
    
91.        " }"
    
92. 
    
93. 
    
94. 
    
95.                      "     :row{"
    
96.                      "     :boxed_column{"
    
97.                      "     :row{"
    
98.                      "      :radio_button{key="3";label="按钮3";width=10;}"
    
99.                      "      :radio_button{key="4";label="按钮4";width=10;}"
    
100.                      "     }"
     
101. 
     
102. 
     
103.                      "     }"
     
104.                      "     }"
     
105. 
     
106.                      "ok_cancel;"
     
107. 
     
108.                      "}"
     
109. 
     
110.               );end ;endlist
     
111.               (princ x fn)
     
112.               (write-line "" fn)
     
113.        );end foreach
     
114.        (close fn)
     
115.        (setq fn (open fname "r" ))
     
116.        (setq dclid (load_dialog fname))
     
117.        (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))
     
118.        (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
     
119. 
     
120.        (action_tile "3" "(done_dialog 3)" )
     
121.        (action_tile "4" "(done_dialog 4)" )
     
122.        (action_tile "11" "(done_dialog 11)" )
     
123.        (action_tile "12" "(done_dialog 12)" )
     
124.    
     
125. 
     
126.        (action_tile "cancel" "(done_dialog 0)" )
     
127.        (setq re (start_dialog))
     
128.        (cond
     
129.               ((= re 3) (GL:3))
     
130.               ((= re 4) (GL:4))
     
131.               ((= re 11) (c:qq))
     
132.               ((= re 12) (c:yx_zy))
     
133. 
     
134.      
     
135.        );end cond
     
136.        (unload_dialog dclid)
     
137.        (close fn)
     
138.        (vl-file-delete fname)
     
139.        (princ)
     
140. )
     

(vl-load-com)<br /> (defun c:tt (/ fname fn x dclid lin)<br />        (setq fname (vl-filename-mktemp nil nil ".dcl" ))<br />        (setq fn (open fname "w" ))<br />        (foreach x '(<br /> <br /> <br /> <br />                      "  agtckz : dialog{" <br />                      "  label="测试一下";"<br />                      <br /> <br />         ":radio_column {"<br />      <br />         ":row {"<br /> <br />         ":radio_button {key = "11" ;label ="界面一" ;value = "1";width=10;}"<br />         ":radio_button {key = "12" ;label ="界面二" ;width=10;}"<br />        " }"<br />        " }"<br /> <br /> <br />                      "     :row{" <br />                      "     :boxed_column{"<br />                      "     :row{"<br />                      "      :radio_button{key="1";label="按钮1";width=10;}" <br />                      "      :radio_button{key="2";label="按钮2";width=10;}" <br />                      "     }"<br /> <br /> <br />                      "     }"<br />                      "     }" <br /> <br />                      "ok_cancel;"<br /> <br />                      "}" <br /> <br />               );end ;endlist<br />               (princ x fn)<br />               (write-line "" fn)<br />        );end foreach<br />        (close fn)<br />        (setq fn (open fname "r" ))<br />        (setq dclid (load_dialog fname))<br />        (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))<br />        (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)<br /> <br />        (action_tile "1" "(done_dialog 1)" )<br />        (action_tile "2" "(done_dialog 2)" )<br />        (action_tile "11" "(done_dialog 11)" )<br />        (action_tile "12" "(done_dialog 12)" )<br /> <br />    <br /> <br />        (action_tile "cancel" "(done_dialog 0)" )<br />        (setq re (start_dialog))<br />        (cond<br />               ((= re 1) (GL:1))<br />               ((= re 2) (GL:2))<br />               ((= re 11) (c:qq))<br />               ((= re 12) (c:yx_zy))<br /> <br /> <br />        );end cond<br />        (unload_dialog dclid)<br />        (close fn)<br />        (vl-file-delete fname)<br />        (princ)<br /> )<br /> <br /> <br /> (vl-load-com)<br /> (defun c:yx_zy (/ fname fn x dclid lin)<br />        (setq fname (vl-filename-mktemp nil nil ".dcl" ))<br />        (setq fn (open fname "w" ))<br />        (foreach x '(<br /> <br /> <br /> <br />                      "  agtckz : dialog{" <br />                      "  label="测试一下";"<br />                      <br /> <br /> <br /> <br />         ":row {"<br /> <br />         ":radio_button {key = "11" ;label ="界面一" ;width=10;}"<br />         ":radio_button {key = "12" ;label ="界面二" ;value = "1";width=10;}"<br />        " }"<br /> <br /> <br /> <br />                      "     :row{" <br />                      "     :boxed_column{"<br />                      "     :row{"<br />                      "      :radio_button{key="3";label="按钮3";width=10;}" <br />                      "      :radio_button{key="4";label="按钮4";width=10;}" <br />                      "     }"<br /> <br /> <br />                      "     }"<br />                      "     }" <br /> <br />                      "ok_cancel;"<br /> <br />                      "}" <br /> <br />               );end ;endlist<br />               (princ x fn)<br />               (write-line "" fn)<br />        );end foreach<br />        (close fn)<br />        (setq fn (open fname "r" ))<br />        (setq dclid (load_dialog fname))<br />        (while (or (eq (substr (setq lin (vl-string-right-trim "" fn)" (vl-string-left-trim "(write-line "" (read-line fn)))) 1 2) "//" ) (eq (substr lin 1 (vl-string-search " " lin)) "" ) (not (eq (substr lin (+ (vl-string-search " " lin) 1) 9) " : dialog" ))))<br />        (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)<br /> <br />        (action_tile "3" "(done_dialog 3)" )<br />        (action_tile "4" "(done_dialog 4)" )<br />        (action_tile "11" "(done_dialog 11)" )<br />        (action_tile "12" "(done_dialog 12)" )<br />     <br /> <br />        (action_tile "cancel" "(done_dialog 0)" )<br />        (setq re (start_dialog))<br />        (cond<br />               ((= re 3) (GL:3))<br />               ((= re 4) (GL:4))<br />               ((= re 11) (c:qq))<br />               ((= re 12) (c:yx_zy))<br /> <br />      <br />        );end cond<br />        (unload_dialog dclid)<br />        (close fn)<br />        (vl-file-delete fname)<br />        (princ)<br /> )<br />

我想点“界面一”和“界面二”时无需再点“确定”即可切换对话框，但选取“按钮1~4”则需要点“确定”才能执行接下来设置好的命令，尝试改cond，但没成功，想请问一下怎么修改才可以？谢谢~

逗亦斗霸

飞雪神光 发表于 2024-12-30 18:04
你这里的OK控件是 accept 所以按钮1~4不能用done_dialog结束 要用过 accept 结束后判断 按钮值

1.(entmake (list '(0 . "CIRCLE") (cons 10 pt1) (cons 40 100 ) ) );
2.(entmake (list '(0 . "HATCH") '(100 . "AcDbEntity") '(100 . "AcDbHatch") '(10 0.0 0.0 0.0) '(210 0.0 0.0 1.0) '(2 . "SOLID") '(70 . 1) '(71 . 0) '(91 . 1) '(92 . 1) '(93 . 1) '(72 . 2) (cons 10 pt2) (cons 40 100 ) '(50 . 0.0) (cons 51 (* 2 pi) ) '(73 . 1) '(97 . 0) '(75 . 1) '(76 . 1) '(98 . 1) '(10 0 0 0.0) ) );
3.(entmake (list '(0 . "HATCH") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") '(100 . "AcDbHatch") '(10 0.0 0.0 0.0) '(210 0.0 0.0 1.0) '(2 . "SOLID") '(70 . 1) '(71 . 0) '(91 . 1) '(92 . 3) '(72 . 0) '(73 . 1) '(93 . 4) (cons 10 pt3) (cons 10 pt4) (cons 10 pt5) (cons 10 pt6) '(97 . 0) '(75 . 0) '(76 . 1) '(98 . 0) ) )。
另外，请教一下飞版：这样的代码能否实现多个指定位置批量生成啊？

逗亦斗霸

飞雪神光 发表于 2025-1-8 10:49
没研究过entmake创建填充 你可以试试填充后再去设置 组码 或者 vl的方法

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=180589

http://bbs.mjtd.com/thread-178354-1-1.html
先前我在这两帖子里分别找到了和飞版一样的答案，看来entmake也不是万能的，先前生成中文字体样式的时候也有问题，再请问一下飞版，这个vla-put-是什么个情况呢？接触过几段代码了，但感觉陌生又神奇，能推荐点学习资料不？谢谢~

飞雪神光

逗亦斗霸 发表于 2025-1-8 10:35
请问飞版，entmake生成填充时，图案不能用组码52和53来设置角度吗？也不能用组码41来调整比例？不能私信 ...

没研究过entmake创建填充 你可以试试填充后再去设置 组码 或者 vl的方法

1. (vla-put-patternscale hatchobj scale)
   
2.         (vla-put-patternangle hatchobj rad)

(vla-put-patternscale hatchobj scale)<br />         (vla-put-patternangle hatchobj rad)

飞雪神光

你这里的OK控件是 accept 所以按钮1~4不能用done_dialog结束 要用过 accept 结束后判断 按钮值

飞雪神光

kozmosovia

如果点了radio_button就关闭DCL，就没必要用radio_button，直接用button更容易让自己理解逻辑

逗亦斗霸

飞雪神光 发表于 2024-12-30 18:04
你这里的OK控件是 accept 所以按钮1~4不能用done_dialog结束 要用过 accept 结束后判断 按钮值

感谢飞版回复！是的，切换按钮都不用点“确定”就能生效(new_dialog)，后面的功能按钮需要点确定才执行，因为后面的功能是想做多组单选的，所以才来咨询，您楼下发的那个插件好像用不了呀~

逗亦斗霸

kozmosovia 发表于 2024-12-30 19:11
如果点了radio_button就关闭DCL，就没必要用radio_button，直接用button更容易让自己理解逻辑

是的，我也是突发奇想

黄翔

是这种效果吗?

逗亦斗霸

黄翔 发表于 2024-12-31 10:04
是这种效果吗?

不是哦，都是选择按钮~

xyp1964

;; 怪异的逻辑关系