两种出错处理方式

两种出错处理方式:一种是对出错函数进行重定义,一种是对错误进行捕捉处理。

  1. ;;===================================================================================================
  2. ;;===================================================================================================
  3. ;;===========================================两种出错处理方式========================================
  4. ;;===================================================================================================
  5. ;;===================================================================================================
  6. ;;=============================================01.出错函数===========================================
  7. (defun c:tt()
  8. ;;备份系统出错函数
  9. (setq *error*_bak *error*)
  10. ;;将自定义出错函数赋值给系统出错函数
  11. (setq *error* *error*_non)
  12. ;;备份捕捉
  13. (setq osmode_bak (getvar "osmode"))
  14. ;;----------------------------------------
  15. (setvar "osmode" 0)
  16. (getpoint)
  17. (command "line" pause pause "")
  18. ;;----------------------------------------
  19. ;;正常执行也要还原出错函数
  20. (setq *error* *error*_bak)
  21. ;;正常执行也要还原修改的变量
  22. (setvar "osmode" osmode_bak)
  23. )
  24. ;;定义自己的出错函数
  25. (defun *error*_non (msg)
  26. ;;对于CAD内置command命令执行的使用(command)取消执行,然后执行后面语句
  27. (command)
  28. ;;将系统出错函数进行还原
  29. (setq *error* *error*_bak)
  30. ;;出错后还原修改的变量
  31. (setvar "osmode" osmode_bak)
  32. )
  33. ;;=============================================02.错误捕捉===========================================
  34. ;;功 能:命令是否存在
  35. ;;参 数:命令字符串
  36. ;;返回值:存在为T,否则为nil
  37. (defun isCommandExist(commandstr / candcommandstr isexist myvalue)
  38. (setq cAndCommandStr (strcat "c:" commandStr))
  39. (if (equal (type (eval (read cAndCommandStr))) ‘subr)
  40. ;;说明是用lisp的defun定义的命令
  41. (progn
  42. (setq isExist T)
  43. ;(print "命令存在!")
  44. )
  45. ;;不是lisp中defun定义的命令
  46. (progn
  47. (if
  48. ;;if判断的条件
  49. (not
  50. ;;捕捉错误,错误存在为T,不存在为FALSE
  51. (vl-catch-all-error-p
  52. ;;将语句执行结果返回给myvalue,语句执行出错myvalue值为#<%catch-all-apply-error%>,不出错的话就是语句执行后的结果
  53. (setq myvalue
  54. ;;执行语句,并且用vl-catch-all-apply捕捉错误,注意后面的格式,第一个为函数注意前面用单引号,后面为函数参数表
  55. (vl-catch-all-apply ‘(lambda (x) (progn (command x) (setq lastCommand (getvar "LASTPROMPT")) (if (not (wcmatchlastCommand "*未知命令*")) (command "ESC")))) (list commandStr))
  56. )
  57. )
  58. )
  59. ;;if条件后的第一条语句
  60. ;;如果执行出错就执行下面这句
  61. (progn
  62. (setq isExist nil)
  63. ;(print "命令不存在!")
  64. )
  65. ;;if条件后的第二条语句
  66. ;;如果执行出错,就捕捉错误,执行下面这句
  67. (progn
  68. (setq isExist T)
  69. ;(print "命令存在!")
  70. )
  71. );;end if
  72. ;;取消命令操作
  73. (if isExist
  74. (progn
  75. (command)
  76. )
  77. );;end if
  78. );;end progn
  79. );;end if
  80. ;;输出值,命令存在时是T,否则是nil
  81. isExist
  82. )
时间: 2024-11-03 21:09:57

两种出错处理方式的相关文章

PlaceHolder的两种实现方式

placeholder属性是HTML5 中为input添加的.在input上提供一个占位符,文字形式展示输入字段预期值的提示信息(hint),该字段会在输入为空时显示. 如 1 <input type="text" name="loginName" placeholder="邮箱/手机号/QQ号"> 目前浏览器的支持情况 浏览器 IE6/7/8/9 IE10+ Firefox Chrome Safari  是否支持 NO YES YE

简易版聊天系统实现 Socket VS NIO两种实现方式

