[原创]on error resume next 的lisp方法--出错继续的另类方法
 

[原创]on error resume next 的lisp方法--出错继续的另类方法
www.dimcax.com
[原创]on error resume next 的lisp方法--出错继续的另类方法
首先下面的程序用于测试
第一次esc取消会重新调用test函数
第二次esc就崩溃了
(defun test_err(msg)
(princ "\nerror!")
(setq *error* err_bak)
(c:test)
)
(defun c:test()
(setq err_bak *error* *error* test_err)
(setq pt (getpoint "\ngetpoint"))
(print pt)
(setq *error* err_bak)
(princ "\ndone")
(princ)
)
测试
---
命令: test
getpoint*取消*
error!
getpoint*取消*
错误: *error* 函数中出错函数被取消
---
问题:
如何能控制程序在出错后仍然继续执行
就像vb中的 on error resume next
我希望用户在敲esc之后程序可以继续执行
或者出现错误的时候继续执行
---------------------
下面是我的替代办法:
(defun test_err(msg)
(princ "\nerror!")
(setq *err t)
(setq *error* err_bak)
(setq ws (vlax-create-object "wscript.shell"))
(vlax-invoke-method ws 'sendkeys "test{enter}")
)
(defun c:test()
(setq err_bak *error* *error* test_err)
(setq pt (getpoint "\ngetpoint"))
(print pt)
(setq *error* err_bak)
(princ "\ndone")
(princ)
)
按esc几次试试 在用户看来esc并没有成功阻止程序的停止
================================================
这样也可以用在其他错误处理上 当然程序中需要加入控制
比如按esc程序正常退出(模仿on error resume next):
(defun test_err(msg)
(princ "\nerror!")
(setq *err t)
(setq *error* err_bak)
(setq ws (vlax-create-object "wscript.shell"))
(vlax-invoke-method ws 'sendkeys "test{enter}")
)
(defun get_pt()
(if *err
nil
(getpoint "\ngetpoint")
)
)
(defun c:test()
(setq err_bak *error* *error* test_err)
(setq pt (get_pt))
(print pt)
(setq *error* err_bak *err nil)
(princ "\ndone")
(princ)
)
这样只需几个关键变量就可以控制出错的继续执行了(原来的*error*只能允许一次错误)
================================
其实sendkeys提供的键盘模拟输入可以帮助我们进行很多的操作
比如
(vlax-invoke-method ws 'sendkeys "^0")
正规的做法是配合vl-catch-all-apply函数处理
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
好思路，学习。
d
定义*error*应该可以实现，
先设置一个开关——设置某变量为t
当用户按esc自动激活*error*时，
执行一个cond语句，判断变量为 t 时继续执行，
反之则结束，这样就形成了类似 whil 的程序自身的循环。。。
----------------------
也可用vl-catch-all-apply vl-catch-all-error-p等函数
d
那vl-catch-all-apply
怎样才能处理对话框上面的错误呢
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
(while (< i 25)
(setq str "")
(repeat i (setq str (strcat str " ")))
(set_tile "nonsmall" (strcat str "nonsmall作品"))
(acet-sys-sleep 50)
(setq i (1+ i))
)
这段是在对话框上面跳动的文字效果
用户按esc的时候我并不知道是那句话中断的
如果用vl-catch-all-apply的话可能每句话都要改写了
循环里面多一些内容
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
请具体举例说明一下