carrot1983
发表于 2008-11-26 09:51:00
[原创]一些自己开发的小工具
本帖最后由 作者 于 2008-11-26 22:16:23 编辑 <br /><br /> <p>命令:cz或chanzhuang</p><p>功能：产状标示（具体我也不太懂，是帮别人写的）</p><p></p><p>大家可以到我的网盘上下载最新版本，如果使用过程有啥问题，可以直接提出来。。。</p><p>我会将修改后的新版传到我的网盘上。。。</p><p><a href="http://carrot1983.ys168.com/">http://carrot1983.ys168.com/</a></p>
carrot1983
发表于 2008-11-26 09:55:00
<p>命令：tbl或textbreakline</p><p></p>
carrot1983
发表于 2008-11-26 09:58:00
本帖最后由 作者 于 2008-11-26 9:59:45 编辑 <br /><br /> <p>命令：ri或replaceinsert</p><p> </p><p></p>
carrot1983
发表于 2008-11-26 10:02:00
本帖最后由 作者 于 2008-11-26 22:17:26 编辑 <br /><br /> <p>命令:po</p><p></p>
carrot1983
发表于 2008-11-26 10:05:00
<p>命令:ao或AlignObject</p><p> </p><p></p><p> </p>
carrot1983
发表于 2008-11-26 10:07:00
本帖最后由 作者 于 2008-11-26 22:14:54 编辑 <br /><br /> <p>命令：bjss</p><p>功能：板筋（多段线）动态伸缩</p><p></p><p></p>
carrot1983
发表于 2008-11-26 10:10:00
<p><font size="2">圆桩变方桩：</font></p><p><font size="2">问哈各位高手有没有办法把圆350直径的改成正方形的边长是350的 <br/></font></p><p><font face="宋体" color="#000000" style="FONT-SIZE: 10pt;"><br/>(defun c:tt ()<br/> (setq ss (ssget '((0 . "circle"))))<br/> (setq i 0)<br/> (while (< i (sslength ss))<br/> (setq e (ssname ss i))<br/> (setq pt (cdr (assoc 10 (entget e))))<br/> (command "._polygon" "4" "none" pt "c" "none" (polar pt 0 (* 0.5 350)))<br/> (entdel e)<br/> (setq i (1+ i))<br/> )<br/> (princ)<br/>)</font></p>
carrot1983
发表于 2008-11-26 10:13:00
<p>命令：ga</p><p>功能：提取块中的属性</p><p></p>
carrot1983
发表于 2008-11-26 10:16:00
<p>命令:bi</p><p>功能：插入块</p><p></p><p></p><p></p><p></p><p></p>
carrot1983
发表于 2008-11-26 10:21:00
<p>命令:fo或findout</p><p> </p><p></p>