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

王咣生 · 发表于 2004-4-1 11:59:00

按 X, Y, Z 排序坐标表(AutoLISP, VisualLISP解决方案):
1) 用AutoLISP实现的代码:
2) 用VisualLISP(vl-sort函数)实现的代码:

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

meflying · 发表于 2004-4-1 12:47:00

这个比上面的应该好多了，而且还是通用函数。。。

yxp · 发表于 2004-4-2 20:41:00

这个程序也不错,只可惜只能对一维表排序.
(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 · 发表于 2004-4-2 21:03:00

这个程序好象就是我的链接里的一个程序，不过作者将它删了。。。
如果你知道VL扩展函数vl-sort的用法，你就不会这么说了（只适用一维），任意列表都可以适用的，只是你不会用罢了。。。
(xl_sort '((1 3 4) (5 6 3) (3 4 2) (2 3 6)) (lambda(e1 e2) (< (car e1) (car e2))))