[LISP程序]： xyp1964的错误函数有点疑问

158466939

用这个错误函数为什么会改变系统变量errno的值，我检查了下我的程序，把错误函数去掉了就不会改变errno的值，虽然对程序的正常运行没什么影响我还是想知道为什么会这样~！谁知道是哪里问题，或者 xyp1964斑竹来解觉下

2. 
   
3.   [FONT=courier new]
   
4. ;;;                    保存用户系统变量                     
   
5. ;;;方式 : (CMDLA0)
   
6. (defun CMDLASC0        ()
   
7.   (CMDLA0)
   
8.   (if (null sc)
   
9.     (SETBL)
   
10.   )
    
11. )
    
12. (defun CMDLA0 ()
    
13.   (defun *error* (msg)
    
14.     (princ "错误 : ")
    
15.     (princ msg)
    
16.     (CMDLA1)
    
17.   )
    
18.   (SetQ        **SysVarNL**
    
19.                      '("AUNITS"             "AUPREC"           "ATTDIA"
    
20.                        "BLIPMODE"    "CECOLOR"           "CELTYPE"
    
21.                        "CLAYER"             "CMDECHO"           "DIMZIN"
    
22.                        "EXPERT"             "HIGHLIGHT"   "LUNITS"
    
23.                        "LUPREC"             "OSMODE"           "ORTHOMODE"
    
24.                        "TEXTSTYLE"   "PLINEWID"           "dimdec"
    
25.                        "dimadec"     "regenmode"   "pickbox"
    
26.                       )
    
27.         #time1             (rtos (getvar "cdate") 2 16)
    
28.         start-time   (substr (rtos (getvar "cdate") 2 16) 7)
    
29.   )
    
30.   (SetIErr)
    
31.   (command "ucs" "")
    
32.   (command ".undo" "BE")
    
33.   (princ)
    
34. )
    
35. 
    
36. 
    
37. (Defun SetIErr (/ sv)
    
38.   (If (= 'LIST (Type *error*))
    
39.     (Alert "错误：最后一个(SetIErr)函数没有配对的(ReErr)!")
    
40.     (Progn
    
41.       (SetQ **svarl** '())
    
42.       (ForEach sv **SysVarNL**
    
43.         (SetQ **svarl** (Cons (GetVar sv) **svarl**))
    
44.       )
    
45.       (ForEach sv '("ATTDIA"           "BLIPMODE"          "CMDECHO"
    
46.                     "ORTHOMODE"           "DIMZIN"          "plinewid"
    
47.                     "regenmode"
    
48.                    )
    
49.         (SetVar sv 0)
    
50.       )
    
51.       (setvar "ATTREQ" 1)
    
52.       (SetVar "EXPERT" 5)
    
53.       (setvar "pickbox" 5)
    
54.       (setvar "pickadd" 1)
    
55.       (setvar "aperture" 5)
    
56.       (Defun-Q *error* (st) (ReErr))
    
57.     )
    
58.   )
    
59. )
    
60. (Defun ReErr ()
    
61.   (If (= 'LIST (Type *error*))
    
62.     (Progn
    
63.       (MapCar 'SetVar **SysVarNL** (Reverse **svarl**))
    
64.       (SetQ *error* nil)
    
65.       (SetVar "modemacro" ".")
    
66.     )
    
67.   )
    
68. )
    
69. 
    
70. ;;;------------------------ CMDLA1 -------------------------
    
71. ;;;                     恢复用户系统变量                    
    
72. ;;;方式 : (CMDLA1)                                          
    
73. (defun CMDLA1 ()
    
74.   (command ".undo" "E")
    
75.   (command "ucs" "")
    
76.   (ReErr)
    
77.                  
    
78.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;                    保存用户系统变量                     <br /> ;;;方式 : (CMDLA0)<br /> (defun CMDLASC0        ()<br />   (CMDLA0)<br />   (if (null sc)<br />     (SETBL)<br />   )<br /> )<br /> (defun CMDLA0 ()<br />   (defun *error* (msg)<br />     (princ "错误 : ")<br />     (princ msg)<br />     (CMDLA1)<br />   )<br />   (SetQ        **SysVarNL**<br />                      '("AUNITS"             "AUPREC"           "ATTDIA"<br />                        "BLIPMODE"    "CECOLOR"           "CELTYPE"<br />                        "CLAYER"             "CMDECHO"           "DIMZIN"<br />                        "EXPERT"             "HIGHLIGHT"   "LUNITS"<br />                        "LUPREC"             "OSMODE"           "ORTHOMODE"<br />                        "TEXTSTYLE"   "PLINEWID"           "dimdec"<br />                        "dimadec"     "regenmode"   "pickbox"<br />                       )<br />         #time1             (rtos (getvar "cdate") 2 16)<br />         start-time   (substr (rtos (getvar "cdate") 2 16) 7)<br />   )<br />   (SetIErr)<br />   (command "ucs" "")<br />   (command ".undo" "BE")<br />   (princ)<br /> )<br /> <br /> <br /> (Defun SetIErr (/ sv)<br />   (If (= 'LIST (Type *error*))<br />     (Alert "错误：最后一个(SetIErr)函数没有配对的(ReErr)!")<br />     (Progn<br />       (SetQ **svarl** '())<br />       (ForEach sv **SysVarNL**<br />         (SetQ **svarl** (Cons (GetVar sv) **svarl**))<br />       )<br />       (ForEach sv '("ATTDIA"           "BLIPMODE"          "CMDECHO"<br />                     "ORTHOMODE"           "DIMZIN"          "plinewid"<br />                     "regenmode"<br />                    )<br />         (SetVar sv 0)<br />       )<br />       (setvar "ATTREQ" 1)<br />       (SetVar "EXPERT" 5)<br />       (setvar "pickbox" 5)<br />       (setvar "pickadd" 1)<br />       (setvar "aperture" 5)<br />       (Defun-Q *error* (st) (ReErr))<br />     )<br />   )<br /> )<br /> (Defun ReErr ()<br />   (If (= 'LIST (Type *error*))<br />     (Progn<br />       (MapCar 'SetVar **SysVarNL** (Reverse **svarl**))<br />       (SetQ *error* nil)<br />       (SetVar "modemacro" ".")<br />     )<br />   )<br /> )<br /> <br /> ;;;------------------------ CMDLA1 -------------------------<br /> ;;;                     恢复用户系统变量                    <br /> ;;;方式 : (CMDLA1)                                          <br /> (defun CMDLA1 ()<br />   (command ".undo" "E")<br />   (command "ucs" "")<br />   (ReErr)<br />                  <br />   [/FONT]<br />

陌生人

调用command可能影响errno的值。看看cad帮助。

寒光四射

其实 LISP 不是很完善
有时会莫名其妙出错