下面的这个编号修改lisp程序在运行最后出现错误敬请指点

zwanglai

错误: *error* 函数中出错quit / exit abort

源程序：
;;;           命令:BHXG        命令名称可以按照自己习惯修改
6 x& g; V; s+ m;;;           作用: 编号修改
;;;           作者: 曾望来   
0 j% K  y+ y0 i+ j2 l8 b  q;;;                           
/ J* }: Y. k# D- e6 _) _;;;           联系方式: QQ：332674472
' X8 f8 t3 w% v, e; L$ e- A;;;                     E－MAIL：zwltanf_2008@163.com  
% Y3 g+ G: D' p% ~# m! ?' H  ~2 L;;;           时间: 2008-11-14
;;;           使用方法:
* r; P" t2 D% O/ e; Z3 T2 |;;;                    1 输入BHXG命令
: R0 @, T9 g/ J;;;                    2 按提示操作
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 m4 h* J5 f6 _4 o2 ?
5 P# C8 J8 u( A9 z( ?* e: n(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
( g7 k' n4 ]3 B2 v  (defun *error*(s)
5 s- I) m' P0 m9 P    (exit)
1 j; z% U; e8 Q8 A+ K. ~    )
  (setq cmdmode (getvar "cmdecho"))
3 {. y& s. P% \/ m+ b1 P  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr"))
  p) b3 R; e8 g3 d$ s" n  (setq viewsize (getvar "viewsize"))
2 Q# |3 R2 n- D# P; P3 c/ F  (prompt "\n Select numbers to add:")
0 N0 B0 ~; o; w: v  (setq sset (ssget))
  (if (null sset)
    (progn
      (princ "\n Error:Nothing selected!\n")
      (exit)
      )
8 c1 O% S0 F: x9 S    )
  t# g+ c  U0 X  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
4 K2 Y5 T* J, a1 c0 \4 s( [  (setq i(getint "\n The number from which to change:"))
  (setq j(getint "\n The numbet to which to add:"))
/ u) |8 l: Q0 I/ d$ [. ~5 H  (setq k(getint "\n How much you want to add:"))
. @3 Z: M; p1 j! \6 d  (setq ssl (sslength sset))
  (setq nsset (ssadd))
/ A2 j$ V3 D& s% V3 F  (while (>ssl 0)
/ a9 P% a# h$ v7 M5 |6 _    (setq temp (ssname sset (setq ssl(1-ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT")
      (progn
        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<=i number)(>=j number))(ssadd temp nsset))
        )
      )
    )
  (setq ssl (sslength nsset))
  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
  (print ssl)
