[原创]巧用出错，让你的程序更优雅。

飞诗(fsxm)

出错程序就自然中断，再常见不过!
又没有想过好好利用一下呢？
下面用就好好利用出错中断的特性包装成两个函数！

3. ;;无声退出
4. (defun fsxm-silenceexit (/ *error*)
5.   (t (setq *error* strcat))
6. )

;;无声退出 (defun fsxm-silenceexit (/ *error*)   (t (setq *error* strcat)) )

解说fsxm-silenceexit
这个是我最常用到的一个函数了！
有了它，代码会更优雅！
比如最常用的结构

3. (defun c:test ()
4.   (setq ss (ssget))
5.   (if ss
6.     (progn
7.      ........主程序模块........
8.     )
9.   )
10. )
11. ;;使用fsxm-silenceexit的
12. (defun c:test ()
13.   (setq ss (ssget))
14.   (or ss (fsxm-silenceexit))
15.   ........主程序模块........
16. )

(defun c:test ()   (setq ss (ssget))   (if ss     (progn      ........主程序模块........     )   ) ) ;;使用fsxm-silenceexit的 (defun c:test ()   (setq ss (ssget))   (or ss (fsxm-silenceexit))   ........主程序模块........ )

绝大多数要求用户输入，都要检查数据合法性。
这样处理去了一层难看的括号，程序条理更分明！

3. ;;带return的apply
4. (defun Fsxm-Apply ($Sym $Lst / $$ return $rt)
5.   (defun Return (var) (setq Return nil) (setq $$ var) (exit))
6.   (setq $rt (vl-catch-all-apply $Sym $Lst))
7.   (if Return $rt $$)
8. )

;;带return的apply (defun Fsxm-Apply ($Sym $Lst / $$ return $rt)   (defun Return (var) (setq Return nil) (setq $$ var) (exit))   (setq $rt (vl-catch-all-apply $Sym $Lst))   (if Return $rt $$) )

解说Fsxm-Apply
一般说来Lisp的函数，只能一路执行到底，返回函数最后一个表达式的值。
试试Fsxm-Apply！集成一个类似于C语言的return功能！让你随时随地的结束函数，返回值！
特别应用就是在深层递归中退出。
如下例：找到第一个适合的文件就能立刻退出
用法：
(fsxm-searchfile 目录 文字样板 限时)
(fsxm-searchfile "c:" "*.lsp" 10)

3. ;;查找一个文件
4. (defun fsxm-searchfile (path pate time / t0 t1 dir)
5.   (defun dir (paths / find lst paths2 strcat_ph)
6.     (defun strcat_ph (lst)
7.       (mapcar '(lambda (a) (strcat ph "\" a)) lst)
8.     )
9.     (while paths
10.       (setq paths2 nil)
11.       (foreach ph paths
12. (if (> (getvar "TDUSRTIMER") t1)
13.    (return nil)
14. )    ;超时退出
15. (if (setq find (vl-directory-files ph pate))
16.    (return (strcat ph "\" (car find)))
17. )    ;找到退出
18. (if (and (setq lst (vl-directory-files ph nil -1))
19.    (if (= (car lst) ".")
20.      (setq lst (cddr lst))
21.      t
22.    )
23.      )
24.    (setq paths2 (cons (strcat_ph lst) paths2))
25. )
26.       )
27.       (setq paths (apply 'append paths2))
28.     )
29.   )
30.   (setq path (list path))
31.   (setq t0 (getvar "TDUSRTIMER"))
32.   (setq t1 (+ t0 (/ time 86400.0)))
33.   (fsxm-apply 'dir (list path))
34. )

;;查找一个文件 (defun fsxm-searchfile (path pate time / t0 t1 dir)   (defun dir (paths / find lst paths2 strcat_ph)     (defun strcat_ph (lst)       (mapcar '(lambda (a) (strcat ph "\" a)) lst)     )     (while paths       (setq paths2 nil)       (foreach ph paths (if (> (getvar "TDUSRTIMER") t1)    (return nil) )    ;超时退出 (if (setq find (vl-directory-files ph pate))    (return (strcat ph "\" (car find))) )    ;找到退出 (if (and (setq lst (vl-directory-files ph nil -1))    (if (= (car lst) ".")      (setq lst (cddr lst))      t    )      )    (setq paths2 (cons (strcat_ph lst) paths2)) )       )       (setq paths (apply 'append paths2))     )   )   (setq path (list path))   (setq t0 (getvar "TDUSRTIMER"))   (setq t1 (+ t0 (/ time 86400.0)))   (fsxm-apply 'dir (list path)) )

注：FSTL各版本的函数库都收录有以上函数。

啵浪鼓

自已做程序時都沒做出錯部分處理，程序運行後出錯了就按Esc鍵顯示一堆錯誤提示，太現眼了，現在可以借鑒樓上方式了！感謝樓主分享!!!

carrot1983

占个位子学习一下。

很漂亮的除错语句。

wangqin

版主的水平就是不一样

Andlu-king

不错，可免得没有出错程序而引起的不爽，谢谢分享，有时间时也试试！

飞的妖儿

谢谢 楼主  辛苦了！！！！

飞的妖儿

我啥时候才能有这水平啊！

highflybird

谢谢楼主，呵呵， 我把这个方法推广到国外去了。
举了一个例子:

3. (defun c:test()
4.   (fsxm-apply 'func '((1 2 3 4 7 9 5 6 7 8 9)))
5. )
6. ;;
7. (defun func (lst / i)
8.   (setq i 0)
9.   (foreach n lst
10.     (if (= n 5)
11.       (return  i)
12.     )
13.     (setq i (1+ i))
14.   )
15.   nil
16. )

(defun c:test()   (fsxm-apply 'func '((1 2 3 4 7 9 5 6 7 8 9))) ) ;; (defun func (lst / i)   (setq i 0)   (foreach n lst     (if (= n 5)       (return  i)     )     (setq i (1+ i))   )   nil )

本来foreach 是遍历函数的，意味从头到尾，在这个例子中，func如果没有return函数，它的返回值总是nil,
正是因为有了return 函数，才使得函数在这点打断，返回了一个指定的值，使得函数得到了正确的返回值。然后因此引起的由主程序catch。
很好的思路，不过有点点遗憾的是 用到了vl-catch-all-apply，有可能会造成异常无法区分。
另外不知道楼主怎样对待 break,continue,和goto语句的呢？

zxjing

我先占个坑，将来好LS，哈哈

USER2128

经典好贴！