错误，继续执行--->

尘缘一生

      当你开发许多的函数和命令，你并不能保证他们都正确，即便都正确，你也不知道他是否适合所有CAD版本，那么如何有个函数存在，把它放在每一个函数与程序的前面，一旦加载运行错误，不影响其他的加载与运行？
    假如这个函数叫    （defun   error-1 ())

1：出现加载无法加载时候，防止中断退出，继续加载下面的。
3：加载成功即便，运行错误，就立即结束。

（defun  1 ()
.....
)
（defun  2 ()
.....
)

（defun  C:A ()
.....
)

........

那么上面常规写法变成如下：

（defun  1 ()
（error-1）
.....
)
（defun  2 ()
（error-1）
.....
)

（defun  C:A ()
（error-1）
.....
)

这个函数，有吗？我说的不是 CAD那个错误处理函数

1291500406

自贡黄明儒 发表于 2019-7-15 08:31
我上次问你的问题你还没正面回答。
本次问题只能用vl-catch-all-error-p

(alert(bb_StrConv "石必强AutoLisp" 1))  ——> "石必强AUTOLISP"
(alert(bb_StrConv "石必强AutoLisp" 2))  ——> "石必强autolisp"
(alert(bb_StrConv "石必强AutoLisp" 4))  ——>"石必强ＡｕｔｏＬｉｓｐ"
(alert(bb_StrConv "石必强AutoLisp" 8))  ——>"石必强AutoLisp"
(alert(bb_StrConv "石必强ＡｕｔｏＬｉｓｐ" 1)) ——> "石必强ＡＵＴＯＬＩＳＰ"
(alert(bb_StrConv "石必强ＡｕｔｏＬｉｓｐ" 2)) ——>"石必强ａｕｔｏｌｉｓｐ"
(alert(bb_StrConv "石必强ＡｕｔｏＬｉｓｐ" 4)) ——>"石必强ＡｕｔｏＬｉｓｐ"
(alert(bb_StrConv "石必强ＡｕｔｏＬｉｓｐ" 8)) ——>"石必强AutoLisp"
(defun bb_StrConv (str b)(vla-eval (vlax-get-acad-object)
(strcat "ThisDrawing.setVariable \"USERS1\",StrConv (\"" str  "\", " (rtos b) ")"))
(getvar "users1"))

taoyi0727

cghdy 发表于 2019-10-10 13:41
你lisp玩的那么6，你的无敌面板什么时候发布啊

还在搞 主要是没有时间 又不会一边学一边搞
还没有搞完  做图库dcl达不到我想要的效果  又刚开始学opendcl,不好学,教程也没有,帮助全英文(看不懂),进度很慢
目前就搞成这样了

669423907

很佩服前辈的折腾精神。
一个最简单有效的办法就是：
(load "1.lsp")
(load "2.lsp")
(load "3.lsp")
(load "4.lsp")
(load "5.lsp")
，，，，，，，，
任何一个出错都不影响其它的加载与运行（1、2、3、4、5不能有互用的东西）

1291500406

VBS 是 On Error Resume Next
lisp不知道

自贡黄明儒

1291500406 发表于 2019-7-15 08:12
VBS 是 On Error Resume Next
lisp不知道

我上次问你的问题你还没正面回答。
本次问题只能用vl-catch-all-error-p

自贡黄明儒

你这个老头，尽乱想天开，桌子给你画了一个圈，你只能在圈中玩。明白不？

taoyi0727

你们怎么会那么多语言  我就llisp都够呛

自贡黄明儒

taoyi0727 发表于 2019-7-15 09:53
你们怎么会那么多语言  我就llisp都够呛

估计你岁数比我大的缘故吧。

1291500406

vl-catch-all-error-p

cghdy

taoyi0727 发表于 2019-7-15 09:53
你们怎么会那么多语言  我就llisp都够呛

你lisp玩的那么6，你的无敌面板什么时候发布啊