【对话框】 如何在二级对话框返回到一级对话框？（已解决）

qcw911

2. (defun c:dlg ()
   
3. (setq dcl_id (load_dialog "dlg.dcl"))
   
4. (setq do_what 2)
   
5. (while (>= do_what 2)
   
6. (if (= null (new_dialog "dlg" dcl_id))
   
7. (progn
   
8. (princ "\n没有对话框")
   
9. (setq dialogshow nil)
   
10. (exit)
    
11. ) ;_ end of progn
    
12. ) ;_ end of if
    
13. (action_tile "button_A" "(done_dialog 1)")
    
14. (action_tile "button_B" "(done_dialog 2)")
    
15. (action_tile "button_C" "(done_dialog 3)")
    
16. (action_tile "button_T" "(done_dialog 4)")
    
17. ;;; (action_tile "accept" "(done_dialog 1)")
    
18. (setq do_what (start_dialog))
    
19. (cond
    
20. ((= do_what 1)
    
21. (next1)
    
22. )
    
23. ((= do_what 2)
    
24. (next2)
    
25. )
    
26. ((= do_what 3)
    
27. (next3)
    
28. )
    
29. ((= do_what 4)
    
30. (next4)
    
31. )
    
32. ;;; ((= do_what 5)
    
33. ;;; (next5)
    
34. ;;; )
    
35. ) ;_ end of cond
    
36. ) ;_ end of while
    
37. (unload_dialog dcl_id)
    
38. ) ;_ end of defun
    
39. (defun next1 ()
    
40. (new_dialog "dlg_A" dcl_id)
    
41. (action_tile "A_1" "(done_dialog 1)")
    
42. (action_tile "return" "(done_dialog 2)(load_dialog dlg)")
    
43. (setq dial (start_dialog))
    
44. (if (= dial 1)
    
45. ;;; (alert "调用A")
    
46. (command "line" (getpoint) (getpoint) "")
    
47. ) ;_ end of if
    
48. ;;; (unload_dialog dcl_i)
    
49. ) ;_ end of defun
    
50. (defun next2 ()
    
51. (new_dialog "dlg_B" dcl_id)
    
52. (action_tile "B_1" "(done_dialog 1)")
    
53. (setq dial (start_dialog))
    
54. (if (= dial 1)
    
55. (alert "调用B")
    
56. ) ;_ end of if
    
57. ;;; (unload_dialog dcl_i)
    
58. )
    
59. (defun next3 ()
    
60. (new_dialog "dlg_C" dcl_id)
    
61. (action_tile "C_1" "(done_dialog 1)")
    
62. (setq dial (start_dialog))
    
63. (if (= dial 1)
    
64. (alert "调用C")
    
65. ) ;_ end of if
    
66. ;;; (unload_dialog dcl_i)
    
67. )
    
68. (defun next4 ()
    
69. (new_dialog "dlg_T" dcl_id)
    
70. (action_tile "T_1" "(done_dialog 1)")
    
71. (setq dial (start_dialog))
    
72. (if (= dial 1)
    
73. (alert "调用T")
    
74. ) ;_ end of if
    
75. ;;; (unload_dialog dcl_i)
    
76. )
    

