请教如何关闭modeless dialog

13808843088 · 发表于 2014-11-13 22:36:17

本帖最后由 13808843088 于 2014-11-13 22:46 编辑

XDSoft 发表于 2014-11-13 22:30
你程序想做什么？为什么要用GRREAD？

另外，再贴ODCL代码，把你的ODCL文件也一起传上来，方便看。

我的odcl文件贴到一楼底部了，就是想在需要结束命令的时候不用将鼠标移动到对话框处关闭非模态对话框，直接右键或回车就可关闭，下面的示例就是右键关闭的

13808843088 · 发表于 2014-11-13 22:49:12

XDSoft 发表于 2014-11-13 22:30
你程序想做什么？为什么要用GRREAD？

另外，再贴ODCL代码，把你的ODCL文件也一起传上来，方便看。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:lx2.LSP
下载次数:7 文件大小:3.35 KB
下载权限: 不限以上 [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:xty_offset.odcl
下载次数:5 文件大小:1.05 KB
下载权限: 不限以上 [免费赚D豆]

上面是文件，麻烦您了

XDSoft · 发表于 2014-11-13 22:53:55

事件里面本来就有现成的啊

ESC,OK,CANCEL ....直接用就行了，为什么还自己实现呢

XDSoft · 发表于 2014-11-13 22:55:33

13808843088 发表于 2014-11-13 22:36
我的odcl文件贴到一楼底部了，就是想在需要结束命令的时候不用将鼠标移动到对话框处关闭非模态对话框， ...

本来就不需要鼠标移动到对话框X那关闭啊

你把上面图中几个给勾上，回调里面加上 dcl_form_close就行了。

(defun c:ÎT±êìa/Form1#OnOK (/)
  (dcl-form-close xxx)
  (princ)
)

(defun c:ÎT±êìa/Form1#OnCancel (/)
  (dcl-form-close xxx)
  (princ)
)

(defun c:ÎT±êìa/Form1#OnCancelClose (Reason /)
(dcl-form-close xxx)
  (princ)
)

(defun c:ÎT±êìa/Form1#OnClose (UpperLeftX UpperLeftY /)
(dcl-form-close xxx)
  (princ)
)

13808843088 · 发表于 2014-11-13 22:56:12

XDSoft 发表于 2014-11-13 22:53
事件里面本来就有现成的啊

ESC,OK,CANCEL ....直接用就行了，为什么还自己实现呢

请问这几个事件不用写回调函数的吗？英文帮助看不懂啊，基本靠猜，谢谢坛主，我试试

XDSoft · 发表于 2014-11-13 23:02:42

13808843088 发表于 2014-11-13 22:56
请问这几个事件不用写回调函数的吗？英文帮助看不懂啊，基本靠猜，谢谢坛主，我试试

想相应哪个事件，你就给哪个勾上，回调函数在下面框里面，拷贝粘贴到你的程序里面就行了。
ODCL写对话框很快的，他都给你写好了回调，直接拷贝粘贴，然后里面加进自己的代码就行了。

QQ截图20141113230158.png

13808843088 · 发表于 2014-11-13 23:23:40

XDSoft 发表于 2014-11-13 23:02
想相应哪个事件，你就给哪个勾上，回调函数在下面框里面，拷贝粘贴到你的程序里面就行了。
ODCL写对话 ...

坛主这么晚还给我解决问题，谢谢，辛苦您了。现在按照您的指导搞了一下，odcl文件及lisp文件如下，现在的结果是回车对话框不关闭，到对话框中点X，直接autocad致命错误退出(win7,autocad2010)。自己调整了很多回，由于不太会vlide的调试，没有找出问题所在。您哪天有空再指导一下。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:xty_offset.odcl
下载次数:1 文件大小:1.05 KB
下载权限: 不限以上 [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:lx2.LSP
下载次数:3 文件大小:3.38 KB
下载权限: 不限以上 [免费赚D豆]

XDSoft · 发表于 2014-11-14 00:21:23

13808843088 发表于 2014-11-13 23:23
坛主这么晚还给我解决问题，谢谢，辛苦您了。现在按照您的指导搞了一下，odcl文件及lisp文件如下，现在的 ...

你没有定义控件的变量名，把所有控件变量名空的地方，都定义变量，程序里面用变量去引用控件，别用名字。
包括对话框，和里面的所有控件。

QQ截图20141114002004.png

iLisp · 发表于 2014-11-14 08:08:48

rrt函数用到了在ODCL取值，使用modeless时如果用到在界面取值一定要注意界面是否打开，安全方法就是判断avtive

13808843088 · 发表于 2014-11-14 09:43:35

XDSoft 发表于 2014-11-14 00:21
你没有定义控件的变量名，把所有控件变量名空的地方，都定义变量，程序里面用变量去引用控件，别用名 ...

谢谢。实验了一下，回调函数“cancel”"cancelclose""close""ok"都是在对话框激活，也就是鼠标到非模态对话框上点一下以后才可以关闭非模态对话框的，彻底搞不懂了。就是用变量也是一样的。

XDSoft · 发表于 2014-11-14 10:27:19

13808843088 发表于 2014-11-14 09:43
谢谢。实验了一下，回调函数“cancel”"cancelclose""close""ok"都是在对话框激活，也就是鼠标到非模态对 ...

对话框要关闭，必须得获得焦点，也就是你说的鼠标要移动到对话框上，你可以设计对话框时候保持焦点给勾上，可这样你操作CAD又会有麻烦，要不断的用鼠标去点CAD窗口。不知道你明白没？

也就是你的动作发送给谁的问题，你要是想发送给CAD，那么就得让CAD获得焦点，而这时候对话框你是操作不了的。

要事先你说的，你要在你的程序里面自己处理，比如选择对象，中间退出，你不用管是按什么退的，只要没进入你想的流程，那么就在IF后面关闭对话框。

(if (setq ss (ssget))
(progn
)
(progn
(dcl-form-close xxx) ;;只要进到这里，你就关闭，不用管是怎么进来的。
)
)

13808843088 · 发表于 2014-11-14 10:54:51

XDSoft 发表于 2014-11-14 10:27
对话框要关闭，必须得获得焦点，也就是你说的鼠标要移动到对话框上，你可以设计对话框时候保持焦点给勾 ...

谢谢，大体明白了，一直在实验非模态的相关事件回调函数，对于获得焦点可以在mousrentered及mousemovedoff事件中处理。我再试试

13808843088 · 发表于 2014-11-14 16:47:38

本帖最后由 13808843088 于 2014-11-14 17:03 编辑

XDSoft 发表于 2014-11-14 10:27
对话框要关闭，必须得获得焦点，也就是你说的鼠标要移动到对话框上，你可以设计对话框时候保持焦点给勾 ...

在各位的指导下基本完成，但是还是有bug，刚开始执行的时候鼠标非要到窗体上晃一圈，有时候对话框退不出来，命令行提示无法重复进入 LISP。哪位大侠有时间帮忙看看，非常感谢！这只是学习opendcl的一个习作，由于英文水平很差，程序结构又是空白，学得比较痛苦，拣拣丢丢反复很多年了，最近有时间又捡了起来，论坛中对各个窗体及控件应用的讲解很少，程序本身提供的范例也只是泛泛的示范了一下窗体及控件的用法，都不是很详细。希望本版块慢慢的热起来，有更多优秀的示例。

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:xty_offset.odcl
下载次数:3 文件大小:1.05 KB
下载权限: 不限以上 [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:lx2.LSP
下载次数:4 文件大小:3.97 KB
下载权限: 不限以上 [免费赚D豆]

;;;by gu_xl http://gyh060707.blog.sohu.com/
(defun gxl-AutoLoadODclArx (/ loaded fn v fnn)
(if (not dcl_getversionex)
(VL-CATCH-ALL-APPLY 'vl-cmdf (list "opendcl"))
)
(if (not dcl_getversionex)
(cond
((= "16" (setq v (itoa (atoi (getvar 'acadver)))))
(if
(setq fnn (findfile (setq fn (strcat "opendcl." v ".arx"))))
(setq loaded (arxload fnn "1"))
(setq loaded "2")
)
)
((or (= "17" v) (= "18" v) (= "19" v))
(if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))
(if (setq fnn
(findfile (setq fn (strcat "opendcl." v ".arx")))
)
(setq loaded (arxload fnn "1"))
(setq loaded "2")
)
(if (setq fnn
(findfile (setq fn (strcat "opendcl." v "x64.arx")))
)
(setq loaded
(arxload fnn
"1"
)
)
(setq loaded "2")
)
)
)
(t (Setq loaded "2"))
)
(setq loaded "3") ;_ 已加载
)
(if (= "1" loaded)
(progn
(princ (strcat fn "加载失败！程序将退出！"))
(exit)
)
(if (= "2" loaded)
(progn
(princ
(strcat "未找到对应的"" fn ""文件！程序将退出！")
)
(exit)
)
)
)
loaded
)
;;;by gu_xl http://gyh060707.blog.sohu.com/
(defun gxl-Load_ODCL_Project
(projname reload password alias / bytes rtype Projects)
(cond
((null dcl_project_import)
(princ "需OpenDCL 5.0 以上版本支持.\n")
nil
)
((and
(setq bytes (vl-get-resource projname))
(eq 'str (setq rtype (type bytes)))
(not (eq "" bytes))
)
(if reload
(dcl_project_import bytes password alias)
(if (or
(not (setq Projects (dcl_GetProjects)))
(not (member (strcase (vl-filename-base projname))
(mapcar 'strcase Projects)
)
)
)
(dcl_project_import bytes password alias)
)
)
)
((dcl_project_load (findfile projname) reload alias))
)
)
(defun xty_ssn (ss o / n lst)
(repeat (setq N (sslength ss))
(setq LST (cons (ssname SS (setq N (1- N))) LST))
)
(if o
(mapcar 'vlax-ename->vla-object lst)
lst
)
)
(vl-load-com)
(defun c:tt (/)
(gxl-AutoLoadODclArx)
(gxl-Load_ODCL_Project "xty_offset.odcl" t nil nil)
(dcl_Form_Show xty_offset_Form1)
(princ)
)
(defun c:xty_offset/Form1#OnInitialize (/ la lst)
(vlax-for la (VLA-GET-LAYERS
(vla-get-ActiveDocument (vlax-get-acad-object))
)
(setq lst (cons (vla-get-name la) lst))
)
(dcl-Control-SetList
xty_offset/Form1/ComboBox1
lst
)
(dcl-Control-SetText
xty_offset/Form1/ComboBox1
(getvar "clayer")
)
(dcl-Control-SetText
xty_offset/Form1/TextBox1
(rtos (getvar "OFFSETDIST") 2 2)
)
(princ)
)
(defun c:xty_offset/Form1/CheckBox3#OnClicked (Value /)
(if (= Value 1)
(dcl-Control-SetVisible xty_offset/Form1/ComboBox1 t)
(dcl-Control-SetVisible xty_offset/Form1/ComboBox1 nil)
)
(princ)
)
(defun c:xty_offset/Form1#OnMouseMovedOff (/)
(dcl_sendstring "(rrt)\n")
(princ)
)
(defun rrt (/ ch db de dis lay obj1 obj2 ss)
(if
(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)
)

;;;by gu_xl http://gyh060707.blog.sohu.com/ 
(defun gxl-AutoLoadODclArx (/ loaded fn v fnn) 
  (if (not dcl_getversionex) 
    (VL-CATCH-ALL-APPLY 'vl-cmdf (list "opendcl")) 
  ) 
  (if (not dcl_getversionex) 
    (cond 
      ((= "16" (setq v (itoa (atoi (getvar 'acadver))))) 
       (if 
   (setq fnn (findfile (setq fn (strcat "opendcl." v ".arx")))) 
    (setq loaded (arxload fnn "1")) 
    (setq loaded "2") 
       ) 
      ) 
      ((or (= "17" v) (= "18" v) (= "19" v)) 
       (if (= "x86" (getenv "PROCESSOR_ARCHITECTURE")) 
   (if (setq fnn 
        (findfile (setq fn (strcat "opendcl." v ".arx"))) 
       ) 
     (setq loaded (arxload fnn "1")) 
     (setq loaded "2") 
   ) 
   (if (setq fnn 
        (findfile (setq fn (strcat "opendcl." v "x64.arx"))) 
       ) 
     (setq loaded 
      (arxload fnn 
         "1" 
      ) 
     ) 
     (setq loaded "2") 
   ) 
       ) 
      ) 
      (t (Setq loaded "2")) 
    ) 
    (setq loaded "3") ;_ 已加载 
  ) 
  (if (= "1" loaded) 
    (progn 
      (princ (strcat fn "加载失败！程序将退出！")) 
      (exit) 
    ) 
    (if  (= "2" loaded) 
      (progn 
  (princ 
    (strcat "未找到对应的"" fn ""文件！程序将退出！") 
  ) 
  (exit) 
      ) 
    ) 
  ) 
  loaded 
) 
;;;by gu_xl http://gyh060707.blog.sohu.com/ 
(defun gxl-Load_ODCL_Project 
       (projname reload password alias / bytes rtype Projects) 
  (cond 
    ((null dcl_project_import) 
     (princ "需OpenDCL 5.0 以上版本支持.\n") 
     nil 
    ) 
    ((and 
       (setq bytes (vl-get-resource projname)) 
       (eq 'str (setq rtype (type bytes))) 
       (not (eq "" bytes)) 
     ) 
     (if reload 
       (dcl_project_import bytes password alias) 
       (if (or 
       (not (setq Projects (dcl_GetProjects))) 
       (not (member (strcase (vl-filename-base projname)) 
        (mapcar 'strcase Projects) 
      ) 
       ) 
     ) 
   (dcl_project_import bytes password alias) 
       ) 
     ) 
    ) 
    ((dcl_project_load (findfile projname) reload alias)) 
  ) 
) 
(defun xty_ssn (ss o / n lst) 
  (repeat (setq N (sslength ss)) 
    (setq LST (cons (ssname SS (setq N (1- N))) LST)) 
  ) 
  (if o 
    (mapcar 'vlax-ename->vla-object lst) 
    lst 
  ) 
) 
(vl-load-com) 
(defun c:tt (/) 
  (gxl-AutoLoadODclArx) 
  (gxl-Load_ODCL_Project "xty_offset.odcl" t nil nil) 
  (dcl_Form_Show xty_offset_Form1) 
  (princ) 
) 
(defun c:xty_offset/Form1#OnInitialize (/ la lst) 
  (vlax-for la (VLA-GET-LAYERS 
     (vla-get-ActiveDocument (vlax-get-acad-object)) 
         ) 
    (setq lst (cons (vla-get-name la) lst)) 
  ) 
  (dcl-Control-SetList 
    xty_offset/Form1/ComboBox1 
    lst 
  ) 
  (dcl-Control-SetText 
    xty_offset/Form1/ComboBox1 
    (getvar "clayer") 
  ) 
  (dcl-Control-SetText 
    xty_offset/Form1/TextBox1 
    (rtos (getvar "OFFSETDIST") 2 2) 
  ) 
  (princ) 
) 
(defun c:xty_offset/Form1/CheckBox3#OnClicked (Value /) 
  (if (= Value 1) 
    (dcl-Control-SetVisible xty_offset/Form1/ComboBox1 t) 
    (dcl-Control-SetVisible xty_offset/Form1/ComboBox1 nil) 
  ) 
  (princ) 
) 
(defun c:xty_offset/Form1#OnMouseMovedOff (/) 
  (dcl_sendstring "(rrt)\n") 
  (princ) 
) 
(defun rrt (/ ch db de dis lay obj1 obj2 ss) 
  (if 
    (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) 
)

st788796 · 发表于 2014-11-14 17:33:15

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

13808843088 发表于 2014-11-14 16:47
在各位的指导下基本完成，但是还是有bug，刚开始执行的时候鼠标非要到窗体上晃一圈，有时候对话框退不出 ...

使用 Modeless 一般这样用，启动命令显示对话框，命令行是选线模式，鼠标可以随时去修改参数，执行的命令所需是当前设置，运行完就关闭，你看看天正大部分对话框都是这个模式

也就是 rrt 函数内容在 tt 命令定义里面

13808843088 · 发表于 2014-11-14 17:38:41

st788796 发表于 2014-11-14 17:33
使用 Modeless 一般这样用，启动命令显示对话框，命令行是选线模式，鼠标可以随时去修改参数，执行的命令 ...

谢谢st元老，不过命令行是选线模式是什么意思，还有对您的话不是很理解。

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

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

点评

点评

点评

点评

点评

点评

点评

点评

点评