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

zwanglai

错误: *error* 函数中出错quit / exit abort
" ^( ]' v3 g, M& @
) G" w  ?  m; o源程序：
7 }5 j) o2 g8 B! M" g& J% I;;;           命令:BHXG        命令名称可以按照自己习惯修改
2 e# n$ H+ e  G( p+ G% [) J) f# v;;;           作用: 编号修改
;;;           作者: 曾望来   
  @  n/ G, C4 D" A. m/ [3 ?5 R! Y;;;                           
. p) J) l( ~* }: o; b0 X$ Q;;;           联系方式: QQ：332674472
;;;                     E－MAIL：zwltanf_2008@163.com  
1 q) n! G! d. a;;;           时间: 2008-11-14
;;;           使用方法:
;;;                    1 输入BHXG命令
;;;                    2 按提示操作
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 b  B+ N7 j! i
(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)
" ~) `' [- D# d2 P- K    )
  H+ [% l* h7 V! A  g1 Y+ u  (setq cmdmode (getvar "cmdecho"))
  (setvar "cmdecho" 0)
8 {' d, @- w/ D5 a1 i" E  (setq viewctr (getvar "viewctr"))
  (setq viewsize (getvar "viewsize"))
  K7 j0 U6 X9 h8 B1 L! n  (prompt "\n Select numbers to add:")
  (setq sset (ssget))
3 \+ Q' ]/ _- {+ _9 B3 u5 ~  (if (null sset)
3 O* M6 \% O7 S  t# T  Q2 w    (progn
      (princ "\n Error:Nothing selected!\n")
      (exit)
9 W0 _) s9 y$ D3 B$ a# \      )
    )
! ~4 m& j! r+ d9 d" A1 R  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
  (setq i(getint "\n The number from which to change:"))
0 W- l# l; f* h3 u  (setq j(getint "\n The numbet to which to add:"))
  (setq k(getint "\n How much you want to add:"))
  (setq ssl (sslength sset))
; L+ Y  l# j! [  (setq nsset (ssadd))
. W5 M$ Y9 l! R. `5 ^  (while (>ssl 0)
3 V' y! a! L1 w( m0 T/ x. q: Y    (setq temp (ssname sset (setq ssl(1-ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT")
$ ~' }: c8 M* ?! F* B! @) ?; p      (progn
1 A% w+ _% ]5 l3 B        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<=i number)(>=j number))(ssadd temp nsset))
        )
      )
) C' }% k& T' P+ c( ]- {1 Z    )
  (setq ssl (sslength nsset))
  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
* C, m+ _' |% b  (print ssl)
4 [" t# ^* {6 {* D  (princ "numbers are found.")
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
7 ?. x2 W- u5 U! |+ X4 [2 v# E  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
5 G* r/ ]6 _2 {# @. o0 R  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
" e. k& {6 }* ]/ V  F  e2 v6 l  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
: s& G  x- N8 O2 h  (while (> sll 0)
    (setq ent(entget (ssname nsset (setq ssl (1 - sll)))))
; S6 B& M5 D3 T9 z& P8 e    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
8 U/ S5 j" b: \3 o* j      (progn
        (command "zoom" "c"
3 f: x0 V* k7 D2 k+ I# o                 (list x y)
                 (* h 20)
                 )
        (setq x1 x)(setq y1 y)
9 i6 `( S2 ]% ]) G. k: D        )
% T9 Q0 H1 Y5 m# o3 {* V& }      )
    (redraw (cdr(assoc -1 ent)) 3)
7 t2 }! v2 e1 @2 D6 V    (initget 1 "Yes No")
    (setq number (atoi(cdr(assoc 1 ent))))
    (princ number)
