风蓝云翼 发表于 2012-4-16 12:56:18

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

弄了好久还是很多问题。
求高手帮忙。
希望结果：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.")

风蓝云翼 发表于 2012-4-16 13:40:47

求高手呀！！！！

pzweng 发表于 2012-4-16 13:49:38

能否图文说明

longer1000 发表于 2012-4-17 09:10:05

纯支持！！！！！！！

苍风 发表于 2012-9-24 16:23:58

路过 打酱油

war32 发表于 2014-10-10 16:41:49

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

姜还是老王的辣 发表于 2016-5-22 17:04:36

找到了吗，我也在找

qq1254582201 发表于 2019-6-14 00:06:00

思路不错，楼主找到了没有
页: [1]
查看完整版本: 求高手帮忙改变。阵列+文本递增。