麻烦高手帮忙看看这是什么问题？

我来看MM的

2. (defun c:mj(/ name_layer blc_cass7 text_high en a s bb en_new #final loop en_data old_data new_data text_style)
   
3. (setvar "cmdecho" 0)
   
4. (setvar "DIMZIN" 0)
   
5. (setq text_style (getvar "textstyle"))
   
6. (command "style" "宋体" "宋体" "0" "1" "0" "" "")         ;设定字体
   
7. (setq name_layer (getvar "clayer"))
   
8. (if (= nil (tblsearch "layer" "面积标注"))
   
9.     ( command "layer" "m" "面积标注" "")
   
10. );end if
    
11.   (setvar "clayer" name_layer)
    
12.   (setq blc_cass7 (getvar "userr1"))
    
13.   (cond  (  ( = blc_cass7 500)
    
14.             (setq text_high 1.5)
    
15.           )
    
16.    
    
17.    
    
18.       (  ( = blc_cass7 200)
    
19.          (setq text_high 0.6)
    
20.       )
    
21.    
    
22.    
    
23.       (  ( = blc_cass7 1000)
    
24.          (setq text_high 3)
    
25.         
    
26.       )
    
27.    
    
28.      (  (and ( /= blc_cass7 500)  ( /= blc_cass7 200)  ( /= blc_cass7 1000))
    
29.         (alert "比例尺不为1：500，1：200，1：1000请检查比例尺设置。")
    
30.       (setq text_high 1.6)
    
31.      )
    
32.   
    
33.   );end cond
    
34.   
    
35. (setq en (entsel "\n 请选择对象："))
    
36. (command "area" "o" en)
    
37. (setq a (getvar "area"))
    
38. (redraw (car en) 3)       
    
39.   (setq s (strcat "S=" (rtos a 2 2)))
    
40.   (setq #Final (grread T 4 4))
    
41.   (setq bb (cadr #final))
    
42.   (setq en_new
    
43.     (entmakex
    
44.      (list
    
45.       '(0 . "TEXT")
    
46.       '(100 . "AcDbEntity")
    
47.       '(67 . 0)
    
48.       '(100 . "AcDbText")
    
49.        (cons 10 bb)
    
50.        (cons 40  text_high)
    
51.        (cons 1 s)
    
52.       '(50 . 0)
    
53.       '(41 . 1)
    
54.       '(51 . 0.0)
    
55.       '(7 . "宋体")           
    
56.       '(72 . 1)
    
57.        (cons 11 bb)
    
58.       '(210 0.0 0.0 1.0)
    
59.       '(100 . "AcDbText")
    
60.       '(73 . 0)
    
61.      );list
    
62.    );entmakex
    
63.   )
    
64.   (setq loop t)
    
65.   (while loop
    
66.     (setq #final (grread t 4 4))
    
67.     (cond (
    
68.           (= 5 (car  #Final ))
    
69.           (progn
    
70.             (setq b (cadr #final))   
    
71.             (setq en_data (entget  en_new))   
    
72.             (setq old_data (assoc 11 en_data))
    
73.             (setq new_data (cons 11 b))
    
74.             (setq en_data (subst new_data old_data en_data))
    
75.             (entmod en_data)
    
76.           );end progn
    
77.           )
    
78.           );end cond
    
79.     (cond (
    
80.            (/= 5 (car  #Final ))
    
81.           (setq loop nil)
    
82.            )
    
83.       );end cond
    
84.     (cond (
    
85.             (= 25 (car  #Final ))
    
86.             (progn
    
87.             (setq loop nil)
    
88.             (entdel en_new)
    
89.             );end progn
    
90.            )
    
91.       );end cond
    
92.     );end while
    
93.   
    
94. 
    
95.   (command "chprop" (entlast) "" "la" "面积标注" "")    ;将最后被完成的对象放进“尺寸标注”图层
    
96. (redraw (car en) 4)
    
97.   (defun *error* (msg)
    
98.    (entdel en_new)
    
99.     (redraw (car en) 4)
    
100.     (setvar "textstyle" text_style)
     
101.     (if (not (member
     
102.                  msg
     
103.                  '(nil "函数被取消" ";错误:quit / exit abort")
     
104.                 )
     
105.          )
     
106.       (princ (strcat ";错误:" msg))
     
107.     )
     
108.    );end defun error
     
109.    (setvar "textstyle" text_style)
     
110. );end

(defun c:mj(/ name_layer blc_cass7 text_high en a s bb en_new #final loop en_data old_data new_data text_style)<br /> (setvar "cmdecho" 0)<br /> (setvar "DIMZIN" 0)<br /> (setq text_style (getvar "textstyle"))<br /> (command "style" "宋体" "宋体" "0" "1" "0" "" "")         ;设定字体<br /> (setq name_layer (getvar "clayer"))<br /> (if (= nil (tblsearch "layer" "面积标注"))<br />     ( command "layer" "m" "面积标注" "")<br /> );end if<br />   (setvar "clayer" name_layer)<br />   (setq blc_cass7 (getvar "userr1"))<br />   (cond  (  ( = blc_cass7 500)<br />             (setq text_high 1.5)<br />           )<br />    <br />    <br />       (  ( = blc_cass7 200)<br />          (setq text_high 0.6)<br />       )<br />    <br />    <br />       (  ( = blc_cass7 1000)<br />          (setq text_high 3)<br />         <br />       )<br />    <br />      (  (and ( /= blc_cass7 500)  ( /= blc_cass7 200)  ( /= blc_cass7 1000))<br />         (alert "比例尺不为1：500，1：200，1：1000请检查比例尺设置。")<br />       (setq text_high 1.6)<br />      )<br />   <br />   );end cond<br />   <br /> (setq en (entsel "\n 请选择对象："))<br /> (command "area" "o" en)<br /> (setq a (getvar "area"))<br /> (redraw (car en) 3)        <br />   (setq s (strcat "S=" (rtos a 2 2))) <br />   (setq #Final (grread T 4 4)) <br />   (setq bb (cadr #final))<br />   (setq en_new<br />     (entmakex<br />      (list<br />       '(0 . "TEXT")<br />       '(100 . "AcDbEntity")<br />       '(67 . 0)<br />       '(100 . "AcDbText")<br />        (cons 10 bb)<br />        (cons 40  text_high)<br />        (cons 1 s)<br />       '(50 . 0)<br />       '(41 . 1)<br />       '(51 . 0.0)<br />       '(7 . "宋体")           <br />       '(72 . 1)<br />        (cons 11 bb)<br />       '(210 0.0 0.0 1.0)<br />       '(100 . "AcDbText")<br />       '(73 . 0)<br />      );list <br />    );entmakex<br />   )<br />   (setq loop t)<br />   (while loop<br />     (setq #final (grread t 4 4))<br />     (cond (<br />           (= 5 (car  #Final ))<br />           (progn<br />             (setq b (cadr #final))   <br />             (setq en_data (entget  en_new))   <br />             (setq old_data (assoc 11 en_data))<br />             (setq new_data (cons 11 b))<br />             (setq en_data (subst new_data old_data en_data))<br />             (entmod en_data)<br />           );end progn<br />           )<br />           );end cond<br />     (cond (<br />            (/= 5 (car  #Final ))<br />           (setq loop nil)<br />            )<br />       );end cond<br />     (cond (<br />             (= 25 (car  #Final ))<br />             (progn<br />             (setq loop nil)<br />             (entdel en_new)<br />             );end progn<br />            )<br />       );end cond<br />     );end while<br />   <br /> <br />   (command "chprop" (entlast) "" "la" "面积标注" "")    ;将最后被完成的对象放进“尺寸标注”图层<br /> (redraw (car en) 4)<br />   (defun *error* (msg)<br />    (entdel en_new)<br />     (redraw (car en) 4)<br />     (setvar "textstyle" text_style)<br />     (if (not (member<br />                  msg<br />                  '(nil "函数被取消" ";错误:quit / exit abort")<br />                 )<br />          )<br />       (princ (strcat ";错误:" msg))<br />     )<br />    );end defun error<br />    (setvar "textstyle" text_style)<br /> );end

上面这个命令，如果第一次运行中在出现面积“S="随鼠标移动时，在这个过程中按了ESC后，程序好像没有运行(defun *error* msg 后面那些代码，但如果在运行过程中出现面积“S="随鼠标移动时，按了鼠标右键后，得到了想要的效果，在下次运行同样在相同的时候按了ESC后，却好像运行了那句(defun *error* msg 后面那些代码。搞不懂，求高手帮忙看看。
总的来说，这个命令里面，我想实现按了ESC的效果跟按了鼠标右键效果一样的。但首次使用ESC，效果并没有出来。

ZZXXQQ

(defun *error*要放在程序开头