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

zwanglai

错误: *error* 函数中出错quit / exit abort
9 Y" ]; q% b& w  B$ j: G! c; B. ~
源程序：
;;;           命令:BHXG        命令名称可以按照自己习惯修改
;;;           作用: 编号修改
- `7 ~" e# t: m5 F  D;;;           作者: 曾望来   
7 o8 W' h* G  i5 [6 K- f  [;;;                           
* Z# l- Y# N% O9 w$ S3 g: n;;;           联系方式: QQ：332674472
( w/ S! N# J$ I;;;                     E－MAIL：zwltanf_2008@163.com  
;;;           时间: 2008-11-14
;;;           使用方法:
;;;                    1 输入BHXG命令
;;;                    2 按提示操作
0 P: [! b% s; _' ^: w# h8 |) x( ?1 V; b;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
" U' L+ E' ]" W1 ?8 }8 k  (defun *error*(s)
    (exit)
    )
2 c: _' p3 n/ Y. o1 y0 x* j7 u  (setq cmdmode (getvar "cmdecho"))
  (setvar "cmdecho" 0)
8 {# M0 I1 B( Q0 {, Q/ t  (setq viewctr (getvar "viewctr"))
4 @. g/ i5 t& j6 J$ o3 T( D& d  (setq viewsize (getvar "viewsize"))
' T5 B4 A" M% F) Z, ~9 X* H  N& U/ T  (prompt "\n Select numbers to add:")
  (setq sset (ssget))
  (if (null sset)
    (progn
      (princ "\n Error:Nothing selected!\n")
+ V  t; e( _' E% ?      (exit)
- m0 x1 A2 R6 t& s9 P' o- c      )
    )
; H3 G/ c. l* K- y8 Y  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
  (setq i(getint "\n The number from which to change:"))
1 T0 G" \) U( O/ F/ y) D  (setq j(getint "\n The numbet to which to add:"))
  (setq k(getint "\n How much you want to add:"))
  (setq ssl (sslength sset))
, I% c  E. T+ y3 e; w( f) r  (setq nsset (ssadd))
  o, j5 e: u- d7 L! K% t6 t  (while (>ssl 0)
    (setq temp (ssname sset (setq ssl(1-ssl))))
# w7 B3 a% p5 [. h# s+ ^    (if (=(cdr (assoc 0 (entget temp))) "TEXT")
      (progn
        (setq number (atoi(cdr(assoc 1 (entget temp)))))
6 g2 s$ b/ i+ z3 A2 }$ ~        (if(and (<=i number)(>=j number))(ssadd temp nsset))
( P% p9 Y+ S8 O. U' x% S5 l        )
+ @0 ^7 G1 j! y7 D& D$ m/ o5 q9 s      )
    )
  (setq ssl (sslength nsset))
  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
6 @" a' V* K2 O. ]  (print ssl)
  (princ "numbers are found.")
9 [5 X2 P8 _% k' w: P) n: y1 n  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
/ S9 b" W& b8 U9 s7 \3 V  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
1 O. _1 G0 L  |  I' D& w# W  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
. }+ [& E0 {9 I+ l- g+ j  (while (> sll 0)
    (setq ent(entget (ssname nsset (setq ssl (1 - sll)))))
" ?9 ~4 S) W  X; ~) S  r4 W5 U0 t    (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"
4 l# X3 m3 W. d' Z  N' \* X0 H                 (list x y)
9 a1 N4 W- e1 l. T: V0 K                 (* h 20)
                 )
        (setq x1 x)(setq y1 y)
, K& ~, A" P; _& |        )
      )
* \% k5 R- ^% B; g    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No")
    (setq number (atoi(cdr(assoc 1 ent))))
9 F5 ~9 Z) J% |, |9 ?, R( ]2 b    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)"))
+ q* y4 Y1 z/ w: T8 g    (if (= yorn "Yes")
( P. Y) r2 `' N      (entmod (subst (cons 1 (itoa(+ number k)))
                     (assoc 1 ent) ent))
  W+ Z. s/ X" L( _* S  }4 b* c      )
