【已解决】错误函数相关

lslsq · 发表于 2018-12-8 16:01:56

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

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

×

本帖最后由 lslsq 于 2019-1-14 09:29 编辑

小弟刚学LISP久，能用一些简单的代码提升工作效率，
下面这段代码有点问题，在论坛搜索了*error*函数没整明白，只能求助各位大神了
当输入命令后正常执行没问题，但是当输入命令后按esc退出后图层没有恢复，
曾试过PAUSE用点PT1代替esc取消后没这个问题，可是那样没有预览效果。
(defun c:YY ( / oldlayer  I objlay objname no)
(setq oldlayer (getvar "clayer"))
(command "layer" "m" "RH_layername" "" "")
(setvar "clayer" "RH_layername")
(setq SS (ssadd))
(command "-insert" "YY" PAUSE 1 ""  "")
(ssadd  (entlast ) ss)
(setq no (sslength ss))
(IF (= RH_EXPLODE 0 ) (SETQ  NO  0))
(setq i 0)
(while (< i no)
  (setq objname (ssname ss i))
  (setq objlay (cdr (assoc 8 (entget objname))))
  (command ".explode" objname "")
  (command "change" (ssget "P") "" "p" "la" objlay "")
  (setq i (+ 1 i))
)
(setvar "clayer" oldlayer)
(princ)
)

st788796 · 发表于 2018-12-8 16:13:31

*error* 是 autolisp 定义的错误处理函数入口，当autolisp运行错误或者异常中断时会执行这个函数，程序中自己去实现 *error* 完成哪些动作

(defun c:tt(olderr myerr oldlyr)
(defun myerr(msg);定义自己的出错处理,必须带参数
(setver "clayer" oldlyr);恢复图层
(princ msg)
(princ)
)
(setq olderr *error*;保存前出错信息
*error* myerr;指向自定义出错处理
)
(setq oldlyr (getvar "clayer"));保存变量
;;;程序部分
(setvar "clayer" oldlayer);正常运行恢复变量
(setq *error* olderr);恢复 *error*
(setq myerr nil);可有可无
(princ)
)

sicky111 · 发表于 2018-12-8 16:32:37

错误函数用处很大。

lslsq · 发表于 2018-12-14 15:09:28

st788796 发表于 2018-12-8 16:13
*error* 是 autolisp 定义的错误处理函数入口，当autolisp运行错误或者异常中断时会执行这个函数，程序中自 ...

我套进去，发现并没有效果，不知道哪里出错了~愁

lslsq · 发表于 2018-12-14 15:12:47

st788796 发表于 2018-12-8 16:13
*error* 是 autolisp 定义的错误处理函数入口，当autolisp运行错误或者异常中断时会执行这个函数，程序中自 ...

另外问一下，那个高亮代码，是不是有等级限制，我试了几次都没有成功。

evayleung · 发表于 2018-12-14 15:16:20

谢谢分享。。。。。。。。。。。。

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

[已解决] 【已解决】错误函数相关

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