如何判断OpenDCL在其它窗口是非正常关闭。。。
如何在其它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 关闭按钮失效
)
页:
[1]