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

zwanglai

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

源程序：
;;;           命令:BHXG        命令名称可以按照自己习惯修改
* B( @& H$ P$ n  e( J9 }/ D3 ?;;;           作用: 编号修改
' N3 U& R3 ^3 z;;;           作者: 曾望来   
;;;                           
- Y8 m7 G% T6 C, ?, };;;           联系方式: QQ：332674472
;;;                     E－MAIL：zwltanf_2008@163.com  
;;;           时间: 2008-11-14
* X# S: l0 g" e;;;           使用方法:
0 a5 i8 H0 L+ U8 c) \;;;                    1 输入BHXG命令
) h' F1 r4 O3 H;;;                    2 按提示操作
# x" J0 Y) |2 s; i' [! I2 j5 P;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

6 N# i" W/ x* A2 r( a(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
  (defun *error*(s)
) f- T" S3 e, B+ \. a! \    (exit)
    )
. B" I/ U* \; `; E" A) v5 @( f% r  (setq cmdmode (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr"))
  (setq viewsize (getvar "viewsize"))
& @- n- S$ f" X9 B4 Y7 a( V  (prompt "\n Select numbers to add:")
1 h; j! t7 N4 h) D) i5 M6 e  (setq sset (ssget))
8 D) y4 Z4 z0 ^& M* x% y  (if (null sset)
    (progn
      (princ "\n Error:Nothing selected!\n")
      (exit)
      )
    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
( B/ d; R: }$ x$ v8 \( h; g) d7 K  (setq i(getint "\n The number from which to change:"))
$ g9 Y+ H1 x1 r$ {- N( o( I6 Q+ j8 {  (setq j(getint "\n The numbet to which to add:"))
  (setq k(getint "\n How much you want to add:"))
  (setq ssl (sslength sset))
! g% u0 V% U$ p& a  (setq nsset (ssadd))
  (while (>ssl 0)
    (setq temp (ssname sset (setq ssl(1-ssl))))
9 f' O9 `8 v( g8 K& M- f; t/ G    (if (=(cdr (assoc 0 (entget temp))) "TEXT")
8 m( ~6 r. @2 R9 ~' E' R% J      (progn
        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<=i number)(>=j number))(ssadd temp nsset))
& c% [5 S) \! h2 P5 H% v0 ~! y; P        )
      )
    )
  (setq ssl (sslength nsset))
  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
/ `* H$ K# R& x  (print ssl)
  (princ "numbers are found.")
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
+ U  Y3 _3 Z2 E% [) z  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
# X5 V  t4 H6 r* h' Z" t  (while (> sll 0)
    (setq ent(entget (ssname nsset (setq ssl (1 - sll)))))
' g& B1 r" ~7 r0 i    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
% Y+ _/ ^8 |( {7 G$ q7 x  p    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
      (progn
# c; m6 F% ]. I) m8 L        (command "zoom" "c"
                 (list x y)
8 h3 k- D; {7 k$ H                 (* h 20)
6 e* R, I7 {: }+ a' Z; l                 )
2 H( Y& U! Y  v, O# t        (setq x1 x)(setq y1 y)
' \9 K/ X- p' Y" _0 I        )
* ^, l2 d7 `9 c. {9 t      )
1 r5 _+ h0 @, d7 {    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No")
6 d8 l' K  F" |; h' H: y+ @    (setq number (atoi(cdr(assoc 1 ent))))
8 o: h6 }8 @1 h3 g( K  N" @    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)"))
' z$ A7 \9 _/ q6 {  S    (if (= yorn "Yes")
      (entmod (subst (cons 1 (itoa(+ number k)))
7 w% ~2 O1 j1 L: S$ \/ }                     (assoc 1 ent) ent))
      )
& p( h  c% ^9 J) L$ ?    (redraw (cdr(assoc -1 ent)) 1)
    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
1 r+ \  N( F2 R2 K- q  (command "zoom" "c" viewctr viewsize)
4 s8 V6 f2 w2 n  (setvar "CMDECHO" cmdmode)
  )
