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

阿霸jun

正需求，谢谢楼主！

xiabin68

顶一个，，，，，，，，

野狼谷/〈M〉

sandy2002 发表于 2005-7-11 20:40
楼上的真是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

谢谢！留个脚印