mico_ye 发表于 2008-5-13 17:30:00

选择集中排序的问题

<p>在图面中选择所有圆后 (setq cir (ssget "x" '((0 . circle)))) 想对选择集中的所有圆按直径大小进行排序，</p><p>目的是想下一步的坐标列表标注时使想同直径的孔标在一起。如不然的话标注的顺序只能按作图的先后</p><p>顺序标出来了。求求各位高手帮帮忙。谢谢!!</p>

英雄无敌 发表于 2008-5-14 08:44:00

<p>用vl-sort函数</p>

mico_ye 发表于 2008-5-14 11:21:00

<p><strong><font face="Verdana" color="#61b713">英雄无敌</font></strong></p><p><strong><font face="Verdana" color="#61b713">老兄，麻烦你帮我小编一个好吗，我是新手，编了出几天了没编出来。</font></strong></p><p><strong><font face="Verdana" color="#61b713">小妹在这先有礼了。谢谢!</font></strong></p>

英雄无敌 发表于 2008-5-14 15:02:00

英雄无敌 发表于 2008-5-14 16:17:00

<p><font face="Courier New" color="#ff0000">(</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"> ret <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/append.htm" target="_black"><font face="Courier New" color="#0000ff">append</font></a><font face="Courier New"> ret <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black"><font face="Courier New" color="#0000ff">list</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/cdr.htm" target="_black"><font face="Courier New" color="#0000ff">cdr</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">
                        <font color="#008000">0</font> x<font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><br/>应改为</font></p><p><font face="Courier New" color="#ff0000">(</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"> ret <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/append.htm" target="_black"><font face="Courier New" color="#0000ff">append</font></a><font face="Courier New"> ret <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/list.htm" target="_black"><font face="Courier New" color="#0000ff">list</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/cdr.htm" target="_black"><font face="Courier New" color="#0000ff">cdr</font></a><font face="Courier New">
                        <font color="#ff0000">(</font></font><a href="http://www.mjtd.com/object/autolisp/assoc.htm" target="_black"><font face="Courier New" color="#0000ff">assoc</font></a><font face="Courier New">&nbsp;<font color="#008000">-1</font> x<font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><font color="#ff0000">)</font><br/></font></p>

mico_ye 发表于 2008-5-15 16:18:00

<p><strong><font face="Verdana" color="#61b713">英雄大哥</font></strong></p><p><strong><font face="Verdana" color="#61b713">&nbsp;谢谢了呀!下次还可以帮忙吗？</font></strong></p>

英雄无敌 发表于 2008-5-15 21:07:00

<p>你问了，肯定会有人帮你的，只要能帮的。</p>

英雄无敌 发表于 2008-5-15 21:09:00

你问了，肯定会有人帮你的，只要是会的。

mico_ye 发表于 2008-5-16 13:05:00

<p>谢谢。再问：在选择集中怎么实现双条件排序呀？</p><p>比如在(setq cir (ssget "x" '((0 . circle)))) 中先对直径再对线型进行排序。</p><p>请教了。</p>

英雄无敌 发表于 2008-5-16 16:24:00

线型能排序吗？我也不知道，你用两次vl-sort不就行了，（如果能排的话),排的条件是什么？
页: [1] 2
查看完整版本: 选择集中排序的问题