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

zwanglai

错误: *error* 函数中出错quit / exit abort
2 W5 B9 z/ E6 r
8 ?* e) n$ A% d# D源程序：
" D; H% o0 N& J0 {$ A6 Z;;;           命令:BHXG        命令名称可以按照自己习惯修改
, N( ~! p0 g" X$ L1 e/ [2 \) ~;;;           作用: 编号修改
;;;           作者: 曾望来   
1 V2 F( y  }7 z3 \4 M: w+ Y- x;;;                           
  A+ `( {  \5 M" [" @; Y;;;           联系方式: QQ：332674472
# g6 j$ P3 n) ]: X. N2 ?;;;                     E－MAIL：zwltanf_2008@163.com  
; b6 N) Y0 B) h% R;;;           时间: 2008-11-14
/ U1 ?/ Q* D, K% f2 ]3 F# c9 E. K;;;           使用方法:
;;;                    1 输入BHXG命令
;;;                    2 按提示操作
' M" _% ~8 i, i; ?;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
: q% W  N" C* ~/ h
(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
; Y6 i7 J9 Z( m, ]" H  (defun *error*(s)
) n: @1 B7 c5 h& l    (exit)
0 k: y. R! [/ @' }0 M2 I    )
# R  C% O8 C) |2 _  (setq cmdmode (getvar "cmdecho"))
- T. [8 H. L# Y4 T  K. |+ u, s  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr"))
% p3 v4 V% }" D' H1 P8 w  (setq viewsize (getvar "viewsize"))
2 ]6 |9 \; t# q, k  (prompt "\n Select numbers to add:")
8 Q; C: s5 v: y6 A- P  (setq sset (ssget))
* J, n; ^, \9 n: H  (if (null sset)
    (progn
. h0 X2 X5 k  O2 k8 K, t      (princ "\n Error:Nothing selected!\n")
      (exit)
      )
    )
' y- A1 N1 M$ B# O: P' V8 B  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
- W) R+ `" R: P( t- K  (setq i(getint "\n The number from which to change:"))
( W! u8 a7 m1 g3 F# k6 k  (setq j(getint "\n The numbet to which to add:"))
6 j3 e- z! n1 \2 [) y# U  (setq k(getint "\n How much you want to add:"))
  (setq ssl (sslength sset))
8 x& ?) u2 e# B1 g" ~+ o  (setq nsset (ssadd))
! n8 ]7 ]# u" g8 T7 O* e1 P7 a  (while (>ssl 0)
    (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))
        )
8 z- W0 x4 p6 U3 J; t. N% }      )
/ R) n1 p: W4 A! H! U    )
  (setq ssl (sslength nsset))
  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
  (print ssl)
  (princ "numbers are found.")
4 ^) @" i( |9 D0 P  d' `  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
4 b+ F  R3 |7 t, {# X" @8 ~; i  (setq y1 (cadr viewctr))
" z& P0 u9 I# V9 S; C' `) e) ]" y  (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)))
4 W" s  d( ^( C; i+ z6 M    (setq y (caddr(assoc 10 ent)))
    (if (or (>(abs (- x x1))(* h 10))
" v/ f, W: S0 v! a; C            (>(abs (- y y1))(* h 6)))
      (progn
) x5 g9 A" z, }; a/ X        (command "zoom" "c"
                 (list x y)
/ m1 S1 U4 Q% b8 s( @                 (* h 20)
                 )
        (setq x1 x)(setq y1 y)
        )
      )