(defun c:dlg ()<br /> (setq dcl_id (load_dialog "dlg.dcl"))<br /> (setq do_what 2)<br /> (while (>= do_what 2)<br /> (if (= null (new_dialog "dlg" dcl_id))<br /> (progn<br /> (princ "\n没有对话框")<br /> (setq dialogshow nil)<br /> (exit)<br /> ) ;_ end of progn<br /> ) ;_ end of if<br /> (action_tile "button_A" "(done_dialog 1)")<br /> (action_tile "button_B" "(done_dialog 2)")<br /> (action_tile "button_C" "(done_dialog 3)")<br /> (action_tile "button_T" "(done_dialog 4)")<br /> ;;; (action_tile "accept" "(done_dialog 1)")<br /> (setq do_what (start_dialog))<br /> (cond<br /> ((= do_what 1)<br /> (next1)<br /> )<br /> ((= do_what 2)<br /> (next2)<br /> )<br /> ((= do_what 3)<br /> (next3)<br /> )<br /> ((= do_what 4)<br /> (next4)<br /> )<br /> ;;; ((= do_what 5)<br /> ;;; (next5)<br /> ;;; )<br /> ) ;_ end of cond<br /> ) ;_ end of while<br /> (unload_dialog dcl_id)<br /> ) ;_ end of defun<br /> (defun next1 ()<br /> (new_dialog "dlg_A" dcl_id)<br /> (action_tile "A_1" "(done_dialog 1)")<br /> (action_tile "return" "(done_dialog 2)(load_dialog dlg)")<br /> (setq dial (start_dialog))<br /> (if (= dial 1)<br /> ;;; (alert "调用A")<br /> (command "line" (getpoint) (getpoint) "")<br /> ) ;_ end of if<br /> ;;; (unload_dialog dcl_i)<br /> ) ;_ end of defun<br /> (defun next2 ()<br /> (new_dialog "dlg_B" dcl_id)<br /> (action_tile "B_1" "(done_dialog 1)")<br /> (setq dial (start_dialog))<br /> (if (= dial 1)<br /> (alert "调用B")<br /> ) ;_ end of if<br /> ;;; (unload_dialog dcl_i)<br /> )<br /> (defun next3 ()<br /> (new_dialog "dlg_C" dcl_id)<br /> (action_tile "C_1" "(done_dialog 1)")<br /> (setq dial (start_dialog))<br /> (if (= dial 1)<br /> (alert "调用C")<br /> ) ;_ end of if<br /> ;;; (unload_dialog dcl_i)<br /> )<br /> (defun next4 ()<br /> (new_dialog "dlg_T" dcl_id)<br /> (action_tile "T_1" "(done_dialog 1)")<br /> (setq dial (start_dialog))<br /> (if (= dial 1)<br /> (alert "调用T")<br /> ) ;_ end of if<br /> ;;; (unload_dialog dcl_i)<br /> )<br />

1. dlg:dialog {
   
2.     label = "lixil    qiuw1" ;
   
3.     :row {
   
4.         label = "商品样式" ;
   
5.         :column {
   
6.             :button {
   
7.                 height = 3 ;
   
8.                 key = "button_A" ;
   
9.                 label = "A样式..." ;
   
10.                 width = 20 ;
    
11.             }
    
12.             :button {
    
13.                 height = 3 ;
    
14.                 key = "button_B" ;
    
15.                 label = "B样式..." ;
    
16.                 width = 20 ;
    
17.             }
    
18.         }
    
19.         :column {
    
20.             :button {
    
21.                 height = 3 ;
    
22.                 key = "button_C" ;
    
23.                 label = "C样式..." ;
    
24.                 width = 20 ;
    
25.             }
    
26.             :button {
    
27.                 height = 3 ;
    
28.                 key = "button_T" ;
    
29.                 label = "其他..." ;
    
30.                 width = 20 ;
    
31.             }
    
32.         }
    
33.     }
    
34.     cancel_button;
    
35. }
    
36. 
    
37. dlg_A:dialog {
    
38.     label = "A样式" ;
    
39.     :row {
    
40.         :column {
    
41.             :text {
    
42.                 label = "A-1样式" ;
    
43.             }
    
44.             :image_button {
    
45.                 color = black ;
    
46.                 height = 10 ;
    
47.                 key = "A_1" ;
    
48.                 width = 30 ;
    
49.             }
    
50.         }
    
51.         :column {
    
52.             :text {
    
53.                 label = "A-2样式" ;
    
54.             }
    
55.             :image_button {
    
56.                 color = black ;
    
57.                 height = 10 ;
    
58.                 key = "A_2" ;
    
59.                 width = 30 ;
    
60.             }
    
61.         }
    
62.     }
    
63.     :row {
    
64.         :column {
    
65.             :text {
    
66.                 label = "A-3样式" ;
    
67.             }
    
68.             :image_button {
    
69.                 color = black ;
    
70.                 height = 10 ;
    
71.                 key = "A_3" ;
    
72.                 width = 30 ;
    
73.             }
    
74.         }
    
75.         :column {
    
76.             :text {
    
77.                 label = "A-4样式" ;
    
78.             }
    
79.             :image_button {
    
80.                 color = black ;
    
81.                 height = 10 ;
    
82.                 key = "A_4" ;
    
83.                 width = 30 ;
    
84.             }
    
85.         }
    
86.     }
    
87.     :button {
    
88.              key = "return";
    
89.              label = "返回";
    
90.              height = 3;
    
91.              }
    
92.     spacer_1;
    
93.     cancel_button;
    
94. }
    