0 y) X2 u+ R0 ~3 D( Z/ ~: S; q    (redraw (cdr(assoc -1 ent)) 1)
4 @& l8 [; Z& c+ X    )
/ v" o# o- l& C1 u  K* o8 x4 z: @  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
下面代码中红字是已修改的部分
-------------------------------------------------------------------------------------------------------------------------
2 }2 ^% O8 m) w5 M# u(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
& C8 {( l" n* r  V2 X  (defun *error*(s)
# r' M, r9 ]! W# z" v# t( |    (exit)
" x1 d; T3 q4 Y7 v/ ?! {    )
) D1 A3 m' e1 M. @! A5 ~3 Q, L  (setq cmdmode (getvar "cmdecho" ))
0 ]* q8 U  m+ z- O  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr" ))
  (setq viewsize (getvar "viewsize" ))
. ]+ J0 W2 N; m# N3 q/ Q  (prompt "\n Select numbers to add:" )
  (setq sset (ssget))
  (if (null sset)
    (progn
, A( _8 U" _# g. y8 [$ k      (princ "\n Error:Nothing selected!\n" )
) M- d9 s. k" S( `, D3 b0 M" {, Z      (exit)
; s0 ~8 D. d6 j2 q' O0 u3 _      )
! b" J* @: E) @6 f; F6 T    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
7 R6 a$ ?4 F3 m6 W8 w$ H  (setq i(getint "\n The number from which to change:" ))
# B- Q' y1 E" S4 b8 k; p6 ]  (setq j(getint "\n The numbet to which to add:" ))
  (setq k(getint "\n How much you want to add:" ))
  (setq ssl (sslength sset))
  (setq nsset (ssadd))
; w. T6 O; z, E5 Y' m) u+ [1 c  (while (> ssl 0)
    (setq temp (ssname sset (setq ssl(1- ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
6 u! X. N8 @! H8 e9 s      (progn
( B7 }- w) v6 b: L: N3 Q1 y2 F3 E! H% o! o        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<= i number)(>= j number))(ssadd temp nsset))
4 a) e+ |( Y5 C2 |  A        )
0 d2 r0 S( s, M7 \      )
    )
  (setq ssl (sslength nsset))
  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
2 }! q9 H6 q7 `  s! N  (print ssl)
9 p6 s. P7 `: J6 o; i  (princ "numbers are found." )
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
- Z1 D9 _9 X1 M( }( l0 Q  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
6 F. g. ]  k6 q: _- l  (setq y1 (cadr viewctr))
6 N! V2 J# y; v$ j  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
  (while (> ssl 0)
    (setq ent(entget (ssname nsset (setq ssl (1- ssl)))))
    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
8 m* }5 B  A+ c    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
1 ?% c( m2 u9 R  w      (progn
        (command "zoom" "c"
                 (list x y)
1 `9 k: x1 H2 }  l5 U: m! h# W                 (* h 20)
                 )
        (setq x1 x)(setq y1 y)
        )
      )
6 U: o3 W2 F# X! [/ e    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No" )
' x+ c( `! l* l3 }    (setq number (atoi(cdr(assoc 1 ent))))
& i. S" r8 n% a$ @* F+ x  m0 f    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)" ))
) j9 t7 }6 d$ H: j3 Q! S/ Z( m+ X    (if (= yorn "Yes")
7 i$ Y: n+ s, f; w/ K' L/ ^& F      (entmod (subst (cons 1 (itoa(+ number k)))
3 U2 F$ w1 ?3 b5 t( Y, @                     (assoc 1 ent) ent))
* I/ \7 H5 q% J0 R* {) x      )
; R8 w% D  ^" n' N# {5 Q    (redraw (cdr(assoc -1 ent)) 1)
    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")
-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。