怎么就不对呢???如何真正关闭对话框!!!!!!!!!
(defun c:PBZ_Form1_TextButton10_OnClicked (/ tem f c); 非模态对话框 的返回返回(dcl_Form_Close pdpbz_form1 1)
(dcl_Project_Unload "pdpbz" T) ; 非模态对话框
(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)
;(dcl_Project_Unload "pdpbz")
(setq c 1)
;(PDP-HZdcl) PDP-HZdcl中有CAD的(command ....在这里也试了
)
); cond
)
(dcl_Project_Unload "pdpbz1" T)
(if (= intResult 4)(PDP-HZdcl))
)
(defun cDPBZ1_Form1_GraphicButton3_OnClicked (/ ); 准备执行PDP-HZdcl
(dcl_Form_Close pdpbz1_form1 4)
)执行PDP-HZdcl子程序出错了，不能执行(command ....
怎么彻底地关闭这两个对话框????????????????????????????????
页:
[1]