[求助]：隐藏DCL对话框怎么实现？

newer

我初学DCL，想编制一个对话框，其中有两个按钮，点上他们后，要求能暂时关闭对话框，去命令行和ACAD交互完毕后，能自动返回对话框，这样的对话框控制如何做？请晓东、LL-J、QLIN、秋枫等高手帮忙。

ll_j

最初由 newer 发布
我初学DCL，想编制一个对话框，其中有两个按钮，点上他们后，要求能暂时关闭对话框，去命令行和ACAD交互完毕后，能自动返回对话框，这样的对话框控制如何做？请晓东、LL-J、QLIN、秋枫等高手帮忙。

2. 
   
3.   ...
   
4.   (if (not (setq dcl_id(load_dialog "t2"))) (exit))
   
5.   (t2_set)        ;初始值设置（含(setq what_ 2)
   
6.   (while (= what_ 2)      ;隐藏对话框
   
7.     (if (not (new_dialog "t2" dcl_id)) (exit))  ;加载对话框
   
8.     (t2_dia)  ;对话框赋值
   
9.     (t2_act)  ;对话框动作
   
10.     (setq what_ (start_dialog)) ;激活对话框
    
11.     (if (= what_ 2) (t2_25))   ;交互
    
12.   )
    
13.   (if (= what_ 1)      ;OK
    
14.   ...
    
15. 
    
16.   ...
    
17.   (defun t2_act()   
    
18.     (action_tile "21" "(setq 21[ (atoi $value)) (t2_dia)")
    
19.     ...
    
20.     (action_tile "25" "(done_dialog 2)")   ;隐藏对话框
    
21.     ...
    
22.     (action_tile "accept" "(done_dialog 1)")  ;OK
    
23.     (action_tile "cancel" "(done_dialog 0)")   ;cancel
    
24.   )
    
25.   ...
    

<br />   ...<br />   (if (not (setq dcl_id(load_dialog "t2"))) (exit))<br />   (t2_set)        ;初始值设置（含(setq what_ 2)<br />   (while (= what_ 2)      ;隐藏对话框<br />     (if (not (new_dialog "t2" dcl_id)) (exit))  ;加载对话框<br />     (t2_dia)  ;对话框赋值<br />     (t2_act)  ;对话框动作<br />     (setq what_ (start_dialog)) ;激活对话框<br />     (if (= what_ 2) (t2_25))   ;交互<br />   )<br />   (if (= what_ 1)      ;OK<br />   ...<br /> <br />   ...<br />   (defun t2_act()    <br />     (action_tile "21" "(setq 21[ (atoi $value)) (t2_dia)")<br />     ...<br />     (action_tile "25" "(done_dialog 2)")   ;隐藏对话框<br />     ...<br />     (action_tile "accept" "(done_dialog 1)")  ;OK<br />     (action_tile "cancel" "(done_dialog 0)")   ;cancel<br />   )<br />   ...<br />

前生

其实，有些问题自己还是多看看书才的好

newer

最初由 ll_j 发布
[B][QUOTE]最初由 newer 发布
我初学DCL，想编制一个对话框，其中有两个按钮，点上他们后，要求能暂时关闭对话框，去命令行和ACAD交互完毕后，能自动返回对话框，这样的对话框控制如何做？请晓东、LL-J、QLIN、... [/B]

谢谢LL-J大侠。

TO 前生：
    因为急才发贴吗，这里朋友热心，回答帖子很快，能获得比书本更多的知识。想你也再这里获得过很多有用的东西吧，希望也从你身上能学得点知识。