按 X, Y, Z 排序坐标表(AutoLISP, VisualLISP解决方案):

王咣生

按 X, Y, Z 排序坐标表(AutoLISP, VisualLISP解决方案):


                 1) 用AutoLISP实现的代码:






                 2) 用VisualLISP(vl-sort函数)实现的代码:

meflying

这个比上面的应该好多了，而且还是通用函数。。。 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=9546
http://www.mjtd.com/bbs/dispbbs.asp?boardid=3&star=2&replyid=6129&id=18160&skin=0&page=1

yxp

这个程序也不错,只可惜只能对一维表排序. (defun c:px(/ ab)
(setq ab (list 2 5 -5 3 9 1 5 0))
(xl_sort ab >)
) (defun xl_sort (lst fun / k nlst lst2)
(foreach n lst
(setq k T
lst2 (apply 'append (mapcar '(lambda (x)
(if (and K ((eval fun) n x))
(progn (setq k nil) (list n x))
(list x))) nlst))
nlst (if K (append lst2 (list n)) lst2)))
)

meflying

这个程序好象就是我的链接里的一个程序，不过作者将它删了。。。


如果你知道VL扩展函数vl-sort的用法，你就不会这么说了（只适用一维），任意列表都可以适用的，只是你不会用罢了。。。


(xl_sort '((1 3 4) (5 6 3) (3 4 2) (2 3 6)) (lambda(e1 e2) (< (car e1) (car e2))))

无痕

老兄，贴我的程序怎么也不在程序中声明一下？


一维弄好了，多维排序还不好办么？

yxp

sorry,我菜鸟嘛.

yxp

谢谢,太精辟了.致敬.

王咣生

收获的...