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

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

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

1) 用AutoLISP实现的代码:

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

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

这个比上面的应该好多了，而且还是通用函数。。。 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 · 发表于 2004-4-2 20:41

这个程序也不错,只可惜只能对一维表排序. (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

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

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

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

无痕 · 发表于 2004-4-2 21:05

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

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

yxp · 发表于 2004-4-2 21:44

sorry,我菜鸟嘛.

yxp · 发表于 2004-4-2 21:50

谢谢,太精辟了.致敬.

王咣生 · 发表于 2004-4-5 09:31

收获的...

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

ok