[求助]：关于程序中途取消的问题!

xgwl · 发表于 2004-8-12 20:22:30

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

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

×

一个lisp程序在执行过程中突然有"esc"键中断,即取消函数!! 问此时如何才能使已定义的变量,如:("osmode" 0) 等恢复到(setq oldsnap (getvar "osmode")) 的oldsnap 呢?

cqnj023 · 发表于 2004-8-12 20:28:41

定义出错函数

xgwl · 发表于 2004-8-12 21:19:28

能否说得更明白点啊? 身边没有会lisp的人,简单的问题只好请教各位了!:)

eachy · 发表于 2004-8-12 21:35:47

最初由 xgwl 发布
[B]能否说得更明白点啊? 身边没有会lisp的人,简单的问题只好请教各位了!:) [/B]

简单的参考这个，关于程序开始与结束我很早贴过一个，再深入的话可以看看ET中定义部分。

(defun c:test (/ myerror)
;;定义出错函数
(defun myerror (msg)
(princ "\n*取消!*")
(setvar "osmode" oldos);恢复捕捉
(princ)
)
;;主程序部分
(setq olderr *error* ;保存旧的
*error* myerror ;设置新的
)
(setq oldos (getvar "osmode"));保存程序开始前的状态
;;其他代码
......
;;结束部分
(setq *error* olderr);正常结束程序时恢复默认
(setvar "osmode" oldos)
(princ)
)

cqnj023 · 发表于 2004-8-12 23:26:39

注意对出错函数的调用其实更象是变量赋值的形式，(setq olderr *error* *error* myerror )
而与常规的自定义函数调用是有区别的。另外，在定义出错函数时，(defun myerror (msg)中的msg一定要有，当然其在出错函数内部用不用没有关系，在调用时也不需要将其当作形参来处理。msg的值就是出错时*error*返回的错误说明。不同的出错，返回值是不一样的，如按esc取消时中文版中返回“函数被取消"。

snsj · 发表于 2004-8-13 01:07:28

也可以考虑反应器

yjtdkj · 发表于 2004-8-16 10:19:25

关注一下，我也一直弄不明白出错函数(*error*)的用法，还请多多指教!!

zxq0220 · 发表于 2004-8-17 16:47:17

出错函数是一种错误陷阱函数，当程序出错时就执行。
如果将*error*设为nil，则没有错误函数。
错误函数也可以直接定义。

xgwl · 发表于 2004-8-17 21:04:25

我不用出错函数,中断操作后也出现"函数被取消"的字样啊, 我的意思是一个能恢复到之前的状态,还有就象正cad命令一样,取消就取消了,不要什么"函数被取消"的字样!
另外eachy 斑竹示范的,我也没搞出来,呵呵,现在还是幼儿园阶段! 要是有个完整的程序看看就好了!短点的!:)

cqnj023 · 发表于 2004-8-17 23:24:37

eachy斑竹的代码应该是比较完整的了呀。如果要让程序不出现“函数被取消”提示，只需用msg的值重新定义即可，例如：
引用一下eachy斑竹的代码,稍加改了一下，你可以交互用两点法画10个圆，中途你可以按esc试试退出时的提示。注意观察状态条上捕捉显示在程序正常情况下及按ESC非正常情况下
的变化情况。

(defun c:test (/ myerror)
  ;;定义出错函数
  (defun myerror (msg)
(if (= msg "函数被取消")
(princ "\n你按了Esc键")
   )
(setvar "osmode" oldos);恢复捕捉
(setq *error* olderr) ;恢复原来的出错函数
(princ)
  )
  ;;主程序部分
  (setq olderr *error* ;保存旧的
*error* myerror ;设置新的
  )
  (setq oldos (getvar "osmode"));保存程序开始前的态
  (setvar "OSMODE" 32)
  ;;其他代码
(repeat 10
(command "circle" "2p" pause pause)
)
  ;;结束部分
  (setq *error* olderr);正常结束程序时恢复默认
  (setvar "osmode" oldos)
  (princ)
)

xgwl · 发表于 2004-8-17 23:56:56

谢谢啦! 一个人光看书,从零开始学lisp,真的好难!周围又没有一个人会lisp的! 还好有大家帮忙!

yjtdkj · 发表于 2004-8-18 09:59:53

MSG是不是一个特殊的变量，*error*在VISP编辑器中显示为黑色是为什么？

jx2008 · 发表于 2006-11-26 23:22:09

看了楼上的，我明白了，多谢了

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

[求助] [求助]：关于程序中途取消的问题!

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

相关帖子