chenxianbi 发表于 2005-1-25 17:31:00

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

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

zhouhaijun 发表于 2005-1-25 19:49:00

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

xazhji 发表于 2005-1-25 20:25:00

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

meflying 发表于 2005-1-26 09:16:00

参考（具体内容自己写）(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)
   )
)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 发表于 2005-1-26 09:43:00

qq

chenxianbi 发表于 2005-1-26 09:44:00

多谢
页: [1]
查看完整版本: 试问[LISP]--DCL的难题谁人破!