[LISP函数]：AUTO CAD自动生成递增数的LISP函数!

gaozh

用CAD作图时，常需画一些距离一定、数值递增的数。如填写材料表时，“序号”一栏就需填写由下至上的递增数。通常，我们先用“text”命令写一个数，再用“array”命令将其按一定方向阵列，最后用“edit”命令一个一个的改正。下面这个程序可将你从这单调重复的动作中解放出来。
(defun c:arn( / ent temp d a number yorn)
(setq cmdmode (getvar "cmdecho"))  
(setvar "cmdecho" 0)  
;选择一个实体，并判断能否作为生成递增数的初始数。
(setq ent (entsel "\nSelect number to arn: "))
(if (null ent)
(progn
(princ "\nError: Nothing selected!\n")
(exit)
)
)
(setq temp (entget (car ent)))
(if (= (cdr (assoc 0 temp)) "TEXT")
;输入生成递增数的个数、数间距及其方向。
(progn
(setq number(getint "Number of texts:"))
(setq d(getdist "Dist between texts:"))
(setq a (atoi(cdr(assoc 1 temp))))
(initget 1 "V H")
(setq yorn (getkword " Direction(V/H)?"))  
(if (= yorn "V")
(setq p (list 0 d))
)  
(if (= yorn "H")
(setq p (list d 0))
)
;重复拷贝前一个数，并将拷贝数加1。
(while (/= number 1)
(command "copy" ent "" p "")
(setq ent (entlast))
(setq temp (entget ent))
(setq a (+ a 1))
(entmod (subst (cons 1 (itoa a))
(assoc 1 temp) temp))
(setq number (1- number))
)
)
)
(setvar "CMDECHO" cmdmode)
)  
(princ "\n\tc:arn loaded. Start command with arn.")

tq888

好像垂直的序列号只能下小上大，可否可以（在垂直方向上）编号由小到大

lzy9788

试试这个吧
http://www.xdcad.net/forum/showt ... eadid=180220&s=

金鹅起飞

谢谢分享！这是个好东东呀，我支持您！