社区 › AutoLISP/Visual LISP 编程技术 › 排序问题, X从小到大X相同时Y从大到小排序怎么写？

绝情一剑 发表于 2015-6-19 16:37:00

排序问题, X从小到大X相同时Y从大到小排序怎么写？

点表（(1 2 3)(3 2 1).....))要求点表按X从小到大排序，X相同的按Y从大到小排序，怎么写？

qinleilei 发表于 2015-6-19 17:37:36

本帖最后由 qinleilei 于 2015-6-19 17:42 编辑

你一下子发这么多的铁,你觉得好么? 流氓霸屏,关于排序的帖子 就在这一页就有了.我不知道你要找什么去
图片最下面的那个

edata 发表于 2015-6-19 17:41:45

(vl-sort '((1 3) (2 2)(2 3)(2 4) (3 1))
             (function (lambda (e1 e2)
                         (if(equal (car e1) (car e2) 1e-8) (> (cadr e1) (cadr e2))(< (car e1) (car e2)) )) ))

查看完整版本: 排序问题, X从小到大X相同时Y从大到小排序怎么写？