* r7 ~. }! o. `    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No")
    (setq number (atoi(cdr(assoc 1 ent))))
& g6 o) R$ w  O% M: i  ]. l    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)"))
    (if (= yorn "Yes")
5 h3 m# o" x3 W, _) l" W      (entmod (subst (cons 1 (itoa(+ number k)))
                     (assoc 1 ent) ent))
      )
    (redraw (cdr(assoc -1 ent)) 1)
+ I- z; P3 ]- C6 n    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
/ ~: p- S( K5 J: b  o  (setvar "CMDECHO" cmdmode)
1 D  H  \1 x% r* w  )
  O2 G/ k3 i& c(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
# ]5 D+ @! n- E+ |. f4 [下面代码中红字是已修改的部分
) e+ l1 p! @0 Z& G1 y5 Y0 F* j2 F! m-------------------------------------------------------------------------------------------------------------------------
(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
" B, b% \4 W+ q1 c  (defun *error*(s)
6 |7 s2 E) }6 f* C    (exit)
7 i2 F; \; v  }6 L" Z( O0 r' C    )
  (setq cmdmode (getvar "cmdecho" ))
% k3 Q  h2 R( L0 A& N  (setvar "cmdecho" 0)
0 ^  s, E+ J8 |: T" [1 _2 s6 w/ r  (setq viewctr (getvar "viewctr" ))
  (setq viewsize (getvar "viewsize" ))
+ Z  s, s7 u1 O5 `4 e0 s0 ?  (prompt "\n Select numbers to add:" )
2 J) u8 g7 F/ R& F. k  l9 T9 z- E  (setq sset (ssget))
2 m% l7 Z8 w  K( F- ^6 K) g  (if (null sset)
    (progn
      (princ "\n Error:Nothing selected!\n" )
      (exit)
      )
/ }5 J" s# A4 `    )
4 a  ]  p$ ^; }  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
: y! ?. K$ \7 }' o3 o# r8 R) y+ ]  (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:" ))
. d! t" @9 ^: v+ O4 F+ _  (setq ssl (sslength sset))
6 m% ^- {7 |' ^9 E  T  (setq nsset (ssadd))
% v* [/ F. B; {+ @# Z  (while (> ssl 0)
$ p! e: x' w, L8 b: ^    (setq temp (ssname sset (setq ssl(1- ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
8 ~1 w, _! Y5 `2 B! i$ e5 {      (progn
" o& R3 w: u% q) F, y6 e- y1 \; J        (setq number (atoi(cdr(assoc 1 (entget temp)))))
& e2 O3 j! ]/ ^3 d5 \; A0 m8 ^0 d3 y        (if(and (<= i number)(>= j number))(ssadd temp nsset))
. s) M# s4 ?: F5 `/ T8 z  {3 M' P        )
/ l/ j) E, K; |' i' }. U* F, L) `      )
* H$ U# h( i, H  t    )
  (setq ssl (sslength nsset))
  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
  (print ssl)
  (princ "numbers are found." )
0 g, e+ k& U" F2 G3 j  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
0 [' T; W9 ]% {  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
& I* n3 g3 P$ u% [9 K  (setq ent (entget (ssname nsset (- ssl 1))))
& l6 @0 s7 _6 B* D8 R# k$ P" q& S  (setq h (cdr(assoc 40 ent)))
  (while (> ssl 0)
. [2 p4 O7 V$ K6 X7 D7 u' N    (setq ent(entget (ssname nsset (setq ssl (1- ssl)))))
8 i: j! y6 G% L    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
2 l& C$ j9 ]3 z' }: t% }0 B! m* |; g    (if (or (>(abs (- x x1))(* h 10))
1 F3 g5 y, a0 T% L( G+ @) p            (>(abs (- y y1))(* h 6)))
      (progn
        (command "zoom" "c"
                 (list x y)
/ ]5 Y- I! k8 A& N$ T* G                 (* h 20)
6 F* A- I4 N7 w, j: |                 )
) {. b+ Q6 a  y& ]" k        (setq x1 x)(setq y1 y)
$ `4 C2 y' u) f: Y8 B9 r! E        )
      )
    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No" )
    (setq number (atoi(cdr(assoc 1 ent))))
! M0 b; T  K" C5 B% n: `    (princ number)
/ k$ w. C% K+ w1 u) [0 X& F% r    (setq yorn (getkword " to be Changed?(Y/N)" ))
' ~; |0 h6 a( m0 p    (if (= yorn "Yes")
      (entmod (subst (cons 1 (itoa(+ number k)))
' \9 J- k1 u9 o                     (assoc 1 ent) ent))
      )
) }+ ~! K! g7 e0 O# c- ^) }    (redraw (cdr(assoc -1 ent)) 1)
    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
& x9 R' |: g( Q3 Z) h! g; M  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
- M3 P: q7 L/ `  y& M  )
# w6 S; B9 @9 f7 ?: Y(princ "\n\tc:chnumber loaded.Start command with BHXG.")
% ~, \: `# b" Q9 c6 \. K-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。