社区 › 源码共享 › 简约而不简单

无痕 发表于 2007-9-27 20:37:00

测试了一下， 用ssnamex ss取选集列表效率并不高，虽然程序简短

小菜123 发表于 2007-12-2 14:42:00

是的，速度只有repeat+cons方法的十分之一

jxw221 发表于 2007-12-11 20:38:00

<p>我靠 严重支持</p><p></p>

welcome0511 发表于 2008-3-21 19:51:00

<font face="Courier New"><font color="#800080">;xex = 炸开嵌套块.-----by 无痕.2004.4<br/></font><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/defun.htm" target="_black"><font face="Courier New" color="#0000ff">defun</font></a><font face="Courier New">
                <font color="#0000ff"><b>c:xex</b></font>
                <font color="#ff0000">(</font><font color="#ff0000">)</font><br/>&nbsp;&nbsp; <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/princ.htm" target="_black"><font face="Courier New" color="#0000ff">princ</font></a><font face="Courier New">
                <font color="#ff00ff">"\n炸开嵌套块.--------------by 无痕.2004.4"</font><font color="#ff0000">)</font><br/>&nbsp;&nbsp; <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/setvar.htm" target="_black"><font face="Courier New" color="#0000ff">setvar</font></a><font face="Courier New">
                <font color="#ff00ff">"qaflags"</font>
                <font color="#008000">1</font><font color="#ff0000">)</font><br/>&nbsp;&nbsp; <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black"><font face="Courier New" color="#0000ff">setq</font></a><font face="Courier New"> ss <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/ssget.htm" target="_black"><font face="Courier New" color="#0000ff">ssget</font></a><font face="Courier New"> '<font color="#ff0000">(</font><font color="#ff0000">(</font><font color="#008000">0</font> . <font color="#ff00ff">"INSERT"</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><br/>&nbsp;&nbsp; <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/while.htm" target="_black"><font face="Courier New" color="#0000ff">while</font></a><font face="Courier New">
                <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/setq.htm" target="_black"><font face="Courier New" color="#0000ff">setq</font></a><font face="Courier New"> ss <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/ssget.htm" target="_black"><font face="Courier New" color="#0000ff">ssget</font></a><font face="Courier New">
                <font color="#ff00ff">"P"</font> '<font color="#ff0000">(</font><font color="#ff0000">(</font><font color="#008000">0</font> . <font color="#ff00ff">"INSERT"</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><br/>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black"><font face="Courier New" color="#0000ff">command</font></a><font face="Courier New">
                <font color="#ff00ff">".explode"</font> ss <font color="#ff00ff">""</font><font color="#ff0000">)</font><br/>&nbsp;&nbsp; <font color="#ff0000">)</font><font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/princ.htm" target="_black"><font face="Courier New" color="#0000ff">princ</font></a><font face="Courier New"><font color="#ff0000">)</font><br/><font color="#ff0000">)</font><br/>qaflags　这个系统变量值应该及时改回，否则许多命令的先选择后执行会失效！</font>

YDPLDL 发表于 2008-4-9 21:03:00

我也来顶一下

董堃 发表于 2008-4-28 19:42:00

支持

jj2098 发表于 2008-5-13 09:10:00

写得不错，可惜有点少

南无阿弥陀佛 发表于 2008-6-6 19:12:00

我也加一个

liangtianxi 发表于 2008-9-19 15:48:00

确实是简约而不简单啊，从中可以学习很多的精华啊！

backtooth 发表于 2008-12-23 11:11:00

非常简洁！！！支持。。。。

查看完整版本: 简约而不简单