[原创]带有字符的自动递增数
<p>各位大虾:我是要让数字自动增加同时前边的标注不变,如 200 R204 R208 R210 <font size="3"><font face="宋体, MS Song"> 他们的距离一定增加的值一定.</font></font></p><p><font face="宋体" size="3">我把这个程序编号加到一个新建的空的dwg中可以自动增加,可加到原来花好的图中显示"</font><shape id="_x0000_s1026" type="#_x0000_t75" style="MARGIN-TOP: 60.75pt; Z-INDEX: 1; LEFT: 0px; MARGIN-LEFT: 82.5pt; WIDTH: 431.75pt; POSITION: absolute; HEIGHT: 225.9pt; TEXT-ALIGN: left; mso-position-horizontal-relative: text; mso-position-vertical-relative: text;"><imagedata otitle="" src="file:///C:\DOCUME~1\pc203\LOCALS~1\Temp\msohtml1\01\clip_image001.emz"></imagedata></shape>bad formal argument list"难道是形参列表错误,就不能用了??</p><p>是怎么回事啊?</p><p>有那位高手明白请指教</p><p>先谢谢了</p><p>(de fun c:arn()<br/> (setq en (entsel "选择要排列的数："));选择要排列的数<br/> (setq pa (getint "\n距离："))<br/> (setq jj (getint "输入间距："))<br/> (setq number (getint "\n输入个数")) ;排列的个数<br/> (setq p (list pa '0)) ;确定排列方向<br/> (setq enl_data (entget (car en)))<br/> (setq lis (assoc 1 enl_data))<br/> (setq sh (atoi (cdr lis)))<br/> (setq jp (+ number 1))<br/> (<br/> while (/= number 1)<br/> <br/> (setq en1 (entlast))<br/> (command "copy" en1 ""p"")<br/> (setq en2 (entlast))<br/> (setq en_data (entget en2))<br/> (setq old_list (assoc 1 en_data))<br/> <br/> <br/> (setq a (itoa (+ (* jj (- jp number)) sh)))<br/> (setq new (strcat "XL" a))<br/> (setq new_list (cons 1 new))<br/> <br/> (setq enl_data (subst new_list old_list en_data))<br/> <br/> (entmod enl_data)<br/> (setq number (- number 1))<br/> <br/> )<br/> <br/> <br/> <br/> <br/>)</p><p></p> <p>应该对enl_data对象判断一下,是否为text对象,是了再进行下一步处理,还有要加上局部变量.</p><p>(if (= "TEXT" (CDR (ASSOC 0 ENL_DATA)))</p><p>(PROGN</p><p>......</p><p>)</p><p>)</p> 本帖最后由 作者 于 2007-6-15 15:55:08 编辑 <br /><br /> 其实有时候并不一定要编程，<br/>你用用express tools 中的 tcount看看，能否满足你的要求？ <br/>如果你有autocad r2008更好，里面就有这个功能了。<br/> <p>编号递增</p> <p>高手呀，我的CAD2004怎么没有express tools 呀，请指点，是不是的下载工具呀，我要能安顺序排号的就行LISP 。望高手帮助下。</p><p>邮箱：<a href="mailto:hxg84515@163.com">hxg84515@163.com</a> 多谢。</p>
页:
[1]