请教如何关闭modeless dialog

st788796 · 发表于 2014-11-14 17:41:11

本帖最后由 st788796 于 2014-11-14 17:43 编辑

(defun c:tt (/)
(gxl-AutoLoadODclArx)
(gxl-Load_ODCL_Project "xty_offset.odcl" t nil nil)
(dcl_Form_Show xty_offset_Form1)
(if (dcl_form_isactive xty_offset_Form1)
(progn
(while
(setq
ss
(ssget '((0 . "line,SPLINE,*POLYLINE,circle,arc,ELLIPSE")))
)
(setq dis (atof (dcl-Control-GetText xty_offset/Form1/TextBox1))
db (dcl-Control-GetValue xty_offset/Form1/CheckBox1)
de (dcl-Control-GetValue xty_offset/Form1/CheckBox2)
ch (dcl-Control-GetValue xty_offset/Form1/CheckBox3)
lay (dcl-Control-Gettext xty_offset/Form1/ComboBox1)
)
(foreach n (xty_ssn ss t)
(setq obj1 (vlax-safearray->list
(vlax-variant-value (vla-offset n dis))
)
obj2 nil
)
(if (= 1 db)
(setq obj2 (vlax-safearray->list
(vlax-variant-value (vla-offset n (- dis)))
)
)
)
(if (= 1 de)
(vla-delete n)
)
(if (= 1 ch)
(mapcar '(lambda (x) (vla-put-layer x lay))
(append obj1 obj2)
)
)
)
)
(dcl_Form_close xty_offset_Form1)
)
)
(princ)
)

(defun c:tt (/) 
  (gxl-AutoLoadODclArx) 
  (gxl-Load_ODCL_Project "xty_offset.odcl" t nil nil) 
  (dcl_Form_Show xty_offset_Form1) 
  (if (dcl_form_isactive xty_offset_Form1) 
    (progn 
      (while 
        (setq 
          ss 
           (ssget '((0 . "line,SPLINE,*POLYLINE,circle,arc,ELLIPSE"))) 
        ) 
         (setq dis (atof (dcl-Control-GetText xty_offset/Form1/TextBox1)) 
               db  (dcl-Control-GetValue xty_offset/Form1/CheckBox1) 
               de  (dcl-Control-GetValue xty_offset/Form1/CheckBox2) 
               ch  (dcl-Control-GetValue xty_offset/Form1/CheckBox3) 
               lay (dcl-Control-Gettext xty_offset/Form1/ComboBox1) 
         ) 
         (foreach n (xty_ssn ss t) 
           (setq obj1 (vlax-safearray->list 
                        (vlax-variant-value (vla-offset n dis)) 
                      ) 
                 obj2 nil 
           ) 
           (if (= 1 db) 
             (setq obj2        (vlax-safearray->list 
                          (vlax-variant-value (vla-offset n (- dis))) 
                        ) 
             ) 
           ) 
           (if (= 1 de) 
             (vla-delete n) 
           ) 
           (if (= 1 ch) 
             (mapcar '(lambda (x) (vla-put-layer x lay)) 
                     (append obj1 obj2) 
             ) 
           ) 
         ) 
      ) 
      (dcl_Form_close xty_offset_Form1) 
    ) 
  ) 
  (princ) 
)

13808843088 · 发表于 2014-11-14 18:02:31

st788796 发表于 2014-11-14 17:41

谢谢，我回去研究下

13808843088 · 发表于 2014-11-14 20:29:55

st788796 发表于 2014-11-14 17:41

谢谢st元老的指点，是我想复杂了，按您的思路得到了正确的结果

st788796 · 发表于 2014-11-14 20:36:07

13808843088 发表于 2014-11-14 20:29
谢谢st元老的指点，是我想复杂了，按您的思路得到了正确的结果

使用 Modeless 还需要注意多文档，切换文档时，如果界面没有关闭，会出现Initlize事件函数没有定义而在命令行出现错误提示，所以用完就关闭是安全方案

13808843088 · 发表于 2014-11-14 20:52:40

st788796 发表于 2014-11-14 20:36
使用 Modeless 还需要注意多文档，切换文档时，如果界面没有关闭，会出现Initlize事件函数没有定义而在 ...

是的，可否在命令执行时获取当前活动文档的名称，当活动文档改变时，关闭Modeless，我试试看，谢谢

st788796 · 发表于 2014-11-14 21:08:20

13808843088 发表于 2014-11-14 20:52
是的，可否在命令执行时获取当前活动文档的名称，当活动文档改变时，关闭Modeless，我试试看，谢谢

你又想复杂了，有 DocActived (切换文档) EnteringNoDocState (没有激活文档) 两个事件的

newer · 发表于 2014-11-14 21:09:23

13808843088 发表于 2014-11-14 20:52
是的，可否在命令执行时获取当前活动文档的名称，当活动文档改变时，关闭Modeless，我试试看，谢谢

用 VL-LOAD-ALL 加载你的LISP到所有文档就行了。

13808843088 · 发表于 2014-11-14 21:35:27

st788796 发表于 2014-11-14 21:08
你又想复杂了，有 DocActived (切换文档) EnteringNoDocState (没有激活文档) 两个事件的

我试了在DocActived事件回调函数中dcl_Form_close，没有关闭

newer · 发表于 2014-11-14 21:42:38

13808843088 发表于 2014-11-14 21:35
我试了在DocActived事件回调函数中dcl_Form_close，没有关闭

那你就得用ACAD的反应器了，切换文档的时候，你关闭DCL，不用盯着一个ODCL不放，让他做自己该干的事。

13808843088 · 发表于 2014-11-14 21:49:04

st788796 发表于 2014-11-14 21:08
你又想复杂了，有 DocActived (切换文档) EnteringNoDocState (没有激活文档) 两个事件的

谢谢newer，st元老可以了，要每个文档都加载，

账号		自动登录	找回密码
密码			立即注册

[求助] 请教如何关闭modeless dialog

点评

点评

点评

点评

点评

点评