! ?5 f& f7 ?3 W% Q  (princ "numbers are found.")
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
5 P! k$ ~4 u9 W4 d: W  q( H" ^: I0 N7 x+ O  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
7 e7 N; J0 X, X* i" v4 S: |4 X, v  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
+ V' ]+ k6 u; u  O. d  (while (> sll 0)
! m$ |+ N' @; [2 R    (setq ent(entget (ssname nsset (setq ssl (1 - sll)))))
  _$ g* Q4 `. F1 k0 q    (setq x (cadr(assoc 10 ent)))
% z9 c+ P5 d/ y    (setq y (caddr(assoc 10 ent)))
    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
      (progn
        (command "zoom" "c"
                 (list x y)
  ^$ J5 f9 O7 L4 b; ~8 F( i, d. E5 u  C                 (* h 20)
  i1 X" b4 t  c" k  w" o/ v) V                 )
        (setq x1 x)(setq y1 y)
        )
0 z* I/ i* Y1 h# n6 B* k      )
1 b0 p8 N! H# [, U4 `8 i" `. p    (redraw (cdr(assoc -1 ent)) 3)
8 e, E, ?( H3 o    (initget 1 "Yes No")
& i$ K) D" v% N1 w( d: s( e- u    (setq number (atoi(cdr(assoc 1 ent))))
    (princ number)
7 ^2 F: a4 w; \8 `# P' s1 W2 ^* G    (setq yorn (getkword " to be Changed?(Y/N)"))
    (if (= yorn "Yes")
4 x3 g  i% N; e6 @+ {5 b      (entmod (subst (cons 1 (itoa(+ number k)))
                     (assoc 1 ent) ent))
      )
    (redraw (cdr(assoc -1 ent)) 1)
& m3 L6 _  d2 x- _" {) O- U+ Q( W    )
  c' v8 e$ u, n3 ~  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
; R6 S6 o/ i2 Q) H- r  (setvar "CMDECHO" cmdmode)
& |/ w* Z  N6 X, Y  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
6 g1 T8 h# m# i2 e! ~0 W9 r3 K% Q6 V下面代码中红字是已修改的部分
+ [1 W' k2 h1 t5 f& [: U  N-------------------------------------------------------------------------------------------------------------------------
(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
3 m, V1 z1 e" m  (defun *error*(s)
    (exit)
3 d* [# U& p1 m+ O( l. N: ?    )
  (setq cmdmode (getvar "cmdecho" ))
! c% v! O  ]: H  (setvar "cmdecho" 0)
0 b* |- W8 v1 t0 E. W  (setq viewctr (getvar "viewctr" ))
) \, `, H2 X$ X( E- V' D6 e6 F  (setq viewsize (getvar "viewsize" ))
$ N, s- G2 M7 S  (prompt "\n Select numbers to add:" )
  y( X! i5 l% C1 ^4 {9 m! b+ `  (setq sset (ssget))
  (if (null sset)
0 e" D6 S8 j+ \7 l7 P    (progn
      (princ "\n Error:Nothing selected!\n" )
; D* ]9 A- A* c$ B/ R$ [      (exit)
. K3 v6 |" m8 H7 F# P+ ]5 x( t      )
& {( l0 M0 |6 w$ f8 H8 Q    )
/ n: p7 i6 e! e. F  w1 a  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
0 C% z! v' S2 e9 U$ d! {5 Y  (setq i(getint "\n The number from which to change:" ))
  (setq j(getint "\n The numbet to which to add:" ))
. H  X% s- r: f. n$ |5 U$ M  (setq k(getint "\n How much you want to add:" ))
3 Y4 q* u. ?$ z# G% \" L  (setq ssl (sslength sset))
  f- x. z4 d% @  (setq nsset (ssadd))
  (while (> ssl 0)
& T% y1 O: [( d# c" x- c& X    (setq temp (ssname sset (setq ssl(1- ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
9 S# c& P8 b5 M" ~* [( K& C      (progn
        (setq number (atoi(cdr(assoc 1 (entget temp)))))
2 o& ?2 W* c$ H4 \        (if(and (<= i number)(>= j number))(ssadd temp nsset))
        )
      )
    )
  (setq ssl (sslength nsset))
  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
  (print ssl)
  (princ "numbers are found." )
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
  ^9 y  A% k+ v+ Z3 c3 C  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
! A4 \$ S0 ~( u$ _* m9 t9 ?  (setq x1 (car viewctr))
8 ^0 h" T0 m3 j9 p9 P* s) S  (setq y1 (cadr viewctr))
  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
2 l6 Y% j# B0 ~8 i# Z% d% |& g  (while (> ssl 0)
    (setq ent(entget (ssname nsset (setq ssl (1- ssl)))))
    (setq x (cadr(assoc 10 ent)))
! C( `/ O8 L2 k4 [# C' A    (setq y (caddr(assoc 10 ent)))
6 J- h* D6 |: x    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
# f% t5 G+ z/ `9 l/ b. B5 d4 i      (progn
5 Y3 D) d+ t, ]6 n' F) K# T9 Q6 V( l        (command "zoom" "c"
                 (list x y)
( k$ s  L& C/ j* z                 (* h 20)
1 c2 j& {+ ^9 \& G: a                 )
        (setq x1 x)(setq y1 y)
        )
      )
    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No" )
    (setq number (atoi(cdr(assoc 1 ent))))
    (princ number)
, ~) E9 p2 c0 B/ M6 y    (setq yorn (getkword " to be Changed?(Y/N)" ))
$ ^4 u: P$ N1 z4 C; O6 W3 Y/ A9 V    (if (= yorn "Yes")
7 N7 B) M% D2 m, D! S- O& S1 @      (entmod (subst (cons 1 (itoa(+ number k)))
( G3 z9 l2 `- v* [8 `' Z9 P+ {                     (assoc 1 ent) ent))
' X! F$ P- a, N5 y0 z      )
    (redraw (cdr(assoc -1 ent)) 1)
    )
! \' R9 w- `& w1 F9 ~% ?$ ]0 Q  ;所有编号改变完成后,恢复使用本命令前的视窗。
6 _! `! d. L0 J7 S& {. k- v  (command "zoom" "c" viewctr viewsize)
2 N4 r9 q% Y) _' ?  (setvar "CMDECHO" cmdmode)
  )
$ ^" u; L* q" l- {" u$ e5 K(princ "\n\tc:chnumber loaded.Start command with BHXG.")
-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。