2 I% W5 c8 i7 c: x4 ](princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
) E1 V9 V+ \( e$ k  N6 {2 r- S下面代码中红字是已修改的部分
-------------------------------------------------------------------------------------------------------------------------
(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
" t$ H- S1 ^- ]( T4 n6 L  (defun *error*(s)
7 l4 h# c  h7 H5 u    (exit)
    )
  (setq cmdmode (getvar "cmdecho" ))
; W# t+ m2 C: f' a/ Z  (setvar "cmdecho" 0)
$ d4 u$ F) S) D  C. `1 L2 }  (setq viewctr (getvar "viewctr" ))
0 V, b" C" |1 c3 y; E" k  (setq viewsize (getvar "viewsize" ))
. B8 o, b1 k- K0 R( J# G% U  (prompt "\n Select numbers to add:" )
3 h" r; E4 O- L! j, Q+ O, H  (setq sset (ssget))
! c- u3 }$ j$ x7 f  (if (null sset)
    (progn
9 b! d7 a6 t2 m% F/ r      (princ "\n Error:Nothing selected!\n" )
* P/ j2 }- ~+ @1 V9 s5 \1 Y      (exit)
$ L4 P$ x8 O- M$ A0 M$ H) F1 ^9 h      )
    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
/ C  R0 K, H; x& o8 `  (setq i(getint "\n The number from which to change:" ))
  (setq j(getint "\n The numbet to which to add:" ))
  (setq k(getint "\n How much you want to add:" ))
8 Z3 j2 s  x  N# |  (setq ssl (sslength sset))
  (setq nsset (ssadd))
  (while (> ssl 0)
" _/ Q3 A9 `# `, {: @: l* u    (setq temp (ssname sset (setq ssl(1- ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
5 a+ Z( N7 q2 u3 d9 B      (progn
        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<= i number)(>= j number))(ssadd temp nsset))
5 A1 H9 r+ m' W! E- u. B/ c        )
; ^2 F# ]/ w% b! l$ b      )
; Y; w+ h: w9 m- r# n) n    )
8 I$ L- Z4 v+ j  (setq ssl (sslength nsset))
  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
  (print ssl)
% x, H  T1 g/ G: _3 c: Z  (princ "numbers are found." )
2 L! \. j& g8 I$ X* C# b+ _  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
( k# C; N2 {( v8 v, A. m  (setq x1 (car viewctr))
8 Q4 u$ ~$ v- B% K$ b! A  (setq y1 (cadr viewctr))
4 s+ S' r* |% f  (setq ent (entget (ssname nsset (- ssl 1))))
. R+ y, E# z. O  (setq h (cdr(assoc 40 ent)))
  (while (> ssl 0)
    (setq ent(entget (ssname nsset (setq ssl (1- ssl)))))
    (setq x (cadr(assoc 10 ent)))
4 ]9 A- z8 |: h& K' \    (setq y (caddr(assoc 10 ent)))
    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
- q+ O7 M/ ]$ ]( i0 u      (progn
0 j/ Q5 U' w* T- W        (command "zoom" "c"
* j2 Z6 Y, C1 a  u                 (list x y)
                 (* h 20)
                 )
        (setq x1 x)(setq y1 y)
        )
      )
% i+ O% t9 i; b& g9 \; `    (redraw (cdr(assoc -1 ent)) 3)
9 p. c4 L# \  S- i/ W# e. W    (initget 1 "Yes No" )
    (setq number (atoi(cdr(assoc 1 ent))))
    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)" ))
    (if (= yorn "Yes")
      (entmod (subst (cons 1 (itoa(+ number k)))
; s$ f  Q' s5 A: c0 j                     (assoc 1 ent) ent))
      )
    (redraw (cdr(assoc -1 ent)) 1)
    )
3 I  D, H' l4 X* W! |* g  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
" ~6 E5 W" O2 n* N" \  )
! v( L2 V+ \) C) g, O' j(princ "\n\tc:chnumber loaded.Start command with BHXG.")
-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。