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

zwanglai

错误: *error* 函数中出错quit / exit abort
. D9 V% P! f" T% h. t; o+ W
6 n$ l( G- S" t* \% [源程序：
' `- _1 ]$ p7 D( z- m) t8 a;;;           命令:BHXG        命令名称可以按照自己习惯修改
;;;           作用: 编号修改
;;;           作者: 曾望来   
;;;                           
& q* v# o! y! l% b3 ~; }9 k. w, I;;;           联系方式: QQ：332674472
;;;                     E－MAIL：zwltanf_2008@163.com  
- c" I$ H) w* j) q$ c. b;;;           时间: 2008-11-14
;;;           使用方法:
;;;                    1 输入BHXG命令
  I: I; \. C* W* q& M: B! e;;;                    2 按提示操作
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

" B4 ?+ b8 {" o, t. L(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
, Z9 O# m$ @, A" b/ f# R3 D' z9 k  (defun *error*(s)
. U) |1 Z* }, ~# Y2 d    (exit)
    )
+ F% u! m# Y% t7 n  (setq cmdmode (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr"))
  (setq viewsize (getvar "viewsize"))
  (prompt "\n Select numbers to add:")
0 e8 |" o! x9 O  (setq sset (ssget))
  j2 V  X% T: C$ ]- O5 J  (if (null sset)
) J5 ?- q' N* W6 L    (progn
" c3 H/ k. n; Y* i! T& J; M# Y      (princ "\n Error:Nothing selected!\n")
4 E, ^6 K2 `$ y9 W2 h4 Q- ^* A      (exit)
      )
; {; f$ F1 `1 G3 b' M3 H6 U2 Q    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
  (setq i(getint "\n The number from which to change:"))
