[求助]请教关于VL-SORT排序丢失元素的问题！
本帖最后由 作者 于 2009-1-4 9:55:28 编辑 <br /><br /> <p>我想将一组(x y z)坐标的串行按照先x从小到大，再z从小到大，最后y从小到大的顺序排序。<br/>我用以下方法排序：<br/>(setq vllst (vl-sort lst '(lambda (p1 p2)<br/> (cond <br/> ((/= (car p1) (car p2))(< (car p1) (car p2)))<br/> ((and (= (car p1) (car p2)) (/= (caddr p1) (caddr p2))) (< (caddr p1) (caddr p2)))<br/> ((and (= (car p1) (car p2)) (= (caddr p1) (caddr p2))(/= (cadr p1) (cadr p2)))(< (cadr p1) (cadr p2)))<br/> (T NIL)<br/> ))))</p><p>串行元素少的情况下排序正常，为什么元素一多，排序后就会少很多元素？</p><p>如下面的例子，排序前有25个元素，排序后始终只有18个，总要丢掉几个，我的串行里没有重复的元素啊。</p><p>请高手帮我看看我的程序是不是有问题，或者哪位高手帮我写一段解决下我的问题。</p><p>论坛的关于排序的帖子我都看了好几遍了，高手们提供了很多方法，但我始终没找到一个适合我这种情况的，要么就是只能单一的按x或者y排序，要么就有些我调试通不过，要么就没有源码。</p><p>程序如下：</p><p>(defun c:px()</p><p>(setq lst<br/>'((12 300.000 -400.000)<br/> (16 400.000 -300.000)<br/> (16 400.000 -400.000) <br/>(12 300.000 -300.000)<br/> (4 100.000 -400.000) <br/>(8 200.000 -300.000) <br/>(1 0.000000 300.000)<br/> (1 0.000000 400.000)<br/> (8 200.000 -400.000) <br/>(4 100.000 -300.000) <br/>(12 300.000 -200.000)<br/> (12 300.000 0)<br/> (16 400.000 -100.000) <br/>(16 400.000 0) <br/>(16 400.000 -200.000)<br/> (12 300.000 -100.000)<br/> (4 100.000 -200.000)<br/> (4 100.000 0) <br/>(8 200.000 -100.000) <br/>(1 0.000000 100.000)<br/> (8 200.000 0)<br/> (1 0.000000 200.000) <br/>(8 200.000 -200.000)<br/> (4 100.000 -100.000)<br/> (1 0.000000 0))<br/>)</p><p>(setq vllst (vl-sort lst '(lambda (p1 p2)<br/> (cond <br/> ((/= (car p1) (car p2))(< (car p1) (car p2)))<br/> ((and (= (car p1) (car p2)) (/= (caddr p1) (caddr p2))) (< (caddr p1) (caddr p2)))<br/> ((and (= (car p1) (car p2)) (= (caddr p1) (caddr p2))(/= (cadr p1) (cadr p2)))(< (cadr p1) (cadr p2)))<br/> (T NIL)<br/> )<br/> )<br/> )<br/> )</p><p>(princ "\n")(princ "排序前共")(princ (LENGTH lst))(princ "个元素,分别为：")(princ lst)(princ "\n")<br/>(princ "\n")(princ "排序后共")(princ (LENGTH vllst))(princ "个元素,分别为：")(princ vllst)(princ "\n")<br/>)<br/></p>
页:
[1]