95. 
    
96. dlg_B:dialog {
    
97.     label = "B样式" ;
    
98.     :row {
    
99.         :column {
    
100.             :text {
     
101.                 label = "B-1样式" ;
     
102.             }
     
103.             :image_button {
     
104.                 color = black ;
     
105.                 height = 10 ;
     
106.                 key = "B_1" ;
     
107.                 width = 30 ;
     
108.             }
     
109.         }
     
110.         :column {
     
111.             :text {
     
112.                 label = "B-2样式" ;
     
113.             }
     
114.             :image_button {
     
115.                 color = black ;
     
116.                 height = 10 ;
     
117.                 key = "B_2" ;
     
118.                 width = 30 ;
     
119.             }
     
120.         }
     
121.         :column {
     
122.             :text {
     
123.                 label = "B-3样式" ;
     
124.             }
     
125.             :image_button {
     
126.                 color = black ;
     
127.                 height = 10 ;
     
128.                 key = "B_3" ;
     
129.                 width = 30 ;
     
130.             }
     
131.         }
     
132.     }
     
133.     :row {
     
134.         :column {
     
135.             :text {
     
136.                 label = "B-4样式" ;
     
137.             }
     
138.             :image_button {
     
139.                 color = black ;
     
140.                 height = 10 ;
     
141.                 key = "B_4" ;
     
142.                 width = 30 ;
     
143.             }
     
144.         }
     
145.         :column {
     
146.             :text {
     
147.                 label = "B-5样式" ;
     
148.             }
     
149.             :image_button {
     
150.                 color = black ;
     
151.                 height = 10 ;
     
152.                 key = "B_5" ;
     
153.                 width = 30 ;
     
154.             }
     
155.         }
     
156.         :column {
     
157.             :text {
     
158.                 label = "B-6样式" ;
     
159.             }
     
160.             :image_button {
     
161.                 color = black ;
     
162.                 height = 10 ;
     
163.                 key = "B_6" ;
     
164.                 width = 30 ;
     
165.             }
     
166.         }
     
167.     }
     
168.         :button {
     
169.              key = "return";
     
170.              label = "返回";
     
171.              height = 3;
     
172.              }
     
173.     spacer_1;
     
174.     cancel_button;
     
175. }
     
176. 
     
177. dlg_C:dialog {
     
178.     label = "C样式" ;
     
179.     :row {
     
180.         :column {
     
181.             :text {
     
182.                 label = "C-1样式" ;
     
183.             }
     
184.             :image_button {
     
185.                 color = black ;
     
186.                 height = 10 ;
     
187.                 key = "C_1" ;
     
188.                 width = 30 ;
     
189.             }
     
190.         }
     
191.         :column {
     
192.             :text {
     
193.                 label = "C-2样式" ;
     
194.             }
     
195.             :image_button {
     
196.                 color = black ;
     
197.                 height = 10 ;
     
198.                 key = "C_2" ;
     
199.                 width = 30 ;
     
200.             }
     
201.         }
     
202.     }
     
203.     :row {
     
204.         :column {
     
205.             :text {
     
206.                 label = "C-3样式" ;
     
207.             }
     
208.             :image_button {
     
209.                 color = black ;
     
210.                 height = 10 ;
     
211.                 key = "C_3" ;
     
212.                 width = 30 ;
     
213.             }
     
214.         }
     
215.         :column {
     
216.             :text {
     
217.                 label = "C-4样式" ;
     
218.             }
     
219.             :image_button {
     
220.                 color = black ;
     
221.                 height = 10 ;
     
222.                 key = "C_4" ;
     
223.                 width = 30 ;
     
224.             }
     
225.         }
     
226.     }
     
227.      :button {
     
228.              key = "return";
     
229.              label = "返回";
     
230.              height = 3;
     
231.              }
     
232.     spacer_1;
     
233.     cancel_button;
     
234. }
     
