结束上一个调用 toor 的错误处理函数*push-error-using-command**push-error-using-stack* 支持的平台:视窗和 Mac OS 签名(*pop-error-mode*) 没有参数。 返回值类型:T 返回的值 ofis。T 言论在将自定义处理程序函数替换为先前定义的处理程序后,应调用 to。*pop-error-mode**error**error* 注意:在处理程序中使用函数时不需要此函数。command-s*error*
例子下面的示例演示函数的用法。*pop-error-mode* (defun my_err (err_msg) (if (/= err_msg "Function cancelled") (prompt (strcat "\nError: " err_msg)) ) (command "._undo" "_e") (command "._U") (setq *error* olderr) (princ) ) (defun myUtil (key / ) (setq olderr *error* *error* my_err) (*push-error-using-command*) ; Indicate use of the command function instead of command-s ; in a custom error handler (command "._undo" "_group") ; The following will not be executed in this sample, but is good ; framework for setting up your own error handlers (/ 1 0) ; Call a function with incorrect values to trigger the custom error handler ; Remove when setting up your code ;; Perform your tasks here (command "._undo" "_e") (setq *error* olderr) ; Restore old *error* handler (*pop-error-mode*) ; End the use of *push-error-using-command* ) 加载示例代码后,在命令提示符下输入(myutil“字符串”)以输入错误处理程序。 |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2024-12-15 14:51
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.