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

zwanglai

错误: *error* 函数中出错quit / exit abort
! ]9 X3 P( i( m/ X3 J2 I+ a
5 F& Q) n. C- V) {源程序：
;;;           命令:BHXG        命令名称可以按照自己习惯修改
( K. B5 G' n0 M! [2 Q;;;           作用: 编号修改
# d! l4 N, g: X& N; M# t3 M9 [;;;           作者: 曾望来   
;;;                           
;;;           联系方式: QQ：332674472
5 s# M1 i* m% C/ a. _5 q' w& b( k; g: x;;;                     E－MAIL：zwltanf_2008@163.com  
;;;           时间: 2008-11-14
  a+ w) [0 r# G. E- I! b2 F9 W;;;           使用方法:
;;;                    1 输入BHXG命令
;;;                    2 按提示操作
, G2 ?) V6 Q% _, C) H% k0 B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

' |$ y5 D- [5 C. B# E8 J: W: U/ |9 Q# ~(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
5 ]" g3 M* K7 |$ Q! @- ?  (defun *error*(s)
    (exit)
0 D, a# j0 [* D( S" }, r* ]    )
2 @$ Q% V: T; a+ F, f7 M0 e  (setq cmdmode (getvar "cmdecho"))
' m, v. D& C5 {! ~9 f5 F& M& X  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr"))
3 ~7 M7 @4 r$ N8 Q  (setq viewsize (getvar "viewsize"))
: N1 U0 X' K1 M( M/ u7 ^9 S$ f  (prompt "\n Select numbers to add:")
  (setq sset (ssget))
  (if (null sset)
5 }! R; _. l  j7 \& B/ q4 f    (progn
      (princ "\n Error:Nothing selected!\n")
. ~: i8 F  R" W, }; I  S' H      (exit)
; i. c5 l! N# ?1 q- N5 P      )
3 k" v, P  @4 H8 `    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
- a# \  X+ b6 D: r7 ^; ^) Y; X- a  (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:"))
  (setq ssl (sslength sset))
3 ~2 f" R9 x- ~9 A0 a5 W. }  (setq nsset (ssadd))
9 ~: N! U% d2 k" B+ U  (while (>ssl 0)
5 n. U. e% m, f1 @; `5 {9 |4 w    (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))
) R/ z' h. ~$ B9 n8 Q( U& Y# z        )
      )
" a7 c) [  r# U* B    )
  (setq ssl (sslength nsset))
  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
  (print ssl)
  Q0 m0 [) e8 j  (princ "numbers are found.")
2 H: ]0 J3 K% x; d8 s" y, Y  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
) l7 n; H; G$ w6 B" P9 Q- \  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
. Z+ d4 H- H8 L# m, W  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
8 \' Q2 j  Z9 u6 R0 q. t  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
  (while (> sll 0)
    (setq ent(entget (ssname nsset (setq ssl (1 - sll)))))
. A/ }: z/ g2 Z7 w! t  t9 j; [    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
      (progn
        (command "zoom" "c"
: `" F" ^* \# x! s: r9 g, [* H                 (list x y)
( R2 T& V/ ^" E                 (* h 20)
8 E* x2 s/ c& J" z* x( P  _                 )
. ]3 `) q, {( H1 E2 S* s        (setq x1 x)(setq y1 y)
9 f2 o0 G/ j4 O* ~( K/ L" o; V        )
$ Q) m" G  B3 _2 D      )
    (redraw (cdr(assoc -1 ent)) 3)
% [0 J7 J# r8 o7 n- y4 s& i1 W4 G# f- a$ j    (initget 1 "Yes No")
    (setq number (atoi(cdr(assoc 1 ent))))
    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)"))
: C9 c, s: w8 T5 x- F    (if (= yorn "Yes")
5 w( Z! L* E1 U# e6 ^      (entmod (subst (cons 1 (itoa(+ number k)))
; [  l0 R  ]) B; G7 I                     (assoc 1 ent) ent))
6 n4 F" c7 D2 o7 r' N3 X      )
    (redraw (cdr(assoc -1 ent)) 1)
    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
8 j+ C" W' p; W& y1 I/ P0 C% m  )
+ y0 V) b( s0 S4 E(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
下面代码中红字是已修改的部分
) m' B* |0 ]3 \6 G+ R" ^- q0 ]-------------------------------------------------------------------------------------------------------------------------
3 {- b' \" b) X2 Z& Z; E(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
  ~; }& \" y& k6 m9 X  (defun *error*(s)
    (exit)
5 P' z' y- G" D5 b3 ^/ m: D3 e+ |    )
  (setq cmdmode (getvar "cmdecho" ))
1 U( D  }& ^2 l% R) H0 Q: }5 Q  (setvar "cmdecho" 0)
% c$ f& Z/ X1 H! ^+ a4 w  (setq viewctr (getvar "viewctr" ))
" c+ `: Y0 C( @! x) @; p# D  (setq viewsize (getvar "viewsize" ))
  (prompt "\n Select numbers to add:" )
9 _8 b  ?" Y" i5 K  (setq sset (ssget))
  (if (null sset)
    (progn
7 z! R" G. \5 B5 {% C# R. i: d      (princ "\n Error:Nothing selected!\n" )
      (exit)
- B' v( x: ~/ s' a      )
" K6 T" ]8 G% L+ m    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
! M7 }0 T- M' B1 l7 c) D0 {* G  (setq i(getint "\n The number from which to change:" ))
  (setq j(getint "\n The numbet to which to add:" ))