说是简单聊天系统,压根不能算是一个系统,顶多算个雏形.本文重点不在聊天系统设计和实现上,而是通过实现类似效果,展示下NIO 和Socket两种编程方式的差异性.说是Socket与NIO的编程方式,不太严谨,因为NIO的底层也是通过Socket实现的,但又想不出非常好的题目,就这样吧. 主要内容 Socket方式实现简易聊天效果 NIO方式实现简易聊天效果 两种方式的性能对比 前言 预期效果,是客户端之间进行"广播"式聊天,类似于QQ群聊天.希望以后有机会,以此简易版为基础,不断演进,演

Redis两种持久化方式(RDB&amp;AOF)

爬虫和转载请注明原文地址;博客园蜗牛:http://www.cnblogs.com/tdws/p/5754706.html Redis所需内存 超过可用内存怎么办 Redis修改数据多线程并发—Redis并发锁 windows下redis基础操作与主从复制 从而 数据备份和读写分离 Redis两种持久化方式(RDB&AOF) Redis的持久化过程中并不需要我们开发人员过多的参与,我们要做的是什么呢?除了深入了解RDB和AOF的作用原理,剩下的就是根据实际情况来制定合适的策略了,再复杂一点,也就

冒泡排序及两种优化方式

冒泡排序是最常用的小型数据排序方式,下面是用C语言实现的,及其两种优化方式. 第一种优化方式是设置一个标记位来标记是否发生了交换,如果没有发生交换就提前结束: 第二种优化方式是记录最后放生交换的位置,作为下一趟比较结束的位置. #include <stdio.h> /* * 打印数组 * */ void printArray(int arr[], int n) { int i = 0; for (i = 0; i < n; ++i) { printf("%d ", a

struts2+spring的两种整合方式

借助于Spring插件(Struts2-spring-plugin-XXX.jar),我们可以非常简单地完成Spring和Struts2的整合,这种整合包括让Action自动装配Spring容器中的Bean,以及让Spring管理应用中的Action两种方式,不管采用哪种方式,完成Struts2和Spring的整合都是非常简单的,而且差别不大.一旦在Web应用中安装了Spring插件,即可充分利用该插件提供的功能: 1,可以通过Spring来创建所有的Action,Interceptor和Res

JAVABEAN是什么和总结JAVABEAN的两种使用方式

看完这个后再也不纠结javabean是什么东西了,感谢博主,由于是Javablog不能收藏故在此转发. 以下内容转自:http://www.blogjava.net/flysky19/articles/88180.html 一. javabean 是什么? Javabean 就是一个类,这个类就定义一系列 get<Name> 和 set<Name> 方法. So simple ! Javabean 就是为了和 jsp 页面传数据化简交互过程而产生的. 自己的理解: 使用 javab

细说java中Map的两种迭代方式

以前对java中迭代方式总是迷迷糊糊的,今天总算弄懂了,特意的总结了一下,基本是算是理解透彻了. 1.再说Map之前先说下Iterator: Iterator主要用于遍历(即迭代访问)Collection集合中的元素,Iterator也称为迭代器.它仅仅只有三个方法:hasNext(),next()和remove() hasNext():如果仍有元素可以迭代,则返回 true.(换句话说,如果 next 返回了元素而不是 抛出异常,则返回 true). next():返回迭代的下一个元素. re

java 程序执行输出有两种简单方式

java 程序执行输出有两种简单方式: 1. System.out.println("需要输出的内容"): 该方法可参看运行一个简单的Java程序 结果图: 2. System.out.print("需要输出的内容"): 1 public class HelloWorld 2 { 3 //Java程序的入口方法,程序将从这里开始运行 4 public static void main(String[] args) 5 { 6 //向控制台打印一条语句 7 Syste

Android中两种序列化方式的比较Serializable和Parcelable

Serializable和Parcelable接口可以完成对象的序列化过程,当我们需要通过Intent和Binder传输数据时就需要使用者两种序列化方式.还有,我们需要对象持久化到存储设备或者通过网络传输给其他客户端,这个使用也需要使用Serializale来完成对象的序列化.在Android应用开发中,这两种方式都很常见,但两者方式并不相同. 1.Serializable接口 Serializable接口是Java提供的一个序列化接口,它是一个空接口,为对象提供标准的序列化和反序列化操作.使用