[原创]带有字符的自动递增数

xiatian

各位大虾:我是要让数字自动增加同时前边的标注不变,如 200    R204   R208  R210  他们的距离一定增加的值一定.

我把这个程序编号加到一个新建的空的dwg中可以自动增加,可加到原来花好的图中显示"bad formal argument list"难道是形参列表错误,就不能用了??

是怎么回事啊?

有那位高手明白请指教

先谢谢了

(de fun c:arn()
 (setq en (entsel "选择要排列的数："));选择要排列的数
 (setq pa (getint "\n距离："))
 (setq jj (getint "输入间距："))
 (setq number (getint "\n输入个数"))  ;排列的个数
 (setq p (list pa '0))  ;确定排列方向
 (setq enl_data (entget (car en)))
 (setq lis (assoc 1 enl_data))
 (setq sh (atoi (cdr lis)))
 (setq jp (+ number 1))
 (
 while (/= number 1)
 
 (setq en1 (entlast))
 (command "copy" en1 ""p"")
 (setq en2 (entlast))
 (setq en_data (entget en2))
 (setq old_list (assoc 1 en_data))
 
 
 (setq a (itoa (+ (* jj (- jp number)) sh)))
 (setq new (strcat "XL" a))
 (setq new_list (cons 1 new))
 
 (setq enl_data (subst new_list old_list en_data))
 
 (entmod enl_data)
 (setq number (- number 1))
 
 )
 
 
 
 
)

byghbcx

应该对enl_data对象判断一下,是否为text对象,是了再进行下一步处理,还有要加上局部变量.

(if (= "TEXT" (CDR (ASSOC 0 ENL_DATA)))

(PROGN

......

)

)

highflybir

其实有时候并不一定要编程，
你用用express tools 中的  tcount看看，能否满足你的要求？
如果你有autocad r2008更好，里面就有这个功能了。

lzy9788

编号递增

hxg84515

高手呀，我的CAD2004怎么没有express tools 呀，请指点，是不是的下载工具呀，我要能安顺序排号的就行LISP 。望高手帮助下。

邮箱：hxg84515@163.com   多谢。