按下ESC按钮

brianhiroshi · 发表于 2022-7-6 15:03:02

你好
在我的函数开始时，我将一些变量（如snapmode）设置为0 ABN，并在开始时还原值。如果使用AutoLisp例程的人在函数结束之前按下ESC按钮，我该怎么办？发生这种情况时，有没有办法恢复变量？
谢谢

Lee Mac · 发表于 2022-7-6 15:11:25

您需要在代码检查AfraLISP中使用错误处理程序。net获取有关如何实现这一点的主题

Lee Mac · 发表于 2022-7-6 15:16:43

类似于：


(setq olderr *error* *error* errtrap)
(defun errtrap (msg)
 (if oldvars (mapcar 'setvar vlst oldvars))
 (setq *error* olderr)
)
(setq vlst (list "OSMODE" "CLAYER") ; list changed system vars here
       oldvars (mapcar 'getvar vlst))

brianhiroshi · 发表于 2022-7-6 15:22:46

谢谢我看看它在我的程序中是否有效！

alanjt · 发表于 2022-7-6 15:30:33

您也可以将错误处理程序作为本地化的子例程。你只要把它命名为“error”。
例如

没有什么特别的，只是简单一点。

Lee Mac · 发表于 2022-7-6 15:34:38

Alan，上面可能会简单一些，但我不建议重新定义内置ACAD*错误*例程。。。。

程序完成后，应恢复先前的“错误”设置。

李

alanjt · 发表于 2022-7-6 15:42:17

通过本地化*错误*，您正在这样做。当我退出例程时（即使我必须执行*error*函数），原始*error*将被恢复。
只要它是本地化的，它只会持续到例程所持续的时间。

alanjt · 发表于 2022-7-6 15:45:51

我想说，这甚至是一种更安全的方法，因为如果您在错误恢复时以某种方式设法逃脱，那么您就不会有通过不运行表达式来恢复原始错误例程的问题：（setq*error*orig\u error）

我可能错了，所以我不是说这是一条路。如果有人愿意插话，我洗耳恭听。如果我做错了，我想知道。

Lee Mac · 发表于 2022-7-6 15:53:52

好吧，tbh，我以前让我所有的错误处理程序都与你发布的几乎相同，但最近因为这个原因我改变了：

http://www.cadtutor.net/forum/showpost.php?p=213140&postcount=19

查看第三个要点

干杯

李

CALCAD · 发表于 2022-7-6 16:02:58

在玩了一段时间并尝试了许多变体之后，我推荐alanjt的错误捕捉方法。这是最短最简单的方法，我敢说是最安全的方法。Lee Mac提到的JohnM的建议值得考虑，但关于*error*的第三项令人困惑，因为AutoCAD文档将*error*称为“用户可定义的错误处理函数”你应该重新定义它，然后恢复默认值。好的，通过在主函数中定位*错误*，这就是所发生的事情，用最少的代码量。李，如果你回想几个月前，CAB用这种错误陷阱重写了一些中心线程序。这种方法可能有问题，但到目前为止我还没有找到。它看起来是错误的，因为*error*总是被称为一个函数，将其放在局部var列表中表明它是一个变量名。也许它实际上有点像指向函数的指针。无论如何，这似乎是可行的。

[编程交流] 按下ESC按钮

发表回复

精选推荐