怎么就不对呢???如何真正关闭对话框!!!!!!!!!

挚友01

(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 ....
怎么彻底地关闭这两个对话框????????????????????????????????