235. 
     
236. dlg_T:dialog {
     
237.     label = "T样式" ;
     
238.     :row {
     
239.         :column {
     
240.             :text {
     
241.                 label = "T-1样式" ;
     
242.             }
     
243.             :image_button {
     
244.                 color = black ;
     
245.                 height = 10 ;
     
246.                 key = "T_1" ;
     
247.                 width = 30 ;
     
248.             }
     
249.         }
     
250.         :column {
     
251.             :text {
     
252.                 label = "T-2样式" ;
     
253.             }
     
254.             :image_button {
     
255.                 color = black ;
     
256.                 height = 10 ;
     
257.                 key = "T_2" ;
     
258.                 width = 30 ;
     
259.             }
     
260.         }
     
261.         :column {
     
262.             :text {
     
263.                 label = "T-3样式" ;
     
264.             }
     
265.             :image_button {
     
266.                 color = black ;
     
267.                 height = 10 ;
     
268.                 key = "T_3" ;
     
269.                 width = 30 ;
     
270.             }
     
271.         }
     
272.         :column {
     
273.             :text {
     
274.                 label = "T-4样式" ;
     
275.             }
     
276.             :image_button {
     
277.                 color = black ;
     
278.                 height = 10 ;
     
279.                 key = "T_4" ;
     
280.                 width = 30 ;
     
281.             }
     
282.         }
     
283.     }
     
284.     :row {
     
285.         :column {
     
286.             :text {
     
287.                 label = "T-5样式" ;
     
288.             }
     
289.             :image_button {
     
290.                 color = black ;
     
291.                 height = 10 ;
     
292.                 key = "T_5" ;
     
293.                 width = 30 ;
     
294.             }
     
295.         }
     
296.         :column {
     
297.             :text {
     
298.                 label = "T-6样式" ;
     
299.             }
     
300.             :image_button {
     
301.                 color = black ;
     
302.                 height = 10 ;
     
303.                 key = "T_6" ;
     
304.                 width = 30 ;
     
305.             }
     
306.         }
     
307.         :column {
     
308.             :text {
     
309.                 label = "T-7样式" ;
     
310.             }
     
311.             :image_button {
     
312.                 color = black ;
     
313.                 height = 10 ;
     
314.                 key = "T_7" ;
     
315.                 width = 30 ;
     
316.             }
     
317.         }
     
318.         :column {
     
319.             :text {
     
320.                 label = "T-8样式" ;
     
321.             }
     
322.             :image_button {
     
323.                 color = black ;
     
324.                 height = 10 ;
     
325.                 key = "T_8" ;
     
326.                 width = 30 ;
     
327.             }
     
328.         }
     
329.     }
     
330.       :button {
     
331.              key = "return";
     
332.              label = "返回";
     
333.              height = 3;
     
334.              }
     
335.     spacer_1;
     
336.     cancel_button;
     
337. }
     

