错误，继续执行--->
本帖最后由 尘缘一生 于 2019-7-14 22:00 编辑当你开发许多的函数和命令，你并不能保证他们都正确，即便都正确，你也不知道他是否适合所有CAD版本，那么如何有个函数存在，把它放在每一个函数与程序的前面，一旦加载运行错误，不影响其他的加载与运行？
假如这个函数叫 （defun error-1 ())
1：出现加载无法加载时候，防止中断退出，继续加载下面的。
3：加载成功即便，运行错误，就立即结束。
（defun1 ()
.....
)
（defun2 ()
.....
)
（defunC:A ()
.....
)
........
那么上面常规写法变成如下：
（defun1 ()
（error-1）
.....
)
（defun2 ()
（error-1）
.....
)
（defunC:A ()
（error-1）
.....
)
这个函数，有吗？我说的不是 CAD那个错误处理函数
本帖最后由 1291500406 于 2019-10-11 19:20 编辑
自贡黄明儒 发表于 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"))
cghdy 发表于 2019-10-10 13:41
你lisp玩的那么6，你的无敌面板什么时候发布啊
还在搞 主要是没有时间 又不会一边学一边搞
还没有搞完做图库dcl达不到我想要的效果又刚开始学opendcl,不好学,教程也没有,帮助全英文(看不懂),进度很慢
目前就搞成这样了
很佩服前辈的折腾精神。
一个最简单有效的办法就是：
(load "1.lsp")
(load "2.lsp")
(load "3.lsp")
(load "4.lsp")
(load "5.lsp")
，，，，，，，，
任何一个出错都不影响其它的加载与运行（1、2、3、4、5不能有互用的东西） VBS 是 On Error Resume Next
lisp不知道 1291500406 发表于 2019-7-15 08:12
VBS 是 On Error Resume Next
lisp不知道
我上次问你的问题你还没正面回答。
本次问题只能用vl-catch-all-error-p 你这个老头，尽乱想天开，桌子给你画了一个圈，你只能在圈中玩。明白不？ 你们怎么会那么多语言我就llisp都够呛 taoyi0727 发表于 2019-7-15 09:53
你们怎么会那么多语言我就llisp都够呛
估计你岁数比我大的缘故吧。 vl-catch-all-error-p taoyi0727 发表于 2019-7-15 09:53
你们怎么会那么多语言我就llisp都够呛
你lisp玩的那么6，你的无敌面板什么时候发布啊
页:
[1]
2