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

zwanglai · 发表于 2008-11-14 11:06:14

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

错误: *error* 函数中出错quit / exit abort

源程序：
;;;          命令:BHXG       命令名称可以按照自己习惯修改
;;;          作用: 编号修改
;;;          作者: 曾望来
;;;
;;;          联系方式: QQ：332674472
;;;                   E－MAIL：zwltanf_2008@163.com
;;;          时间: 2008-11-14
;;;          使用方法:
;;;                   1 输入BHXG命令
;;;                   2 按提示操作
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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)
)
  (setq cmdmode (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr"))
  (setq viewsize (getvar "viewsize"))
  (prompt "\n Select numbers to add:")
  (setq sset (ssget))
  (if (null sset)
(progn
   (princ "\n Error:Nothing selected!\n")
   (exit)
   )
)
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
  (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:"))
  (setq ssl (sslength sset))
  (setq nsset (ssadd))
  (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))
)
   )
)
  (setq ssl (sslength nsset))
  (if (=ssl 0)(progn princ("\n No numbers selected!")(exit)))
  (print ssl)
  (princ "numbers are found.")
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
  (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)))
(setq y (caddr(assoc 10 ent)))
(if (or (>(abs (- x x1))(* h 10))
      (>(abs (- y y1))(* h 6)))
   (progn
(command "zoom" "c"
   (list x y)
   (* h 20)
   )
(setq x1 x)(setq y1 y)
)
   )
(redraw (cdr(assoc -1 ent)) 3)
(initget 1 "Yes No")
(setq number (atoi(cdr(assoc 1 ent))))
(princ number)
(setq yorn (getkword " to be Changed?(Y/N)"))
(if (= yorn "Yes")
   (entmod (subst (cons 1 (itoa(+ number k)))
      (assoc 1 ent) ent))
   )
(redraw (cdr(assoc -1 ent)) 1)
)
  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")

woaishuijia · 发表于 2008-11-14 13:35:51

有五处应该留空未留；一处不该留空格却留了；两处变量名写错，一处不该用括号。
下面代码中红字是已修改的部分
-------------------------------------------------------------------------------------------------------------------------
(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)
)
  (setq cmdmode (getvar "cmdecho" ))
  (setvar "cmdecho" 0)
  (setq viewctr (getvar "viewctr" ))
  (setq viewsize (getvar "viewsize" ))
  (prompt "\n Select numbers to add:" )
  (setq sset (ssget))
  (if (null sset)
(progn
   (princ "\n Error:Nothing selected!\n" )
   (exit)
   )
)
  ;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
  (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:" ))
  (setq ssl (sslength sset))
  (setq nsset (ssadd))
  (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))
      )
   )
)
  (setq ssl (sslength nsset))
  (if (= ssl 0)(progn princ"\n No numbers selected!" (exit)))
  (print ssl)
  (princ "numbers are found." )
  ;使被改变编号以一定大小处于屏幕中心位置并被高亮度显示，
  ;改变每个编号前先询问用户，以免改变了不需要改变的编号。
  (setq x1 (car viewctr))
  (setq y1 (cadr viewctr))
  (setq ent (entget (ssname nsset (- ssl 1))))
  (setq h (cdr(assoc 40 ent)))
  (while (> ssl 0)
(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))
         (>(abs (- y y1))(* h 6)))
   (progn
      (command "zoom" "c"
               (list x y)
               (* h 20)
               )
      (setq x1 x)(setq y1 y)
      )
   )
(redraw (cdr(assoc -1 ent)) 3)
(initget 1 "Yes No" )
(setq number (atoi(cdr(assoc 1 ent))))
(princ number)
(setq yorn (getkword " to be Changed?(Y/N)" ))
(if (= yorn "Yes")
   (entmod (subst (cons 1 (itoa(+ number k)))
                  (assoc 1 ent) ent))
   )
(redraw (cdr(assoc -1 ent)) 1)
)
  ;所有编号改变完成后,恢复使用本命令前的视窗。
  (command "zoom" "c" viewctr viewsize)
  (setvar "CMDECHO" cmdmode)
  )
(princ "\n\tc:chnumber loaded.Start command with BHXG.")
-------------------------------------------------------------------------------------------------------------------------

zwanglai · 发表于 2008-11-15 16:20:03

谢谢啦！我修改看看。

		自动登录	找回密码
密码			注册

通知

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

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

浏览过的版块