[原创] 出错处理的点滴经验

Jeff101217

拿好笔记本，搬个板凳，学习~~~~~

liminnet

 (lt:error-init (list '("cmdecho"
  0
  "cecolor"
  "1")
  ;;初始时设置的变量
                        0                            ;;
                        '(if e (redraw e 4))         ;;如果出错，取消亮显
                  )
   )
   (princ
  "\n测试开始!!")
   (initget
  1)
   (setq p1 (getpoint
  "\n点1: "))
   (initget
  1)
   (setq p2 (getpoint p1 "\n点2: "))
   (lt:sysvar-set '("osmode"
  0))

这一句(lt:sysvar-set '("osmode" 0))中的'("osmode" 0))
可以设置在

 (lt:error-init (list '("cmdecho"
  0
  "cecolor"
  "1"  "osmode" 0)
  ;;初始时设置的变量
                        0                            ;;
                        '(if e (redraw e 4))         ;;如果出错，取消亮显
                  )
   )
这一句吗？

caoyin

哪一句啊？

liminnet

(lt:error-init (list '("cmdecho"
  0
  "cecolor"
  "1")
  ;;初始时设置的变量
                        0                            ;;
                        '(if e (redraw e 4))         ;;如果出错，取消亮显
                  )
   )
   (princ
  "\n测试开始!!")
   (initget
  1)
   (setq p1 (getpoint
  "\n点1: "))
   (initget
  1)
   (setq p2 (getpoint p1 "\n点2: "))
   (lt:sysvar-set '("osmode"
  0))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

这一句(lt:sysvar-set '("osmode" 0))中的'("osmode" 0))
可以设置在这一句中去吗？

**************************************

 (lt:error-init (list '("cmdecho"
  0
  "cecolor"
  "1"  "osmode" 0)
  ;;初始时设置的变量
                        0                            ;;
                        '(if e (redraw e 4))         ;;如果出错，取消亮显
                  )
   )
**********

还有为什么要用(lt:sysvar-set '("osmode" 0))这一句呀，不用不行吗

liminnet

;;  [功能] 出错处理初始化
;;  [参数] lst---表(元素1 元素2 元素3)
;;               元素1:  包含系统变量及其值的列表
;;               元素2:  nil--->不操作
;;                       0----->放置 UNDO 的 BEGIN 和 END 标志
;;                       1或T-->放置 UNDO 的 BEGIN 和 END 标志,但出错时 UNDO 回操作前状态
;;               元素3:  出错时执行的特殊操作

还有你上面的元素1和3如果没变量要设置或没有出错执行的东东时，值是不是都是nilak 呀

caoyin

是的

(lt-error-init '(nil 1 nil))

(lt-error-init '(("osmode" 0)))

(lt-error-init '(nil nil '(redraw)))

liminnet

  中途设置的变量为了确保能够在出错后恢复，可以使用 lt:sysvar-set 函数，

           后面我们再详细说明

r刚看到啦，谢谢 caoyin版主，我有一个想法你看一下你的的程序可以实现吗？

就是主程序中我定义啦

(defun errormsg (definmsg)
(setq $ko-errormsg$ '(if (= msg "函数被取消") (setq msg "鬼谷子温馨提示:你用Esc键中止了程序!!!") (setq msg defin)))
)

(defun c:qqqq ()
 (ls:error-init (list nil nil nil))
 (errormsg "你的程序在程序TT中出错啦，请查询程序TT的代码")
 (明经);故意在这一步让程序出错，以调式，是不是显示“你的程序在程序TT中出错啦，请查询程序TT的代码”这一行字
 (lt:error-restore)
)

caoyin版主，为什么上面的不会显示“你的程序在程序TT中出错啦，请查询程序TT的代码”这一行字呀？？

caoyin

(setq *error1* *error*)
(defun *error* (definmsg)
  (princ "鬼谷子温馨提示:你用Esc键中止了程序!!!")
)

(defun c:qqqq ()
 (ls:error-init (list nil nil nil))
 (明经)
 (lt:error-restore)
)

liminnet

不是这个意思啦，老大，我的本意是想如果是用户用ESC来退程序的话就显示("鬼谷子温馨提示:你用Esc键中止了程序!!!")，在而进入那个主程序或通用函数的时候如果程序出错就显示("你的程序在某某程序或函数调用时中出错，请查询某某程序或函数段的代码")

所以我想通过用户定义全局变量 $lt:-errormsg$ 而改变默认出错信息：$lt:-errormsg$这个全局变量不是可以改变错误信息的吗？

samshs

严重学习一下