如何直正关闭下级非模态对话框？？

挚友01 · 发表于 2016-3-14 13:32:23

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由挚友01 于 2016-3-14 13:35 编辑

这个下级返回上级程序,好象没真正关闭当前的非模态对话框,

pdpbz_form1 是下一级非模态化对话框， pdpbz1_form1 是模态化主对话框

(defun cDPBZ_Form1_TextButton10_OnClicked (/ tem f c)

(dcl_Form_Close pdpbz_form1 2)

(dcl_Project_Unload "pdpbz") ;关闭当前非模态对话框

(setq doContinue T)

(while doContinue

(setq doContinue nil)

(setq intResult (dcl_FORM_SHOW PDPBZ1_Form1)) ; 模态化对话框

(cond

((= intResult 1) (setq doContinue nil))

((= intResult 2) (setq doContinue nil))

((= intResult 3) (PDS_QY_DCL))

((= intResult 4) (PDP-HZdcl)) ; CAD执行程序,其中有(command "TEXT"...) 这里出错了.....

好象没真正关闭下级非模态化对话框

); cond

)

如何真正的关闭非模态对话框"pdpbz",返回上一级模态化对话框?????????

XDSoft · 发表于 2016-3-14 15:58:21

非模态对话框，执行ACAD命令，要用 dcl_senstring 发送命令行字符串去执行。

挚友01 · 发表于 2016-3-14 21:28:43

知道,可原来的非模态对话框我已关闭了,怎么好象没关干净。。。

挚友01 · 发表于 2016-3-16 08:34:50

??????????

挚友01 · 发表于 2016-3-16 15:26:44

问题出在哪?

挚友01 · 发表于 2016-3-17 10:54:55

????????????????

挚友01 · 发表于 2016-3-19 14:07:18

这个问题一直没解决，请高手们指点指点...

账号		自动登录	找回密码
密码			立即注册

[研讨] 如何直正关闭下级非模态对话框？？