- s( G3 H1 T, W) [+ P" j, a7 o    (setq yorn (getkword " to be Changed?(Y/N)"))
    (if (= yorn "Yes")
      (entmod (subst (cons 1 (itoa(+ number k)))
* z3 ~; M, ]/ u- v; }* A5 v                     (assoc 1 ent) ent))
( K- s* B. k* Z0 d# V      )
    (redraw (cdr(assoc -1 ent)) 1)
    )
) {! k4 I9 U5 ^+ w- x  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
4 T! E' l" j  k' |* z( R" l( F  )
5 N% Z2 C4 M. f* u) _4 W(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
9 h' s8 U& |; r+ p8 E6 }下面代码中红字是已修改的部分
-------------------------------------------------------------------------------------------------------------------------
(defun c:BHXG(/ cmdmode viewctr viewsize sset i j k ssl nsset temp ent number x1 y1 x y h yorn)
% c' x7 J3 {( ~8 \9 u' U( l  (defun *error*(s)
    (exit)
    )
. g9 `1 `: X1 k0 z" F# `; A  (setq cmdmode (getvar "cmdecho" ))
  (setvar "cmdecho" 0)
$ G' l5 V0 @$ S6 t5 ?9 R  (setq viewctr (getvar "viewctr" ))
" l2 Q2 Q9 I" k' s. I% C! F7 z  (setq viewsize (getvar "viewsize" ))
7 F5 @9 q2 s- n% Y; [3 }0 \  (prompt "\n Select numbers to add:" )
4 n/ M8 [# U4 m/ o( a8 ]! w  (setq sset (ssget))
0 r9 g  \  Y1 D( k  (if (null sset)
    (progn
% @& F5 h6 I0 M5 R7 D2 C      (princ "\n Error:Nothing selected!\n" )
      (exit)
      )
$ ^4 {' O! ^3 L/ H1 E3 x) q    )
) J! [* K5 L" R1 S1 O7 C  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
  (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:" ))
6 P" p, ]. C1 E& J/ e. ^  {9 ]  (setq ssl (sslength sset))
8 ~7 x/ B0 n; u4 K$ \* b+ D4 e  (setq nsset (ssadd))
, q- L; U1 j+ H, \) e9 l  (while (> ssl 0)
    (setq temp (ssname sset (setq ssl(1- ssl))))
    (if (=(cdr (assoc 0 (entget temp))) "TEXT" )
' @4 |' O3 T" P! ]      (progn
* T: o  t* Y* }- a7 j        (setq number (atoi(cdr(assoc 1 (entget temp)))))
        (if(and (<= i number)(>= j number))(ssadd temp nsset))
        )
" N& x) Y2 Y7 ~+ W      )
    )
  (setq ssl (sslength nsset))
  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
; X  J" @: W' B  (print ssl)
1 C5 y% U9 k% G6 w* U6 j* r8 @  (princ "numbers are found." )
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
4 @2 y5 l8 [& f% t  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
( F0 }6 L; z+ l# [* q$ W  (setq x1 (car viewctr))
4 m8 n! F6 r" [1 ^  (setq y1 (cadr viewctr))
  (setq ent (entget (ssname nsset (- ssl 1))))
% y# X6 N" N" a0 Q5 F7 E) _- o  (setq h (cdr(assoc 40 ent)))
8 H( E" `% w# E6 o8 H1 }+ j  (while (> ssl 0)
& m( Z( O3 S& j    (setq ent(entget (ssname nsset (setq ssl (1- ssl)))))
1 Q* \* `+ Q: W    (setq x (cadr(assoc 10 ent)))
    (setq y (caddr(assoc 10 ent)))
* ]+ @8 Q+ z9 Y# c    (if (or (>(abs (- x x1))(* h 10))
            (>(abs (- y y1))(* h 6)))
; W: K: v2 m$ E* g# y      (progn
        (command "zoom" "c"
                 (list x y)
                 (* h 20)
                 )
. `$ m7 u4 }$ u# x- u! s% a+ \: Z9 n+ t        (setq x1 x)(setq y1 y)
, c8 W* T. z; J6 x2 h        )
      )
    (redraw (cdr(assoc -1 ent)) 3)
    (initget 1 "Yes No" )
# [/ ~# Z2 N5 E  g( M' z    (setq number (atoi(cdr(assoc 1 ent))))
    (princ number)
    (setq yorn (getkword " to be Changed?(Y/N)" ))
    (if (= yorn "Yes")
* a% S- x# e( W) S      (entmod (subst (cons 1 (itoa(+ number k)))
& s7 z6 F, l# T' {5 d7 K# U                     (assoc 1 ent) ent))
$ }$ D3 @) d6 g& j$ Z  k      )
! K! r2 V' A5 v# P/ ?6 E; F  T    (redraw (cdr(assoc -1 ent)) 1)
5 [' j1 _4 ~1 _& _    )
  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
2 y) U0 T; m: t- u- U, P  )
% y2 ^! q! J4 A* x0 v( O7 ~(princ "\n\tc:chnumber loaded.Start command with BHXG.")
7 p' o2 q" M" ~& E9 b-------------------------------------------------------------------------------------------------------------------------

zwanglai

谢谢啦！我修改看看。