: L7 Y4 v/ v3 d0 p& c# Z8 [  (setq k(getint "\n How much you want to add:" ))
  (setq ssl (sslength sset))
  (setq nsset (ssadd))
  (while (> ssl 0)
0 w) H/ x$ T: G2 l1 I) _6 _' |    (setq temp (ssname sset (setq ssl(1- ssl))))
, e6 J, L: _8 ^0 C$ \1 F9 e    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
: d  y, M! q, Y0 `$ d0 @8 A      (progn
* h3 o! z9 A% `! {        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<= i number)(>= j number))(ssadd temp nsset))
        )
      )
& k; m8 J/ `, G    )
  (setq ssl (sslength nsset))
  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
! i/ X% W, l/ x4 U  x/ T; y  (print ssl)
# Z/ g5 K! _1 s& }) l  (princ "numbers are found." )
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
; l) [1 }* M/ e4 S9 w  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
5 N- n- ^: |6 ^: }8 `6 ]5 f8 r  (setq y1 (cadr viewctr))
2 N1 w- Q7 Z6 t3 e. \! ?) d  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
# F5 S6 T( J6 O  (while (> ssl 0)
    (setq ent(entget (ssname nsset (setq ssl (1- ssl)))))
1 N" s5 {7 n0 W& P* `! K7 c    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
    (if (or (>(abs (- x x1))(* h 10))
/ d5 G( C/ D- x6 b8 E            (>(abs (- y y1))(* h 6)))
      (progn
        (command "zoom" "c"
                 (list x y)
                 (* h 20)
% k7 V& \3 z  k" G+ E4 M! [5 u                 )
1 o# w+ \  B2 p$ k9 v# x        (setq x1 x)(setq y1 y)
) |2 P. |0 F8 @) s        )
      )
    (redraw (cdr(assoc -1 ent)) 3)
; q6 ^: g/ L" N4 e2 Z, [& j. T    (initget 1 "Yes No" )
, J% ?! w) h: B7 @6 }6 B4 Q4 Y    (setq number (atoi(cdr(assoc 1 ent))))
! X; X: `& H3 s; z" u0 L    (princ number)
: \; H3 V  L4 p  ]: P+ z7 B    (setq yorn (getkword " to be Changed?(Y/N)" ))
% I  U/ F! {( C) J" `. r/ W    (if (= yorn "Yes")
9 p5 X4 C. V: W      (entmod (subst (cons 1 (itoa(+ number k)))
                     (assoc 1 ent) ent))
      )
    (redraw (cdr(assoc -1 ent)) 1)
    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
3 S0 q# R5 }$ O, Q# m: j/ z  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")
& \! f9 J* O0 M& d-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。