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

zwanglai

错误: *error* 函数中出错quit / exit abort
# Y# `' Y' d8 B3 q9 O' m9 B
: ~7 G) ^4 I+ ^3 \9 z! o源程序：
;;;           命令:BHXG        命令名称可以按照自己习惯修改
;;;           作用: 编号修改
7 c  a4 W# E& V8 g; G;;;           作者: 曾望来   
1 }+ f" _7 G9 s+ U: O4 };;;                           
;;;           联系方式: QQ：332674472
2 n: X# X& D' u( m) }8 z. g;;;                     E－MAIL：zwltanf_2008@163.com  
;;;           时间: 2008-11-14
;;;           使用方法:
, R/ F8 S" F9 N" S;;;                    1 输入BHXG命令
" b2 e6 W( f7 g1 U' n8 d* u;;;                    2 按提示操作
9 n+ e3 ]1 C: U0 s0 };;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7 G. Y1 W0 I8 W4 _
) N# Y+ M6 q  J5 U) r(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
  (defun *error*(s)
    (exit)
    )
' ~; L3 U, d6 t* }5 d7 J  (setq cmdmode (getvar "cmdecho"))
8 ]4 G  r# n' I  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr"))
% W$ Z) N& h( ?) A  (setq viewsize (getvar "viewsize"))
  (prompt "\n Select numbers to add:")
  (setq sset (ssget))
  (if (null sset)
    (progn
      (princ "\n Error:Nothing selected!\n")
, `) ~: c5 y. w3 \; i" E      (exit)
) L* ^: m9 u9 U$ G: r- x      )
2 [* f; l- F% K* n" q' ]$ |0 J    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
3 W  L$ h1 q! A  (setq i(getint "\n The number from which to change:"))
  (setq j(getint "\n The numbet to which to add:"))
$ j1 c# ?; g/ s3 B2 s% ^- b. @  (setq k(getint "\n How much you want to add:"))
+ T7 {2 R( y" O. _3 H  (setq ssl (sslength sset))
  (setq nsset (ssadd))
" u' u6 m: a2 C0 W  (while (>ssl 0)
6 @3 |. h- v! M- V' H    (setq temp (ssname sset (setq ssl(1-ssl))))
1 ~% l" l. u% C& N% v2 i    (if (=(cdr (assoc 0 (entget temp))) "TEXT")
      (progn
        (setq number (atoi(cdr(assoc 1 (entget temp)))))
( W( `7 V- G9 G% G2 g7 Z        (if(and (<=i number)(>=j number))(ssadd temp nsset))
        )
6 l. R& @% b( T" }+ P. Z) L      )
% [+ X( U8 ^3 H    )
$ Q# c9 f4 e: @1 E3 u$ s  (setq ssl (sslength nsset))
. \/ ?9 l1 e/ a+ [  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
4 n- g2 ^3 o* f8 E6 ~2 [  (print ssl)
  (princ "numbers are found.")
" u/ e  s0 g1 ]4 u  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
$ U( Y( u7 p: c1 v* f+ S) {+ T1 _  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
& @8 z' D2 W) j6 G' ?: J  (while (> sll 0)
8 q$ \. n: I  `* l    (setq ent(entget (ssname nsset (setq ssl (1 - sll)))))
    (setq x (cadr(assoc 10 ent)))
7 D& D5 r( t5 m2 C' |6 @    (setq y (caddr(assoc 10 ent)))
$ i) r& W' {' A0 l    (if (or (>(abs (- x x1))(* h 10))
! ~2 V+ R& t- d% y' }' h! q% U            (>(abs (- y y1))(* h 6)))
      (progn
) D, o/ ]0 h) ]        (command "zoom" "c"
5 Y: m. E! Q/ J8 k0 V                 (list x y)
) X8 w4 q/ m& q: [  k                 (* h 20)
* a# Y! R- M8 z# ^% n$ @                 )
        (setq x1 x)(setq y1 y)
# B! I" L: P5 w( H0 ~        )
, |/ ]2 e! @& o! \: I) A      )
! s: L4 E$ @0 B    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No")
1 h/ }" H6 ^! K& P: d$ l0 b4 X) W6 V    (setq number (atoi(cdr(assoc 1 ent))))
    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)"))
/ K( p( F" F. z    (if (= yorn "Yes")
      (entmod (subst (cons 1 (itoa(+ number k)))
" L# h3 V( _0 B* h: n+ n3 k7 m0 d                     (assoc 1 ent) ent))
      )
    (redraw (cdr(assoc -1 ent)) 1)
, E) g  B: E' Y4 `) L$ V    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
2 I/ b2 O; S' k7 U7 A8 K  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
  }8 A! e* v; h4 S下面代码中红字是已修改的部分
-------------------------------------------------------------------------------------------------------------------------
9 E3 V5 O6 i" q. E/ U1 F) n1 R& U(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
  (defun *error*(s)
% |9 O! n( f* C0 ^    (exit)
    )
6 A1 y$ S: N. s2 }! G  (setq cmdmode (getvar "cmdecho" ))
  (setvar "cmdecho" 0)
$ C, }) d2 {* o4 {+ k) R# q  (setq viewctr (getvar "viewctr" ))
  (setq viewsize (getvar "viewsize" ))
8 N$ S8 c$ |- d; V  (prompt "\n Select numbers to add:" )
  (setq sset (ssget))
+ {6 i9 z6 e1 f  b! Y  S% m: G  (if (null sset)
    (progn
      (princ "\n Error:Nothing selected!\n" )
      (exit)
4 |. v9 b8 }8 T6 T      )
    )
3 c( d. `/ u& J( ]8 t" J' \  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
: {: C5 W) ^8 u! v; d% |  (setq i(getint "\n The number from which to change:" ))
  (setq j(getint "\n The numbet to which to add:" ))
% U% q, j5 O) H: ]  (setq k(getint "\n How much you want to add:" ))
4 H5 ~+ V8 m  A7 O4 m8 K  (setq ssl (sslength sset))
, P7 G; F$ Y! X" s& P# w# Q  @/ Q1 p& N  (setq nsset (ssadd))
- L% \, V: v! r/ C9 ]  (while (> ssl 0)
    (setq temp (ssname sset (setq ssl(1- ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
: y" D1 K  d: w& O- ?4 Q      (progn
  o8 c' b6 y$ G' U% Y+ s4 `' g; b# |        (setq number (atoi(cdr(assoc 1 (entget temp)))))
8 _& v) h. ~& j0 |6 }! `7 {8 X        (if(and (<= i number)(>= j number))(ssadd temp nsset))
% l/ V& S( D, w        )
  w; [' d6 c7 \& L( c9 R7 a, H      )
2 _4 }) |) W# }, H9 k/ |# M    )
  (setq ssl (sslength nsset))
1 J0 i( s5 X" f5 J' R& v  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
% l% ~: W+ X5 n0 b  n  (print ssl)
9 Y( R8 `+ w. H. C  (princ "numbers are found." )
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
9 w8 ~( k+ {- a4 l  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
& X% }1 a/ i+ f* E# N. G5 h  (setq ent (entget (ssname nsset (- ssl 1))))
2 J9 \" W. Z; B  (setq h (cdr(assoc 40 ent)))
  (while (> ssl 0)
4 {  H6 p( z4 S  Q" Y6 Y+ \9 r    (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))
1 D0 m4 z+ N2 G% v            (>(abs (- y y1))(* h 6)))
      (progn
        (command "zoom" "c"
                 (list x y)
                 (* h 20)
                 )
        (setq x1 x)(setq y1 y)
/ B; Z6 D/ r6 |5 j* b' j        )
      )
    (redraw (cdr(assoc -1 ent)) 3)
5 Y  I2 A0 ^% @) t2 R2 a    (initget 1 "Yes No" )
    (setq number (atoi(cdr(assoc 1 ent))))
7 u: t0 s. V% ]    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)" ))
    (if (= yorn "Yes")
      (entmod (subst (cons 1 (itoa(+ number k)))
" m5 p) K" F8 g/ a2 J1 T                     (assoc 1 ent) ent))
! {, U1 ?. s% O( ]4 Q      )
    (redraw (cdr(assoc -1 ent)) 1)
  }3 [3 X6 t* d5 u& Q2 ^/ p    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
5 N9 E7 x* [" [  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
  )
  f4 C1 \) ~3 `9 H(princ "\n\tc:chnumber loaded.Start command with BHXG.")
-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。