明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1231|回复: 0

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

[复制链接]
发表于 2016-3-24 13:42 | 显示全部楼层 |阅读模式
(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 ....
怎么彻底地关闭这两个对话框????????????????????????????????

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:05 , Processed in 0.185006 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表