对话框返回

冒个烟圈

；来自阿甘兄弟的图层控制程序；
；因在线时间少不方便联系作者本人，请路过的朋友出手帮忙
；现在想让 “设当前层” 和 “浏览图层” 2个按钮执行相应CAD命令后，能返回对话框；



;图层控制 命令
;by-阿甘 2014.8.11
;主程序
(vl-load-com)
(defun c:NN (/ fname fn x dclid lin)
       (setq fname (vl-filename-mktemp nil nil ".dcl" ))
       (setq fn (open fname "w" ))
       (foreach x '(
                     "boxedGL:boxed_column{horizontal_margin=none;vertical_margin=none;} //自定义按钮"
                     "buttonGL:button{horizontal_margin=none;vertical_margin=none;} //自定义按钮"
                     "  agtckz : dialog{"
                     "  label=\"阿甘图层控制\";"
                     
                     "     :row{"
                     "     :boxedGL{"
                     "     label=\"图层\";"
                     "     :row{"
                     "      :buttonGL{key=\"1\";label=\"关 闭\";width=10;height=3;}"
                     "      :buttonGL{key=\"2\";label=\"关闭<反>\";width=10;height=3;}"
                     "      :buttonGL{key=\"3\";label=\"全部显示\";width=10;height=3;}"
                     "     }"

                     "     :row{"
                     "      :buttonGL{key=\"4\";label=\"冻 结\";width=10;height=3;}"
                     "      :buttonGL{key=\"5\";label=\"冻结<反>\";width=10;height=3;}"
                     "      :buttonGL{key=\"6\";label=\"全部解冻\";width=10;height=3;}"
                     "     }"
                     
                     "     :row{"
                     "      :buttonGL{key=\"7\";label=\"锁 定\";width=10;height=3;}"
                     "      :buttonGL{key=\"8\";label=\"锁定<反>\";width=10;height=3;}"
                     "      :buttonGL{key=\"9\";label=\"全部解锁\";width=10;height=3;}"
                     "     }"

                     "     :row{"
                     "      :buttonGL{key=\"10\";label=\"全部（显示＆解冻＆解锁）\";width=10;height=3;}"
                     "     }"  
                     "     }"

                     "     :boxedGL{"
                     "     label=\"状态\";"
                     "      :buttonGL{key=\"11\";label=\"设当前层\";width=10;height=2.35;}";;;;想让此按钮执行CAD命令LAYMCUR后返回对话框
                     "      :buttonGL{key=\"12\";label=\"置换图层\";width=10;height=2.35;}"
                     "      :buttonGL{key=\"13\";label=\"浏览图层\";width=10;height=2.35;}";;;;想让此按钮执行CAD命令laywalk后返回对话框
                     "      :buttonGL{key=\"14\";label=\"状态保存\";width=10;height=2.35;}"
                     "      :buttonGL{key=\"15\";label=\"状态恢复\";width=10;height=2.35;}"
                     "     }"
                     
                     "     :boxedGL{"
                     "     label=\"实体\";"
                     "      :buttonGL{key=\"16\";label=\"默认随层\";width=10;height=2.35;}"
                     "      :buttonGL{key=\"17\";label=\"隐藏图元\";width=10;height=2.35;}"
                     "      :buttonGL{key=\"18\";label=\"隐藏<反>\";width=10;height=2.35;}"
                     "      :buttonGL{key=\"19\";label=\"显示图元\";width=10;height=2.35;}"
                     "      :buttonGL{key=\"cancel\";label=\"退  出\";is_cancel=true;height=2.35;}"
                     "     }"
                     "     }"  
                     "}"
              );end ;endlist
              (princ x fn)
              (write-line "" fn)
       );end foreach
       (close fn)
       (setq fn (open fname "r" ))
       (setq dclid (load_dialog fname))
       (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" ))))
       (new_dialog (substr lin 1 (vl-string-search " " lin)) dclid)
       (action_tile "1" "(done_dialog 1)" )
       (action_tile "2" "(done_dialog 2)" )
       (action_tile "3" "(done_dialog 3)" )
       (action_tile "4" "(done_dialog 4)" )
       (action_tile "5" "(done_dialog 5)" )
       (action_tile "6" "(done_dialog 6)" )
       (action_tile "7" "(done_dialog 7)" )
       (action_tile "8" "(done_dialog 8)" )
       (action_tile "9" "(done_dialog 9)" )
       (action_tile "10" "(done_dialog 10)" )
       (action_tile "11" "(done_dialog 11)" )
       (action_tile "12" "(done_dialog 12)" )
       (action_tile "13" "(done_dialog 13)" )
       (action_tile "14" "(done_dialog 14)" )
       (action_tile "15" "(done_dialog 15)" )
       (action_tile "16" "(done_dialog 16)" )
       (action_tile "17" "(done_dialog 17)" )
       (action_tile "18" "(done_dialog 18)" )
       (action_tile "19" "(done_dialog 19)" )
       (action_tile "cancel" "(done_dialog 0)" )
      
       (setq re (start_dialog))
       (cond
              ((= re 1) (GL:tcgb))
              ((= re 2) (GL:tcgbf))
              ((= re 3) (GL:tcqbxs))
              ((= re 4) (GL:tcdj))
              ((= re 5) (GL:tcdjf))
              ((= re 6) (GL:tcqbjd))
              ((= re 7) (GL:tcsd))
              ((= re 8) (GL:tcsdf))
              ((= re 9) (GL:tcqbjs))
              ((= re 10) (GL:tcqbxjj))
              ((= re 11) (C:LAYMCUR))
              ((= re 12) (C:BN))
              ((= re 13) (command "laywalk"))
              ((= re 14) (bctczt))
              ((= re 15) (hftczt))
              ((= re 16) (ke:xkyssc))
              ((= re 17) (GL:ycwt))
              ((= re 18) (GL:yfwt))
              ((= re 19) (GL:xswt))
       );end cond
       (unload_dialog dclid)
       (close fn)
       (vl-file-delete fname)
       (princ)
)


