[建议]：lisp中osmode的设定

yytt

我下载很多自编程序，需关闭自动捕捉时都是先将osmode赋予一个变量，再将osmode设为0来执行程序，程序执行完毕后再设回osmode原值，此种做法若在程序出错时osmode将变为0，还需重新设定自动捕捉，我通常是将osmode先做if判断，若大于16384则保持原值，若小于16384则加16384,同样可以在非自动捕捉下执行程序，如果程序一旦出错，按一下F3即可恢复设定.

zhang8755

我是这么做的，重新定义出错处理函数，在其中将以前修改过的系统变量还原。
(defun errorfun        (s)
  (if oldpickbox (setvar "pickbox" oldpickbox));将pickbox还原
  (setvar "cmdecho" 0)
  (command "layer" "on" "mb" "")
  (command "layer" "s" "0" "");回到0层
  (if (= (type f) 'FILE)
    (close f);将未关闭的文件关闭
  )
  (if (= (type fn) 'FILE)
    (close fn)
  )

  (princ (strcat "\n错误: " s))
)

(setq *error* errorfun)