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