6 X4 U( w! F& i6 W2 l( g' }2 m  (setq j(getint "\n The numbet to which to add:"))
2 B5 ^& C4 [( C3 E2 T6 W  r* n* f, k  (setq k(getint "\n How much you want to add:"))
  (setq ssl (sslength sset))
  (setq nsset (ssadd))
& L( L; n( T2 E4 p0 {6 Y8 S  (while (>ssl 0)
    (setq temp (ssname sset (setq ssl(1-ssl))))
. D$ E! Z/ D* D# F+ Y    (if (=(cdr (assoc 0 (entget temp))) "TEXT")
      (progn
4 l( M' p# T9 J$ Q% D5 N        (setq number (atoi(cdr(assoc 1 (entget temp)))))
) G1 D- V. V) }% o/ T        (if(and (<=i number)(>=j number))(ssadd temp nsset))
1 `- ?) C0 [5 a- b, I8 a/ ?" s        )
      )
    )
  (setq ssl (sslength nsset))
  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
  (print ssl)
  (princ "numbers are found.")
  r* e* s3 J+ w1 c( M2 ~3 @  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
* A2 d5 G  z7 t. V9 V" ^6 e  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
% Y3 D* L5 T4 D% o/ p  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
  (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)))))
    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
    (if (or (>(abs (- x x1))(* h 10))
6 ^) Z3 h& {3 X  x% e            (>(abs (- y y1))(* h 6)))
      (progn
        (command "zoom" "c"
! e' Y! L' B# s                 (list x y)
                 (* h 20)
: p, J* v( k8 {2 I  h$ P& T- G                 )
        (setq x1 x)(setq y1 y)
! ^8 X% p( G8 B4 E5 x        )
      )
    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No")
' w# ^: J) h6 @" {# r. u. `    (setq number (atoi(cdr(assoc 1 ent))))
    (princ number)
6 }3 Y3 M& V5 S0 ]/ l5 Y0 @( H    (setq yorn (getkword " to be Changed?(Y/N)"))
    (if (= yorn "Yes")
1 D, Y6 i4 D1 r      (entmod (subst (cons 1 (itoa(+ number k)))
                     (assoc 1 ent) ent))
      )
  m3 |7 k1 k: |0 @# b4 p, e. ^: [    (redraw (cdr(assoc -1 ent)) 1)
    )
7 C( |  l" `% v" Z3 C) A. f; R  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
1 t- N9 ]; t, V4 n6 m下面代码中红字是已修改的部分
-------------------------------------------------------------------------------------------------------------------------
(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
! d) h( c3 ]& o  (defun *error*(s)
    (exit)
    )
: D) |: @* ?5 G5 H4 f& N' C' S  (setq cmdmode (getvar "cmdecho" ))
  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr" ))
5 l  N  e) S0 D9 m8 T  (setq viewsize (getvar "viewsize" ))
  (prompt "\n Select numbers to add:" )
  (setq sset (ssget))
' ?  \8 V6 M% V- q1 ~. U  (if (null sset)
. D8 U' r* A1 e  l) T    (progn
      (princ "\n Error:Nothing selected!\n" )
+ ^  k( {" R+ j: I! g      (exit)
. v' c4 ^( H! J      )
    )
( j9 O" [% i* ^: h  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
; l* K3 B5 z/ A: j; T& A$ j  (setq i(getint "\n The number from which to change:" ))
+ L4 d% [. Y2 @' N- n9 n: A, ]  (setq j(getint "\n The numbet to which to add:" ))
  (setq k(getint "\n How much you want to add:" ))
8 l( B+ S: T, A% M, f5 D& Z2 |  (setq ssl (sslength sset))
, e1 y8 L- g$ C, P  x  (setq nsset (ssadd))
  (while (> ssl 0)
, m3 j, n& f$ l2 _7 X: _; X  i% Q3 p1 \    (setq temp (ssname sset (setq ssl(1- ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
( b; ]& z/ z4 P$ J6 ~9 Y      (progn
, H! T5 z; I7 [1 B2 x' f* V        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<= i number)(>= j number))(ssadd temp nsset))
        )
      )
    )
% p1 A5 Q- ^9 A6 p  (setq ssl (sslength nsset))
  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
  (print ssl)
  (princ "numbers are found." )
7 D0 H" S9 A( i  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
: b/ s7 A% n$ G  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
! E/ e& ]1 y1 O  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
* U4 Y: b6 _' ^: G; u/ Z, i8 t! v1 A  (setq ent (entget (ssname nsset (- ssl 1))))
! l) `5 t' v( p  H' C  (setq h (cdr(assoc 40 ent)))
* h  O2 T- I6 U6 ^  C. {  (while (> ssl 0)
# M" A# `, A6 x: {4 j    (setq ent(entget (ssname nsset (setq ssl (1- ssl)))))
    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
4 X8 }! U" F* R4 U3 W      (progn
        (command "zoom" "c"
                 (list x y)
; j) ~% `: u! ~                 (* h 20)
                 )
! d1 B  M# T1 S2 d& K# z& n        (setq x1 x)(setq y1 y)
        )
& M' L: V' ]3 i1 \: ?) ~0 V      )
2 @2 i$ [8 \5 d    (redraw (cdr(assoc -1 ent)) 3)
3 u9 s: ?0 z( k  K    (initget 1 "Yes No" )
) y- |# Z" b% h: q. P    (setq number (atoi(cdr(assoc 1 ent))))
+ A& B% F3 C' a9 i0 V4 m    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)" ))
- i: q4 l+ \6 q2 b' {0 Q1 p, O    (if (= yorn "Yes")
3 a* m- L! I+ C' d6 j      (entmod (subst (cons 1 (itoa(+ number k)))
                     (assoc 1 ent) ent))
      )
( T2 h6 o& I) F$ x+ a    (redraw (cdr(assoc -1 ent)) 1)
    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
* t0 Q  T3 I, n/ e  (setvar "CMDECHO" cmdmode)
0 ^; [% k3 g$ }  P9 T- F% \  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")
-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。