【飞鸟集】数据取整（更新至2020.10）

BenjaminXM

你好，看了源代码后，有一些疑惑想请教一下：
1. 在出错处理这块，

2. ;;出错处理
   
3.   (defun *error*_New (msg)
   
4.     (setq *error* *error*_Old)
   
5.     (if (wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")
   
6.       (if (= (getvar "LOCALE") "CHS")
   
7.         (princ "\n用户按了<Esc>强制退出")
   
8.         (princ "\nYou cancelled The operation!")
   
9.       )
   
10.       (princ (strcat "\n" msg))
    
11.     )
    
12.     (vla-EndUndoMark                                                ;回退
    
13.       (vla-get-ActiveDocument (vlax-get-acad-object))
    
14.      )       
    
15.     (Restore_Locked_Layers Locks)
    
16.     (princ)
    
17.   )
    
18.   (setq *error*_Old *error*)                                        ;保存出错处理函数
    
19.   (setq *error* *error*_New)
    
20. 
    
21.   

;;出错处理<br />   (defun *error*_New (msg)<br />     (setq *error* *error*_Old)<br />     (if (wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")<br />       (if (= (getvar "LOCALE") "CHS")<br />         (princ "\n用户按了<Esc>强制退出")<br />         (princ "\nYou cancelled The operation!")<br />       )<br />       (princ (strcat "\n" msg))<br />     )<br />     (vla-EndUndoMark                                                ;回退<br />       (vla-get-ActiveDocument (vlax-get-acad-object))<br />      )        <br />     (Restore_Locked_Layers Locks)<br />     (princ)<br />   )<br />   (setq *error*_Old *error*)                                        ;保存出错处理函数<br />   (setq *error* *error*_New)<br /> <br />   

这里的*error*_New为什么没有带参数msg?
这里为什么要采用一个*error*_Old *error*_New？传递过程不太清楚，能否指导一下这样做的意义吗？

freeok

留下脚印，以备查询

mikary

试过了，很好用~~

dedocibal

我的币啊，是不是该取消了

dedocibal

我的币啊，是不是该取消了

ou67169488

每次看到带有小数的尺寸，我的强迫症又犯了！

pusslica

留下脚印，以备查询

yoyoho

学习一下，谢谢！

一个半

留个脚印，证明我来过

qincj0001

学习学习，谢谢谢谢