试问[LISP]--DCL的难题谁人破!

chenxianbi

本人写了一个算幕墙玻璃，横料，竖料的程序，但在第二层对话框时要在屏幕上选物体，但没有办法退出前一层对话框去.有高手知吗？赐教!

zhouhaijun

我可以帮你解决这个问题，具体怎么做，我说不清楚，但是我自己编写了一个类似的程序，可以解决这个问题，你如果想要的话，我可以把它给你！

xazhji

必需隐藏对话框才行。你也可以用 OBJECTDCL 来做

meflying

参考（具体内容自己写）

2. (defun c:test( / what_next what_next2 dcl_id ss)
3.    (setq what_next 2 what_next2 1)
4.    (setq dcl_id (load_dialog "tmp"))
5.    (while (>= what_next 2)
6.        (new_dialog "gxdata" dcl_id)
7.        (if (>= what_next2 2) (next dcl_id))
8.        (action_tile "nd" "(next dcl_id)")
9.        (setq what_next (start_dialog))
10.        (cond
11.            ((and (= what_next 2) (= what_next2 2))
12.              (setq ss (ssget))
13.            )
14.        )
15.    )
16.    (unload_dialog dcl_id)
17. )
18. (defun next(dcl_id)
19.    (setq dcl_id (load_dialog "tmp"))
20.    (new_dialog "gxdata2" dcl_id)
21.    (action_tile "hide" "(done_dialog 2)")
22.    (setq what_next2 (start_dialog))
23.    (if (= what_next2 2)
24.        (done_dialog 2)
25.    )
26. )

(defun c:test( / what_next what_next2 dcl_id ss)    (setq what_next 2 what_next2 1)    (setq dcl_id (load_dialog "tmp"))    (while (>= what_next 2)        (new_dialog "gxdata" dcl_id)        (if (>= what_next2 2) (next dcl_id))        (action_tile "nd" "(next dcl_id)")        (setq what_next (start_dialog))        (cond            ((and (= what_next 2) (= what_next2 2))              (setq ss (ssget))            )        )    )    (unload_dialog dcl_id) ) (defun next(dcl_id)    (setq dcl_id (load_dialog "tmp"))    (new_dialog "gxdata2" dcl_id)    (action_tile "hide" "(done_dialog 2)")    (setq what_next2 (start_dialog))    (if (= what_next2 2)        (done_dialog 2)    ) )

2. gxdata : dialog {
3.   label = "0";
4.   : edit_box {
5.    label = "附属物:";
6.    key = "qdfsw";
7.    edit_width = 15;
8.   }
9.   :button{label="下一层";key="nd";}
10.   ok_cancel;
11. }
12. gxdata2 : dialog {
13.   label = "1";
14.   : edit_box {
15.    label = "附属物:";
16.    key = "qdfsw";
17.    edit_width = 15;
18.   }
19.   :button{label="选对象";key="hide";}
20.   ok_cancel;
21. }

gxdata : dialog {   label = "0";   : edit_box {    label = "附属物:";    key = "qdfsw";    edit_width = 15;   }   :button{label="下一层";key="nd";}   ok_cancel; } gxdata2 : dialog {   label = "1";   : edit_box {    label = "附属物:";    key = "qdfsw";    edit_width = 15;   }   :button{label="选对象";key="hide";}   ok_cancel; }

chenxianbi

qq

chenxianbi

多谢