dlg:dialog {<br />     label = "lixil    qiuw1" ;<br />     :row {<br />         label = "商品样式" ;<br />         :column {<br />             :button {<br />                 height = 3 ;<br />                 key = "button_A" ;<br />                 label = "A样式..." ;<br />                 width = 20 ;<br />             }<br />             :button {<br />                 height = 3 ;<br />                 key = "button_B" ;<br />                 label = "B样式..." ;<br />                 width = 20 ;<br />             }<br />         }<br />         :column {<br />             :button {<br />                 height = 3 ;<br />                 key = "button_C" ;<br />                 label = "C样式..." ;<br />                 width = 20 ;<br />             }<br />             :button {<br />                 height = 3 ;<br />                 key = "button_T" ;<br />                 label = "其他..." ;<br />                 width = 20 ;<br />             }<br />         }<br />     }<br />     cancel_button;<br /> }<br /> <br /> dlg_A:dialog {<br />     label = "A样式" ;<br />     :row {<br />         :column {<br />             :text {<br />                 label = "A-1样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "A_1" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "A-2样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "A_2" ;<br />                 width = 30 ;<br />             }<br />         }<br />     }<br />     :row {<br />         :column {<br />             :text {<br />                 label = "A-3样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "A_3" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "A-4样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "A_4" ;<br />                 width = 30 ;<br />             }<br />         }<br />     }<br />     :button {<br />              key = "return";<br />              label = "返回";<br />              height = 3;<br />              }<br />     spacer_1;<br />     cancel_button;<br /> }<br /> <br /> dlg_B:dialog {<br />     label = "B样式" ;<br />     :row {<br />         :column {<br />             :text {<br />                 label = "B-1样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "B_1" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "B-2样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "B_2" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "B-3样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "B_3" ;<br />                 width = 30 ;<br />             }<br />         }<br />     }<br />     :row {<br />         :column {<br />             :text {<br />                 label = "B-4样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "B_4" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "B-5样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "B_5" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "B-6样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "B_6" ;<br />                 width = 30 ;<br />             }<br />         }<br />     }<br />         :button {<br />              key = "return";<br />              label = "返回";<br />              height = 3;<br />              }<br />     spacer_1;<br />     cancel_button;<br /> }<br /> <br /> dlg_C:dialog {<br />     label = "C样式" ;<br />     :row {<br />         :column {<br />             :text {<br />                 label = "C-1样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "C_1" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "C-2样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "C_2" ;<br />                 width = 30 ;<br />             }<br />         }<br />     }<br />     :row {<br />         :column {<br />             :text {<br />                 label = "C-3样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "C_3" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "C-4样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "C_4" ;<br />                 width = 30 ;<br />             }<br />         }<br />     }<br />      :button {<br />              key = "return";<br />              label = "返回";<br />              height = 3;<br />              }<br />     spacer_1;<br />     cancel_button;<br /> }<br /> <br /> dlg_T:dialog {<br />     label = "T样式" ;<br />     :row {<br />         :column {<br />             :text {<br />                 label = "T-1样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "T_1" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "T-2样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "T_2" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "T-3样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "T_3" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "T-4样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "T_4" ;<br />                 width = 30 ;<br />             }<br />         }<br />     }<br />     :row {<br />         :column {<br />             :text {<br />                 label = "T-5样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "T_5" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "T-6样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "T_6" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "T-7样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "T_7" ;<br />                 width = 30 ;<br />             }<br />         }<br />         :column {<br />             :text {<br />                 label = "T-8样式" ;<br />             }<br />             :image_button {<br />                 color = black ;<br />                 height = 10 ;<br />                 key = "T_8" ;<br />                 width = 30 ;<br />             }<br />         }<br />     }<br />       :button {<br />              key = "return";<br />              label = "返回";<br />              height = 3;<br />              }<br />     spacer_1;<br />     cancel_button;<br /> }<br />

大家好
请大家帮帮忙
再二级对话框得界面
如何点击返回按钮
返回到一级去呢？
lisp 里面的(action_tile "return" "(done_dialog 2)(load_dialog dlg)")句话
怎么改呢？

fawn_lgc

很简单的,不需要特别的程序

qcw911

fawn_lgc 发表于 2012-2-24 12:53
很简单的,不需要特别的程序

如果你能帮我解决 我的问题我会很感激你的

qcw911

(action_tile "return" "(done_dialog 2)(load_dialog dlg)")→→ → →  (action_tile "return" "(done_dialog 2)(setq do_what 2)") 就ok了

zyhandw

自己悟出来了？真是高手！！

jun470

qcw911 发表于 2012-2-24 14:01
(action_tile "return" "(done_dialog 2)(load_dialog dlg)")→→ → →  (action_tile "return" "(done_d ...

我现在也有这个需求，没看懂怎么改的，怎么跳转到一级对话框的？