请教，vl-catch-all-apply方法之后如何判断是esc还是回车？

yx5277 · 发表于 2013-4-17 19:29:57

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

就是怎么根据vl-catch-all-error-message的返回消息判断是按了esc，还是按了回车、空格或右键，然后分别处理？

Lisper · 发表于 2013-4-17 19:54:10

问题提的太笼统！请举出具体实例，以便帮你分析！

yx5277 · 发表于 2013-4-17 20:29:29

Lisper 发表于 2013-4-17 19:54

登录/注册后可看大图

问题提的太笼统！请举出具体实例，以便帮你分析！

[pcode=lisp,true];;;错误处理教程-1
(defun c:tt1 (/  varlst var_old var_new)
  (defun *error* (inf)
(setq inf (strcase inf t)) ;将出错信息转换为小写字符串
(cond
      ((wcmatch inf "*break,*cancel*,*exit*,*取消*") ;|按了<Esc>键出错处理|;
         (princ "\n用户按了<Esc>强制退出\n")
         (mapcar 'setvar varlst var_old)
      )
      (t ;|其余错误处理|;
         (princ (strcat "\n" inf))
         (mapcar 'setvar varlst var_old)
      )
) ;_ 结束cond
(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
(princ)
  ) ;_ 结束defun
  (vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq varlst '("osmode")
         var_new '(0)
         var_old (mapcar 'getvar varlst)
  ) ;_ 结束setq
  (mapcar 'setvar varlst var_new)
  (princ "\n按<Esc>强制退出, <空格>/<Enter>/<右键>错误...")
  (rtos (getreal "\n请输入实数:"));出错后转到内部自定义的*error*函数
  (mapcar 'setvar varlst var_old)
  (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
  (princ)
) ;_ 结束defun
;;;错误处理教程-2
(defun c:tt2 (/ err inf varlst var_old var_new)
(vla-StartUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq err (vl-catch-all-apply
                                 '(lambda ()
                                                (setq varlst  '("osmode")
                                                      var_new '(0)
                                                      var_old (mapcar 'getvar varlst)
                                                ) ;_ 结束setq
                                                (mapcar 'setvar varlst var_new)
                                                (princ "\n按<Esc>强制退出, <空格>/<Enter>/<右键>错误...")
                                                (rtos (getreal "\n请输入实数:"))
                                    ) ;_ 结束lambda
                     ) ;_ 结束vl-catch-all-apply
  ) ;_ 结束setq
  (if (vl-catch-all-error-p err)
      (progn ;|出错处理|;
         (setq inf (strcase (vl-catch-all-error-message err) t)) ;将出错信息转换为小写字符串
         (cond ((wcmatch inf "*break,*cancel*,*exit*,*取消*") ;|按了<Esc>键出错处理|;
         (princ "\n用户按了<Esc>强制退出\n")
         (mapcar 'setvar varlst var_old)
         (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
         )
         (t ;|其余错误处理|;
         (princ (strcat "\n" inf))
         (mapcar 'setvar varlst var_old)
         (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
         )
         ) ;_ 结束cond
         (princ)
      ) ;_ 结束progn
      (progn ;|程序正常运行完毕的处理|;
         (princ "\n")
         (mapcar 'setvar varlst var_old)
         (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
         (princ)
      ) ;_ 结束progn
  ) ;_ 结束if
) ;_ 结束defun[/pcode]

在上面两个出错处理函数教程中，vl-catch-all-apply方法之后按<Esc>强制退出与<空格>/<Enter>/<右键>都是一同退出，我想加一个判断，如果是按<Esc>就强制退出，按<空格>/<Enter>/<右键>就执行其它代码而不退出，关键是vl-catch-all-apply方法之后如何判断是esc还是回车？

yx5277 · 发表于 2013-4-17 20:34:31

yx5277 发表于 2013-4-17 20:29

登录/注册后可看大图

;;;错误处理教程-1
(defun c:tt1 (/ varlst var_old var_new)
(defun *error* (inf)

上述代码来自于出错处理案例解析 [url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85081&fromuid=219579[/url]

Gu_xl · 发表于 2013-4-17 20:47:04

yx5277 发表于 2013-4-17 20:34

登录/注册后可看大图

上述代码来自于出错处理案例解析 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85081&fromuid=2195 ...

请参阅这篇帖子：
【Gu_xl】Lisp程序设计错误处理的技巧 ...

zhang8755 · 发表于 2013-4-17 22:09:11

增加循环可以满足你的要求吧！
[pcode=lisp,true](defun c:tt2 (/ err inf varlst var_old var_new)
  (vla-StartUndoMark
(vla-get-ActiveDocument (vlax-get-acad-object))
  )
  (setq con t)
  (while con
(setq
   err
   (vl-catch-all-apply
   '(lambda ()
(setq varlst  '("osmode")
   var_new '(0)
   var_old (mapcar 'getvar varlst)
) ;_ 结束setq
(mapcar 'setvar varlst var_new)
(princ "\n按<Esc>强制退出, <空格>/<Enter>/<右键>错误...")
(rtos (getreal "\n请输入实数:"))
(setq con nil)
   ) ;_ 结束lambda
   ) ;_ 结束vl-catch-all-apply
) ;_ 结束setq
(if (vl-catch-all-error-p err)
   (progn ;|出错处理|;
(setq inf (strcase (vl-catch-all-error-message err) t))
;将出错信息转换为小写字符串
(cond ((wcmatch inf "*break,*cancel*,*exit*,*取消*")
   ;|按了<Esc>键出错处理|;
   (princ "\n用户按了<Esc>强制退出\n")
   (mapcar 'setvar varlst var_old)
   (vla-EndUndoMark
   (vla-get-ActiveDocument (vlax-get-acad-object))
   )
   (setq con nil)
   )
   (t ;|其余错误处理|;
   (princ (strcat "\n" inf))
   (mapcar 'setvar varlst var_old)
   (vla-EndUndoMark
   (vla-get-ActiveDocument (vlax-get-acad-object))
   )
   )
) ;_ 结束cond
(princ)
   ) ;_ 结束progn
   (progn ;|程序正常运行完毕的处理|;
(princ "\n")
(mapcar 'setvar varlst var_old)
(vla-EndUndoMark
   (vla-get-ActiveDocument (vlax-get-acad-object))
)
(princ)
   ) ;_ 结束progn
) ;_ 结束if
  );_ 结束while
) ;_ 结束defun
[/pcode]

Free-Lancer · 发表于 2013-4-17 22:54:36

想的太多，既然Catch了，按最终结果处理，没必要再分情况

yx5277 · 发表于 2013-4-18 16:41:29

zhang8755 发表于 2013-4-17 22:09

登录/注册后可看大图

增加循环可以满足你的要求吧！
(defun c:tt2 (/ err inf varlst var_old var_new)
(vla-StartUndoMark
...

谢谢你的解答，基本可以达到要求，但还不是我预想要的，不知有没有能直接判断的？

zhang8755 · 发表于 2013-4-18 19:56:22

本帖最后由 zhang8755 于 2013-4-18 19:58 编辑

按照你这个的特定需求，用initget 屏蔽空输入就可以了。getreal前加一个（initget 1）就行了。

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

[求助] 请教，vl-catch-all-apply方法之后如何判断是esc还是回车？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

评分

评分

浏览过的版块