[求助]关于*error*

m00ner

<hr>

我是新手,想请教一个问题

在Lisp程序开始使用了

(command "undo" "m")

想在*error*中恢复到该标记处,使用了

(command "undo" "b")

可是如果当调用*error*的这个语句时还处于选择状态,

就是程序无法向命令行中输入undo

所以出现了 错误: *error* 函数中出错函数被取消

怎么解决这个问题啊??

我知道可以在程序出错之前加以判断避免调用*error*,可是总是会有潜在的错误.如何从根本上处理呢?

m00ner

沉了..顶下

m00ner

谁能帮个忙.谢谢了

ljpnb

对于*error*的操作，我认为是这样，*error*是用处恢复一些系统变量设置，因为这些系统变量值无法用undo来恢复，而对于一些command命令可以在开始command命令前加个(command "undo" "be")，在所有要处理的command命令结束后加个(command "undo" "e")，一般情况下没有必要在*error*中调用(command "undo".....)。

m00ner

谢谢楼上的指导....

可是我想实现如果程序出错回到初始状态该怎么做呢?

包括系统变量的设置以及对图形的操作都还原回去,可以实现吗?

ljpnb

下面这段是飞哥贴过的一段，你参考一下：

(defun myerror()
(command)
(command "_undo" "e")
(setvar "osmode" oldosmode)  ;;;;oldosmode为先前获得的osmode的值
(setq *error* olderror);;;;olderror也是
)

;主函数,两个变量必须作为全局变量
(defun test()
  (setq oldosmode (getvar "osmode"))
  (setq olderror *error*)
  (setq *error* myerror)
  (command "_.undo" "be")
  ......
  ......
  ;主函数中各个参数也需要恢复
  (command)
  (command "_undo" "e")
  (setvar "osmode" oldosmode)  ;;;;oldosmode为先前获得的osmode的值
  (setq *error* olderror);;;;olderror也是
  (princ)
)

m00ner

茅塞顿开..  谢谢 ljpnb