该贴已经同步到 冒个烟圈的微博

冒个烟圈

请大家指点

kozmosovia

给(setq re (start_dialog))前面加个while判断

冒个烟圈

kozmosovia 发表于 2016-4-2 11:47
给(setq re (start_dialog))前面加个while判断

谢谢指点；
按你说的加while试过了，没成功，还请讲具体点。。

kozmosovia

(while (null re)
(setq re (start_dialog))
....
(cond
...
((= re 11) (C:LAYMCUR)(setq re nil))
..
((= re 13) (command "laywalk") (setq re nil))
....

冒个烟圈

kozmosovia 发表于 2016-4-2 21:07
(while (null re)
(setq re (start_dialog))
....

您好！
按以上方式添加后，设当前层这个按钮执行完laymcur命令没有自动返回对话框，再次启动对话框后CAD卡在对话框界面，按任何按键退不出对话框。
请问还有好方法吗？

kozmosovia

while位置放错了

2. 
   
3. (defun c:NN (/ DCLID FN FNAME RE)
   
4.   (setq        fname (vl-filename-mktemp nil nil ".dcl")
   
5.         fn    (open fname "w")
   
6.   )
   
7.   (foreach x
   
8.            '(
   
9.              "boxedGL:boxed_column{horizontal_margin=none;vertical_margin=none;} //自定义按钮"
   
10.              "buttonGL:button{horizontal_margin=none;vertical_margin=none;} //自定义按钮"
    
11.              "  agtckz : dialog{"
    
12.              "  label="阿甘图层控制";"
    
13. 
    
14.              "     :row{"
    
15.              "     :boxedGL{"
    
16.              "     label="图层";"
    
17.              "     :row{"
    
18.              "      :buttonGL{key="1";label="关 闭";width=10;height=3;}"
    
19.              "      :buttonGL{key="2";label="关闭<反>";width=10;height=3;}"
    
20.              "      :buttonGL{key="3";label="全部显示";width=10;height=3;}"
    
21.              "     }"
    
22. 
    
23.              "     :row{"
    
24.              "      :buttonGL{key="4";label="冻 结";width=10;height=3;}"
    
25.              "      :buttonGL{key="5";label="冻结<反>";width=10;height=3;}"
    
26.              "      :buttonGL{key="6";label="全部解冻";width=10;height=3;}"
    
27.              "     }"
    
28. 
    
29.              "     :row{"
    
30.              "      :buttonGL{key="7";label="锁 定";width=10;height=3;}"
    
31.              "      :buttonGL{key="8";label="锁定<反>";width=10;height=3;}"
    
32.              "      :buttonGL{key="9";label="全部解锁";width=10;height=3;}"
    
33.              "     }"
    
34. 
    
35.              "     :row{"
    
36.              "      :buttonGL{key="10";label="全部（显示＆解冻＆解锁）";width=10;height=3;}"
    
37.              "     }"
    
38.              "     }"
    
39. 
    
40.              "     :boxedGL{"
    
41.              "     label="状态";"
    
42.              "      :buttonGL{key="11";label="设当前层";width=10;height=2.35;}"
    
43. ;;;;想让此按钮执行CAD命令LAYMCUR后返回对话框
    
44.              "      :buttonGL{key="12";label="置换图层";width=10;height=2.35;}"
    
45.              "      :buttonGL{key="13";label="浏览图层";width=10;height=2.35;}"
    
46. ;;;;想让此按钮执行CAD命令laywalk后返回对话框
    
47.              "      :buttonGL{key="14";label="状态保存";width=10;height=2.35;}"
    
48.              "      :buttonGL{key="15";label="状态恢复";width=10;height=2.35;}"
    
49.              "     }"
    
50. 
    
51.              "     :boxedGL{"
    
52.              "     label="实体";"
    
53.              "      :buttonGL{key="16";label="默认随层";width=10;height=2.35;}"
    
54.              "      :buttonGL{key="17";label="隐藏图元";width=10;height=2.35;}"
    
55.              "      :buttonGL{key="18";label="隐藏<反>";width=10;height=2.35;}"
    
56.              "      :buttonGL{key="19";label="显示图元";width=10;height=2.35;}"
    
57.              "      :buttonGL{key="cancel";label="退  出";is_cancel=true;height=2.35;}"
    
58.              "     }"
    
59.              "     }"
    
60.              "}"
    
61.             )                                ;end ;endlist
    
62.     (princ x fn)
    
63.     (write-line "" fn)
    
64.   )                                        ;end foreach
    
65.   (close fn)
    
66.   (setq dclid (load_dialog fname))
    
67.   (while (null re)
    
68.     (new_dialog "agtckz" dclid)
    
69.     (action_tile "1" "(done_dialog 1)")
    
70.     (action_tile "2" "(done_dialog 2)")
    
71.     (action_tile "3" "(done_dialog 3)")
    
72.     (action_tile "4" "(done_dialog 4)")
    
73.     (action_tile "5" "(done_dialog 5)")
    
74.     (action_tile "6" "(done_dialog 6)")
    
75.     (action_tile "7" "(done_dialog 7)")
    
76.     (action_tile "8" "(done_dialog 8)")
    
77.     (action_tile "9" "(done_dialog 9)")
    
78.     (action_tile "10" "(done_dialog 10)")
    
79.     (action_tile "11" "(done_dialog 11)")
    
80.     (action_tile "12" "(done_dialog 12)")
    
81.     (action_tile "13" "(done_dialog 13)")
    
82.     (action_tile "14" "(done_dialog 14)")
    
83.     (action_tile "15" "(done_dialog 15)")
    
84.     (action_tile "16" "(done_dialog 16)")
    
85.     (action_tile "17" "(done_dialog 17)")
    
86.     (action_tile "18" "(done_dialog 18)")
    
87.     (action_tile "19" "(done_dialog 19)")
    
88.     (action_tile "cancel" "(done_dialog 0)")
    
89.     (setq re (start_dialog))
    
90.     (cond
    
91.       ((= re 1) (GL:tcgb))
    
92.       ((= re 2) (GL:tcgbf))
    
93.       ((= re 3) (GL:tcqbxs))
    
94.       ((= re 4) (GL:tcdj))
    
95.       ((= re 5) (GL:tcdjf))
    
96.       ((= re 6) (GL:tcqbjd))
    
97.       ((= re 7) (GL:tcsd))
    
98.       ((= re 8) (GL:tcsdf))
    
99.       ((= re 9) (GL:tcqbjs))
    
100.       ((= re 10) (GL:tcqbxjj))
     
101.       ((= re 11) (C:LAYMCUR) (setq re nil))
     
102.       ((= re 12) (C:BN))
     
103.       ((= re 13) (command "laywalk") (setq re nil))
     
104.       ((= re 14) (bctczt))
     
105.       ((= re 15) (hftczt))
     
106.       ((= re 16) (ke:xkyssc))
     
107.       ((= re 17) (GL:ycwt))
     
108.       ((= re 18) (GL:yfwt))
     
109.       ((= re 19) (GL:xswt))
     
110.     )
     
111.   )                                        ;end cond
     
112.   (unload_dialog dclid)
     
113.   (vl-file-delete fname)
     
114.   (princ)
     
115. )
     

<br /> (defun c:NN (/ DCLID FN FNAME RE)<br />   (setq        fname (vl-filename-mktemp nil nil ".dcl")<br />         fn    (open fname "w")<br />   )<br />   (foreach x<br />            '(<br />              "boxedGL:boxed_column{horizontal_margin=none;vertical_margin=none;} //自定义按钮"<br />              "buttonGL:button{horizontal_margin=none;vertical_margin=none;} //自定义按钮"<br />              "  agtckz : dialog{"<br />              "  label="阿甘图层控制";"<br /> <br />              "     :row{"<br />              "     :boxedGL{"<br />              "     label="图层";"<br />              "     :row{"<br />              "      :buttonGL{key="1";label="关 闭";width=10;height=3;}"<br />              "      :buttonGL{key="2";label="关闭<反>";width=10;height=3;}"<br />              "      :buttonGL{key="3";label="全部显示";width=10;height=3;}"<br />              "     }"<br /> <br />              "     :row{"<br />              "      :buttonGL{key="4";label="冻 结";width=10;height=3;}"<br />              "      :buttonGL{key="5";label="冻结<反>";width=10;height=3;}"<br />              "      :buttonGL{key="6";label="全部解冻";width=10;height=3;}"<br />              "     }"<br /> <br />              "     :row{"<br />              "      :buttonGL{key="7";label="锁 定";width=10;height=3;}"<br />              "      :buttonGL{key="8";label="锁定<反>";width=10;height=3;}"<br />              "      :buttonGL{key="9";label="全部解锁";width=10;height=3;}"<br />              "     }"<br /> <br />              "     :row{"<br />              "      :buttonGL{key="10";label="全部（显示＆解冻＆解锁）";width=10;height=3;}"<br />              "     }"<br />              "     }"<br /> <br />              "     :boxedGL{"<br />              "     label="状态";"<br />              "      :buttonGL{key="11";label="设当前层";width=10;height=2.35;}"<br /> ;;;;想让此按钮执行CAD命令LAYMCUR后返回对话框<br />              "      :buttonGL{key="12";label="置换图层";width=10;height=2.35;}"<br />              "      :buttonGL{key="13";label="浏览图层";width=10;height=2.35;}"<br /> ;;;;想让此按钮执行CAD命令laywalk后返回对话框<br />              "      :buttonGL{key="14";label="状态保存";width=10;height=2.35;}"<br />              "      :buttonGL{key="15";label="状态恢复";width=10;height=2.35;}"<br />              "     }"<br /> <br />              "     :boxedGL{"<br />              "     label="实体";"<br />              "      :buttonGL{key="16";label="默认随层";width=10;height=2.35;}"<br />              "      :buttonGL{key="17";label="隐藏图元";width=10;height=2.35;}"<br />              "      :buttonGL{key="18";label="隐藏<反>";width=10;height=2.35;}"<br />              "      :buttonGL{key="19";label="显示图元";width=10;height=2.35;}"<br />              "      :buttonGL{key="cancel";label="退  出";is_cancel=true;height=2.35;}"<br />              "     }"<br />              "     }"<br />              "}"<br />             )                                ;end ;endlist<br />     (princ x fn)<br />     (write-line "" fn)<br />   )                                        ;end foreach<br />   (close fn)<br />   (setq dclid (load_dialog fname))<br />   (while (null re)<br />     (new_dialog "agtckz" dclid)<br />     (action_tile "1" "(done_dialog 1)")<br />     (action_tile "2" "(done_dialog 2)")<br />     (action_tile "3" "(done_dialog 3)")<br />     (action_tile "4" "(done_dialog 4)")<br />     (action_tile "5" "(done_dialog 5)")<br />     (action_tile "6" "(done_dialog 6)")<br />     (action_tile "7" "(done_dialog 7)")<br />     (action_tile "8" "(done_dialog 8)")<br />     (action_tile "9" "(done_dialog 9)")<br />     (action_tile "10" "(done_dialog 10)")<br />     (action_tile "11" "(done_dialog 11)")<br />     (action_tile "12" "(done_dialog 12)")<br />     (action_tile "13" "(done_dialog 13)")<br />     (action_tile "14" "(done_dialog 14)")<br />     (action_tile "15" "(done_dialog 15)")<br />     (action_tile "16" "(done_dialog 16)")<br />     (action_tile "17" "(done_dialog 17)")<br />     (action_tile "18" "(done_dialog 18)")<br />     (action_tile "19" "(done_dialog 19)")<br />     (action_tile "cancel" "(done_dialog 0)")<br />     (setq re (start_dialog))<br />     (cond<br />       ((= re 1) (GL:tcgb))<br />       ((= re 2) (GL:tcgbf))<br />       ((= re 3) (GL:tcqbxs))<br />       ((= re 4) (GL:tcdj))<br />       ((= re 5) (GL:tcdjf))<br />       ((= re 6) (GL:tcqbjd))<br />       ((= re 7) (GL:tcsd))<br />       ((= re 8) (GL:tcsdf))<br />       ((= re 9) (GL:tcqbjs))<br />       ((= re 10) (GL:tcqbxjj))<br />       ((= re 11) (C:LAYMCUR) (setq re nil))<br />       ((= re 12) (C:BN))<br />       ((= re 13) (command "laywalk") (setq re nil))<br />       ((= re 14) (bctczt))<br />       ((= re 15) (hftczt))<br />       ((= re 16) (ke:xkyssc))<br />       ((= re 17) (GL:ycwt))<br />       ((= re 18) (GL:yfwt))<br />       ((= re 19) (GL:xswt))<br />     )<br />   )                                        ;end cond<br />   (unload_dialog dclid)<br />   (vl-file-delete fname)<br />   (princ)<br /> )<br />

冒个烟圈

现在完全可以了，感谢您的热心解答，又学会了一点。

冒个烟圈

kozmosovia 发表于 2016-4-3 10:21
while位置放错了

现在完全可以了，感谢您的热心解答，又学会了一招。

冒个烟圈

kozmosovia 发表于 2016-4-3 10:21
while位置放错了

再请教一下，您删掉的那几行主要控制哪里或者说是起什么作用的？