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

zwanglai

错误: *error* 函数中出错quit / exit abort
8 Q2 b8 C6 t7 E3 p8 ^6 g
源程序：
;;;           命令:BHXG        命令名称可以按照自己习惯修改
;;;           作用: 编号修改
;;;           作者: 曾望来   
;;;                           
;;;           联系方式: QQ：332674472
& P0 u9 @% P* L+ I;;;                     E－MAIL：zwltanf_2008@163.com  
! o9 |9 u" R2 ?, v;;;           时间: 2008-11-14
;;;           使用方法:
6 b  q- M3 @7 ]" [;;;                    1 输入BHXG命令
;;;                    2 按提示操作
- d& D6 g7 L2 P4 T;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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)
    )
( C6 M* o: Y8 z2 v; C  (setq cmdmode (getvar "cmdecho"))
  (setvar "cmdecho" 0)
' ?5 s( P* X! d8 m2 h  (setq viewctr (getvar "viewctr"))
) z) f; @0 d( O0 g1 A1 P  (setq viewsize (getvar "viewsize"))
( y4 N3 I9 }# e! r& U  p: G  (prompt "\n Select numbers to add:")
  (setq sset (ssget))
  (if (null sset)
    (progn
      (princ "\n Error:Nothing selected!\n")
      (exit)
- k0 @0 [& o# N! @! v# h: o0 j      )
    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
3 K2 F2 x$ @) ^  l) u2 f5 u$ k  (setq i(getint "\n The number from which to change:"))
; Q1 m. A. n# X/ N6 ~% |  (setq j(getint "\n The numbet to which to add:"))
. Q8 o) ?5 i8 l6 j  {3 r  (setq k(getint "\n How much you want to add:"))
- u) s& `( M  E2 O  (setq ssl (sslength sset))
  (setq nsset (ssadd))
7 R  O% N( i* n. g7 y/ U( i  (while (>ssl 0)
    (setq temp (ssname sset (setq ssl(1-ssl))))
. h7 Y4 E8 k4 j    (if (=(cdr (assoc 0 (entget temp))) "TEXT")
4 n7 l, d1 e4 Z/ O      (progn
. o. S, R! T, w2 M, r        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<=i number)(>=j number))(ssadd temp nsset))
5 S4 k" A! ^0 o* o2 f( {) V        )
% I) e* r2 S1 n$ Q) k+ L+ r      )
/ K9 R! f5 O7 j3 c& d! m/ A    )
  (setq ssl (sslength nsset))
" p( I7 X* D4 [) f  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
  (print ssl)
  (princ "numbers are found.")
7 m1 r# O) Y! ]( M7 |  i  P  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
4 X9 ^; B( K( Y+ V) \  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
7 }1 G- Z. c+ W5 V  (setq y1 (cadr viewctr))
5 G: v: H$ C8 o: K3 L0 f  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
* Z. `+ F$ k: _: V7 `( q  (while (> sll 0)
    (setq ent(entget (ssname nsset (setq ssl (1 - sll)))))
    (setq x (cadr(assoc 10 ent)))
  P: T( V; N$ x1 D0 l/ ~    (setq y (caddr(assoc 10 ent)))
. }$ ~7 }) a1 Z! n    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
; F7 \  P% m, u0 L0 A      (progn
        (command "zoom" "c"
2 n3 Y- j8 m% o" s                 (list x y)
( _. T5 ?0 H6 d) Q+ Y5 a, E                 (* h 20)
7 i- [1 p5 @) x% e! v                 )
1 Y, s$ g( h& f( M7 j) X) ?        (setq x1 x)(setq y1 y)
4 a( m2 E4 E5 B6 }2 A9 x        )
  y+ I& P" Z% g/ E1 H6 O( w      )
+ C: ]  b; E& N" I4 _    (redraw (cdr(assoc -1 ent)) 3)
, e6 X7 ^, p; r2 _0 X# N& h0 |' p    (initget 1 "Yes No")
    (setq number (atoi(cdr(assoc 1 ent))))
: |& e7 T8 G1 K; ~- q. i, P    (princ number)
# j8 z, x1 R- o    (setq yorn (getkword " to be Changed?(Y/N)"))
    (if (= yorn "Yes")
      (entmod (subst (cons 1 (itoa(+ number k)))
6 w/ u9 t$ c$ S% `) `                     (assoc 1 ent) ent))
      )
    (redraw (cdr(assoc -1 ent)) 1)
8 N$ t. V# n2 ^; S  e/ I2 L    )
* D" H. F% {$ Y9 g" u; M  ;所有编号改变完成后,恢复使用本命令前的视窗。
6 y; Y; u' e* [- H! ?9 k* P) z) a  (command "zoom" "c" viewctr viewsize)
' h, X5 f& i1 g+ I& E6 t2 g$ ^  (setvar "CMDECHO" cmdmode)
  )
+ P! n2 z$ I: }) s5 u9 ]& e2 f$ {/ s(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
7 X" F* b# n7 s" g7 N8 L下面代码中红字是已修改的部分
- F% U* \- c1 l& Y-------------------------------------------------------------------------------------------------------------------------
(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
  (defun *error*(s)
, w+ X* H: o+ }' M* n4 _    (exit)
    )
  (setq cmdmode (getvar "cmdecho" ))
# W; u0 v. X% W; T/ V; L  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr" ))
9 G8 P, j( e0 I+ f4 \" e  c  (setq viewsize (getvar "viewsize" ))
* ]/ ?; G$ i' p  (prompt "\n Select numbers to add:" )
% J; ]" t# F  ^  k% p& `  (setq sset (ssget))
  (if (null sset)
    (progn
% A2 z0 t* a. U3 f' B7 c' [* Y      (princ "\n Error:Nothing selected!\n" )
      (exit)
      )
    )
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
  (setq i(getint "\n The number from which to change:" ))
  q9 s1 {+ h( K  (setq j(getint "\n The numbet to which to add:" ))
% M9 _. ~- t% l/ R+ i  (setq k(getint "\n How much you want to add:" ))
7 I; c( J0 N8 B0 o$ `- ^2 V1 g- C5 V  (setq ssl (sslength sset))
  (setq nsset (ssadd))
. r4 Z3 C- h" S' N: U  (while (> ssl 0)
    (setq temp (ssname sset (setq ssl(1- ssl))))
8 R8 R) F: m* N0 f% S% p    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
      (progn
. m8 p" Z! g) k8 z& O6 T* R        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<= i number)(>= j number))(ssadd temp nsset))
" m1 t+ y. Z/ \3 j+ T9 V        )
1 z, ^1 t5 R( u& r. {: f7 o/ s      )
    )
* r9 N/ E3 |- v, }$ y' l  (setq ssl (sslength nsset))
' ^: q& N# {: U4 o  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
: S4 U8 P7 b' r0 @: R0 P& J3 B$ N9 `  (print ssl)
  (princ "numbers are found." )
/ t1 ]- a1 Q9 d" p  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
; \- X6 C) T4 e, n9 d; y, x  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
* V. h$ O( O1 d: L/ i  (setq x1 (car viewctr))
# H" G4 d; X8 C" H  \  (setq y1 (cadr viewctr))
  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
  (while (> ssl 0)
' v7 o# z3 Z0 w3 U    (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))
! t) D% k2 i' k6 L3 {0 a8 b4 T            (>(abs (- y y1))(* h 6)))
! v: f$ i* x& w! X2 ]) N! l      (progn
        (command "zoom" "c"
                 (list x y)
                 (* h 20)
) x" r# D% x! Q2 I3 j                 )
% y! o6 S5 X) J& e8 a3 `        (setq x1 x)(setq y1 y)
        )
      )
# Q- O+ _. X- F" v    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No" )
# g4 B7 q3 g9 @: G; B    (setq number (atoi(cdr(assoc 1 ent))))
2 s2 _! T# L1 q/ v4 ~' K    (princ number)
* x# N5 l8 j+ M1 l, F0 S    (setq yorn (getkword " to be Changed?(Y/N)" ))
    (if (= yorn "Yes")
. u& u1 `! M2 D      (entmod (subst (cons 1 (itoa(+ number k)))
                     (assoc 1 ent) ent))
* u. x. n! s3 N      )
' K2 {4 n& c  o    (redraw (cdr(assoc -1 ent)) 1)
    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
4 @+ p% `2 c5 h9 b8 ~  (setvar "CMDECHO" cmdmode)
6 l; F8 N9 P3 V  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")
-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。