社区 › AutoLISP/Visual LISP 编程技术 › [原创]精典排序函数：能根据X、Y条件对坐标表进行各种排序！(源代码哟)

阿霸jun 发表于 2012-12-21 16:45:23

正需求，谢谢楼主！

xiabin68 发表于 2012-12-21 19:13:47

顶一个，，，，，，，，

野狼谷/〈M〉 发表于 2013-5-27 19:21:29

sandy2002 发表于 2005-7-11 20:40 static/image/common/back.gif
楼上的真是AUTOLISP的铁杆FANS，不过用VLISP更简单，而且不用那么长的代码
(setq b '((1 3)(2 2)(1 1)(3 5) ...

(setq List1 '((3 11) (2 13) (1 13)(2 14) (3 10) (2 14) (3 11) (1 12)(4 12)))
(setq i 0)
(setq number 2)
(repeat        number
   (setq List1(mapcar '(lambda (x) (nth x List1))
             (vl-sort-i        List1
                        (function (lambda (e1 e2)
                                     (< (nth i e1) (nth i e2))
                                  )
                        )
             )
   )
)
   (setq i (1+ i))

)
List1

tender138 发表于 2013-11-2 10:13:17

谢谢！留个脚印

查看完整版本: [原创]精典排序函数：能根据X、Y条件对坐标表进行各种排序！(源代码哟)