如何判断OpenDCL在其它窗口是非正常关闭。。。

挚友02

如何在其它dwg中判断(if (dcl_Form_IsActive cccl_Form1)  还是有值的，但实际已经非正常关闭了cccl_Form1窗体(在其它dwg文件窗口用点击窗体右上角的X)，用  (dcl_Project_Unload "cccl_Form1")也报错...




(vl-load-com)
(if (null (vl-symbol-value 'dcl_getversionex))  (loadRtime))
(if (not (setq project-path (dcl_Project_Load "djbz-10.odcl" T)))
    (progn ;项目无法加载，报告或记录错误
       (alert (strcat "* * * 在CAD搜索目录中未找到[" djbz-10.odcl "]文件!"))
       (exit) ;立即退出 (或采取纠正动作并重试)
    )   
    (progn
      (setq intResult2017_6 (dcl_FORM_SHOW djbz-10_Form1))
) )              
)




(defun c:djbz-10_Form1_OnEnteringNoDocState (/)
(setq intResult2017_6 nil)
(dcl_Form_Close djbz-10_Form1 1)
(dcl_Project_Unload "djbz-10")
;右上角的 x 关闭按钮失效
)
;关闭
(defun c:djbz-10_Form1_GraphicButton1_OnClicked (/)
(setq intResult2017_6 nil)
(dcl_Form_Close djbz-10_Form1 1)
(dcl_Project_Unload "djbz-10")
;右上角的 x 关闭按钮失效
)