*error*函数在CAD2014中还有没有作用

czww26

• (defun *myerr*(msg)
•   (alert "yxl")
•   (princ "aaaaaaaaaa")
•   (setq *error* olderr)
• )
• (defun C:t1()
•   (setq olderr *error* *error* *myerr*)
•   (repeat 10000
•      (command "line" '(0 0) '(100 100) "")
•   )
•   (setq *error* olderr)
• )
• ;;试了很多种写法。按esc不会自动调用，变量没法恢复。感觉上面写法再简单不过了，
  结果都是一点反应都没有。论坛找了好多处理方法，结果一个样没反应。
  是不是这个函数
  已经废除
  了
  

wen1235

　 *error* 是在意外中断的情况下才执行的
(defun *myerr* (msg) (alert "yxl") (princ msg) (princ "\naaaaaaaaaa") (setq *error* olderr))
(defun c:t1 ()
  (setq        olderr        *error*
        *error*        *myerr*
  )
  (command "line" '(100 100) pause)
  (setq *error* olderr)
)
你执行上面的代码　然后按ＥＳＣ你就会知道了

wen1235

如果按你这样子测试　你按ＥＳＣ是回到ＶＬＩＳＰ调试器中　并没有出错中断的　只是中断了循环　所以得不到你想要的结果

czww26

wen1235 发表于 2019-11-25 14:44
如果按你这样子测试　你按ＥＳＣ是回到ＶＬＩＳＰ调试器中　并没有出错中断的　只是中断了循环　所以得不到 ...

请问程序执行结束后按esc退出程序(因为自己做的程序是死循环，只能按esc退出)，该怎么写错误处理，自己写的没任何作用。每次按esc退出，系统变量都不能自动恢复，求教谢谢

taoyi0727

(defun C:tt (/ *error* error_bak)
        (defun t-*error* (msg)
                (setq *error* error_bak)
                (alert "错误函数成功")
        )
        (setq error_bak *error*)
        (setq *error* t-*error*)
        (getpoint)
        (setq *error* error_bak)
)

wen1235

czww26 发表于 2019-12-5 12:50
请问程序执行结束后按esc退出程序(因为自己做的程序是死循环，只能按esc退出)，该怎么写错误处理，自己写 ...

你要说清楚啊　如果是变量没恢复的话　你的程序中本来就没有恢复变量的代码　怎么会还原呢　你可这样测试　把下面代码存为文件　关了ＣＡＤ　再开ＣＡＤ就不要在打开ＶＬＩＳＰ调试器了　你用手动加载刚才的文件执行　按退出　你就明白了　
(defun c:t1 ()
  (defun *myerr* (msg)
    (mapcar 'eval sysvarlst) ;;恢复变量值　
    (alert "yxl")
    (princ msg)
    (princ "\naaaaaaaaaa")
    (setq *error* olderr)
  )
  (setq        olderr        *error*
        *error*        *myerr*
  )
  (setq        sysvarlst (mapcar (function (lambda (n) (list 'setvar n (getvar n)))) ;;先取改变前的变量名和值保存
                          '("osmode" "cmdecho" "orthomode" "osnapcoord" "textsize")
                  )
  )
  (setvar "osmode" 0) 　　　;改变变量值
    (repeat 10000
     (command "line" '(0 0) '(100 100) "")
  )
  (mapcar 'eval sysvarlst) ;;恢复变量值
  (setq *error* olderr)
)

tianying307

wen1235 发表于 2019-12-5 14:01
你要说清楚啊　如果是变量没恢复的话　你的程序中本来就没有恢复变量的代码　怎么会还原呢　你可这样测试 ...

感谢分享方法，确实有效，十分感谢

magicheno

感谢大佬分享