帮我阿，关于对话框的嵌套

yqwzx

小弟今日按照资料书的介绍学作对话框，程序思路是当两个对话框嵌套时，打开主对话框，然后按按钮进入子对话框，按下子对话框中ok按钮后，将这两个对话框隐藏，从屏幕上取的一个点后，返回主对话框，（子对话框不需要了）小弟试了很久就是不行，哪位老大贴一个出来给小弟作学习的例子吗？不胜感激！！

就像出图打印（plot)时的的对话框差不多的样子，先出现打的对化框然后出现小的对话框，再在屏幕上选择要打印的。就是这个思路，不知道我说明白了没有.

meflying

程序文件

2. 
   
3. (defun adv(dcl_id / a)
   
4.   (if (not (new_dialog "test2" dcl_id)) (exit))
   
5.   (action_tile "getp" "(done_dialog 2)")
   
6.   (setq a (start_dialog))
   
7.   a
   
8. )
   
9. 
   
10. (defun l_dlg( / dcl_id what_next pt)
    
11.   (if (< (setq dcl_id (load_dialog "test")) 0) (exit))
    
12.   (setq what_next 2)
    
13.   (while (>= what_next 2)
    
14.     (if (not (new_dialog "test1" dcl_id)) (exit))
    
15.     (if pt (set_tile "txt" (strcat "坐标为:" (rtos (car pt) 2 3) "," (rtos (cadr pt) 2 3))))
    
16.     (action_tile "adv" "(if (= (adv dcl_id) 2) (done_dialog 4))")
    
17.     (setq what_next (start_dialog))
    
18.     (if (= what_next 4) (setq pt (getpoint "\n选择点...")))   
    
19.   )
    
20.   (unload_dialog dcl_id)
    
21.   (princ)
    
22. )
    

<br /> (defun adv(dcl_id / a)<br />   (if (not (new_dialog "test2" dcl_id)) (exit))<br />   (action_tile "getp" "(done_dialog 2)")<br />   (setq a (start_dialog))<br />   a<br /> )<br /> <br /> (defun l_dlg( / dcl_id what_next pt)<br />   (if (< (setq dcl_id (load_dialog "test")) 0) (exit))<br />   (setq what_next 2)<br />   (while (>= what_next 2)<br />     (if (not (new_dialog "test1" dcl_id)) (exit))<br />     (if pt (set_tile "txt" (strcat "坐标为:" (rtos (car pt) 2 3) "," (rtos (cadr pt) 2 3))))<br />     (action_tile "adv" "(if (= (adv dcl_id) 2) (done_dialog 4))")<br />     (setq what_next (start_dialog))<br />     (if (= what_next 4) (setq pt (getpoint "\n选择点...")))    <br />   )<br />   (unload_dialog dcl_id)<br />   (princ)<br /> )<br />

对话框文件：

2. 
   
3. test1:dialog{
   
4.         :text{label = ""; key = "txt";}
   
5.         :button{label="高级...";key = "adv";}
   
6.         ok_cancel;
   
7. }
   
8. 
   
9. test2:dialog{
   
10.         :button{label="点取坐标";key = "getp";}
    
11.         ok_cancel;
    
12. }
    

<br /> test1:dialog{<br />         :text{label = ""; key = "txt";}<br />         :button{label="高级...";key = "adv";}<br />         ok_cancel;<br /> }<br /> <br /> test2:dialog{<br />         :button{label="点取坐标";key = "getp";}<br />         ok_cancel;<br /> }<br />

yqwzx

谢谢斑竹，让我茅塞顿开阿。

野狼谷/〈M〉

很好的例子，简洁，胜过一堆文字说明

feng83

厉害。。。学习中