求高手帮忙改变。阵列+文本递增。

风蓝云翼

弄了好久还是很多问题。
求高手帮忙。
希望结果：1.选择多个对象同时阵列。 2.可以让文本里面的其他数据留下。我这里递增后只剩下数字了。

代码现状：
(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.")

风蓝云翼

求高手呀！！！！

pzweng

能否图文说明

longer1000

纯支持！！！！！！！

苍风

路过 打酱油

war32

顶楼主，想找一个沿弧线自动阵列的程序

姜还是老王的辣

找到了吗，我也在找

qq1254582201

思路不错，楼主找到了没有