标零件序号的小程序

燃烧

我写的标序号的程序，还是有点问题，如果中途按了ESC键的话就会出现标注样式替代，请高手帮忙看看，有什么好方法解决！

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;                                                         ;;;
;;;  ShangHai jinding Mould Industry Co. Ltd.               ;;;
;;;                          xiangzanyang  (sep,2011)       ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:bub (/    v1 v2   v3   sn   en   sn1  en1  n    la pt1
       pt2  sn2 snlg a   al   bubscale  b    r    th pt3
       cenpt
      )
  (setq v1 (getvar "osmode"))  ;获取当前的目标捕捉类型，将其赋给变量V1
  (setq v2 (getvar "cmdecho"))  ;获取当前的普通命令提示状态，将其赋给变量V2
  (setq v3 (getvar "blipmode"))  ;获取当前的光标痕迹显示状态，将其赋给变量V3
  (setq v4 (getvar "dimblk"))
  (setq v5 (getvar "dimstyle"))
  (setq v6 (getvar "dimclrd"))
  (setq v7 (getvar "dimgap"))
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (initget 0)
  (if (SETQ sn (GETint "\n输入起始序号")) ;four if
    (progn
      (if (setq en (getint "\n输入结束序号")) ;three if
(progn
   (setq n (+ (- en sn) 1))
   (REPEAT N
     (if (setq pt1 (getpoint "\n选择零件: ")) ;two if
       (progn
  (if (setq pt2 (getpoint pt1 "\n放置点: "));one if
    (progn
      (setq sn1 (itoa sn))
      (setq snlg (strlen sn1))
      (setq a (angle pt1 pt2))
      (setq
        al (cond
      (
       (and (>= a (* pi 1.5)) (<= a (* pi 0.5)))
       0
      )
      (
       (and (> a (* pi 0.5)) (< a (* pi 1.5)))
       pi
      )
      (t 0)
    )  ;end cond
      )   ;end setq al
      (setq bubscale
      (* (getvar "dimscale") (getvar "dimtxt"))
      )
      (setq b (cond ((= snlg 2) (* bubscale 1.5))
      ((= snlg 1) (* bubscale 1.5))
      ((= snlg 3) (* bubscale 2))
      (t (* snlg bubscale 0.6))
       )  ;end cond
      )   ;end setq b
      (drwing1)

    )   ;one if yes
    (progn
      (setvar "osmode" v1)
      (setvar "cmdecho" v2)
      (setvar "blipmode" v3)
      (command "dimblk" v4)
      (command "dimstyle" "r" v5)
    )   ;one if no
  )   ;end one if
       )    ;two if yes
       (progn
  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (setvar "blipmode" v3)
  (command "dimblk" v4)
  (command "dimstyle" "r" v5)

       )    ;tow if no
     )    ;end two if
   )    ;end repeat
)    ;three if yes
(progn
   (setvar "osmode" v1)
   (setvar "cmdecho" v2)
   (setvar "blipmode" v3)
   (command "dimblk" v4)
   (command "dimstyle" "r" v5)

)    ;three if no
      )     ;end three if
    )     ;for four if yes
    (progn
      (setvar "osmode" v1)
      (setvar "cmdecho" v2)
      (setvar "blipmode" v3)
      (command "dimblk" v4)
      (command "dimstyle" "r" v5)

    )     ;four if no   
  )     ;end four if
  (setvar "osmode" v1)
  (setvar "cmdecho" v2)
  (setvar "blipmode" v3)
  (command "dimblk" v4)
  (command "dimstyle" "r" v5)

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun drwing1 ()
  (setq r (/ b 2))
  (setq th (* (getvar "dimtxt") (getvar "dimscale")))
  (if (not (tblsearch "style" "GB"))
    (command "style" "gb" "gbenor,gbcbig" "" "1" "" "" "")
  )
  (command "dimtxsty" "gb")
  (command "dimsah" "off")
  (command "dimldrblk" "_dotsmall")
  (command "dimclrd" "3")
  (command "dimgap"
    (cond ((= snlg 1) 1.8)
   ((= snlg 2) 1)
   (t v7)
    )
  )
  (command "LAYER" "M" "LABEL" "C" "7" "" "" "qleader" pt1 PT2 "" "" sn1
    "" "")
  (setq pt3 (osnap pt2 "endpoint"))
  (setq cenpt (polar pt3 al r))
  (command "CIRCLE" cenpt r)
  (SETQ sn (1+ sn))
)
;;;

chg

你自定义一个错误处理函数，把你要更改回去的系统变量放在错误处理程序里，这样用户用ESC退出时，cad自动调用错误处理程序，恢复当初的系统变量，你去看看LISP手册里的*error*函数的用法。

cabinsummer

上海金鼎模具工业有限公司向赞阳

linshiyin2

cabinsummer 发表于 2011-11-15 22:08
上海金鼎模具工业有限公司向赞阳

vlisp2012

期待高手的出现！

vlisp2012

我在cad2011使用的时候，按esc键，未出现标注样式替代。
只是提示：“ 错误: 函数被取消”