[求助]：再求助：调一DCL，弹出一个对话框，在此对话框中有好多选项，能实现选一项时

frankxie

当调用一个DCL后，会弹出一个对话框，而在此对话框中可能有好几个选项，如何实现当选择一个选项时，弹出一个新的对话框，此对话框中的内容只与此选项有关？
或者象属性页一样分层显示？
谢谢了

似水无痕

lsp文件：

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test ()
   
5.   (setq dcl_id (load_dialog "dcl-test.dcl"))
   
6.   (setq do_what 2)
   
7.   (while (>= do_what 2)
   
8.     (if        (= null (new_dialog "test1" dcl_id))
   
9.       (progn
   
10.         (princ "\n未能显示对话框。")
    
11.         (setq dialogshow nil)
    
12.         (exit)
    
13.       )                                        ;progn结束
    
14.     )
    
15.     (action_tile "dcl" "(done_dialog 2)")
    
16.     (action_tile "accept" "(done_dialog 1)")
    
17. 
    
18.     (setq do_what (start_dialog))
    
19.     (cond
    
20.       ((= do_what 1)
    
21.        (alert "END")
    
22.       )
    
23.       ((= do_what 2)
    
24.        (next)
    
25.       )
    
26.     )
    
27.   )
    
28.   (unload_dialog dcl_id)
    
29. )
    
30. (defun next ()
    
31.   (new_dialog "test2" dcl_id)
    
32.   (action_tile "accept" "(done_dialog 1)")
    
33. 
    
34.   (setq dial (start_dialog))
    
35.   (if (= dial 1)
    
36.     (alert "另一对话框调用成功...")
    
37.   )
    
38. )  [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test ()<br />   (setq dcl_id (load_dialog "dcl-test.dcl"))<br />   (setq do_what 2)<br />   (while (>= do_what 2)<br />     (if        (= null (new_dialog "test1" dcl_id))<br />       (progn<br />         (princ "\n未能显示对话框。")<br />         (setq dialogshow nil)<br />         (exit)<br />       )                                        ;progn结束<br />     )<br />     (action_tile "dcl" "(done_dialog 2)")<br />     (action_tile "accept" "(done_dialog 1)")<br /> <br />     (setq do_what (start_dialog))<br />     (cond<br />       ((= do_what 1)<br />        (alert "END")<br />       )<br />       ((= do_what 2)<br />        (next)<br />       )<br />     )<br />   )<br />   (unload_dialog dcl_id)<br /> )<br /> (defun next ()<br />   (new_dialog "test2" dcl_id)<br />   (action_tile "accept" "(done_dialog 1)")<br /> <br />   (setq dial (start_dialog))<br />   (if (= dial 1)<br />     (alert "另一对话框调用成功...")<br />   )<br /> )  [/FONT]<br />

DCL文件：

2. 
   
3.   [FONT=courier new]
   
4. test1:dialog{label="另一对话框...";
   
5.             :button{label="另一对话框...";key="dcl";}
   
6.             spacer_1;ok_cancel;
   
7.             }
   
8. test2:dialog{label="对话框贰";
   
9.             :edit_box{label="文本：";key="text";}
   
10.             spacer_1;ok_cancel;
    
11.             }
    
12. 
    
13.   [/FONT]
    

<br />   [FONT=courier new]<br /> test1:dialog{label="另一对话框...";<br />             :button{label="另一对话框...";key="dcl";}<br />             spacer_1;ok_cancel;<br />             }<br /> test2:dialog{label="对话框贰";<br />             :edit_box{label="文本：";key="text";}<br />             spacer_1;ok_cancel;<br />             }<br /> <br />   [/FONT]<br />

frankxie

老大
不行啊

似水无痕

可以啊，你是怎么用的！
将DCL文件储存为dcl-test.dcl，然后运行lsp文件

frankxie

是啊
但是在CAD界面输入命令后不出现对话框啊

似水无痕

你将dcl-test.dcl文件复制到AUTOCAD支持搜索路径里，如下图任意路径。然后在CAD里输入test命令！
有不明白的还可以在QQ上讨论，我的63780342

frankxie

非常感谢
可以了
谢谢