dcl对话框退出

那个猎人

各位大神，小弟初学者，在编写DCL对话框中，想点击按钮后退出主对话框，打开二级对话框，这么写的(action_tile "button" "(C:erjiDCL)(done_dialog)"),但是点击后，主对话框没退出，二级对话框弹出来了，重叠了，应该怎么写呀。

自贡黄明儒

"(done_dialog）(C:erjiDCL)"这样如何？
done_dialog是对话框消失的意思。

那个猎人

自贡黄明儒 发表于 2014-5-23 16:53
"(done_dialog）(C:erjiDCL)"这样如何？
done_dialog是对话框消失的意思。

不行，还是出现重叠现象

Gu_xl

那个猎人 发表于 2014-5-23 17:04
不行，还是出现重叠现象

(C:erjiDCL)不能在对话框语句中，要放在 start _dialog 之后才行

那个猎人

Gu_xl 发表于 2014-5-23 17:11
(C:erjiDCL)不能在对话框语句中，要放在 start _dialog 之后才行

版主您好，我不是很明白，您能帮忙修改一下实现点击按钮退出主菜单，调用二级菜单吗？
(defun c:tt()
        (setq DCL_ID (load_dialog "form1.dcl"))
        (new_dialog "form1" DCL_ID)
        (action_tile "button""(done_dialog)(C:erjiDCL)")
        (start_dialog)
        (unload_dialog DCL_ID)
)

Gu_xl

那个猎人 发表于 2014-5-23 17:22
版主您好，我不是很明白，您能帮忙修改一下实现点击按钮退出主菜单，调用二级菜单吗？
(defun c:tt()
         ...

(defun c:tt()
        (setq DCL_ID (load_dialog "form1.dcl"))
        (new_dialog "form1" DCL_ID)
        (action_tile "button""(done_dialog 2)")
       (setq code  (start_dialog))
        (unload_dialog DCL_ID)
(if (= code 2) (C:erjiDCL))
)

那个猎人

Gu_xl 发表于 2014-5-23 17:36
(defun c:tt()
        (setq DCL_ID (load_dialog "form1.dcl"))
        (new_dialog "form1" DCL_ID ...

感谢版主搞定我的问题

magicheno

Gu_xl 发表于 2014-5-23 17:36
(defun c:tt()
        (setq DCL_ID (load_dialog "form1.dcl"))
        (new_dialog "form1" DCL_ID ...

感谢大佬分享