yang686526

[求助]大家帮个忙，看看这个怎么改！！！
www.dimcax.com
[求助]大家帮个忙，看看这个怎么改！！！
(defun c:gbh( / 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 请从图上选取需要修改的数字: ")
(setq sset (ssget))
(if (null sset)
(progn
(princ "\n error: nothing selected!\n")
(exit)
)
)
;根据用户指定范围过滤出需要改变的编号，并报告找到多少编号。
(setq i(getint "\n 需要从那个编号开始修改:"))
(setq j(getint "\n 修改到那个编号结束:"))
(setq k(getint "\n 编号需要增加多少:"))
(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("\nno 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 "\nthe number ")
(princ number)
(setq yorn (getkword " 是否要修改?(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)
(prin1)
)
这个程序修改的数字需要 -32768 和 32767 之间的整数
怎么修改下程序，让它可以修改任意整数！
谢谢
d