[函数]排序如图所示

aaddff · 发表于 2004-1-6 13:04:00

h5jrpfxmebi.gif

请问能不能如图示代号排序

meflying · 发表于 2004-1-6 13:17:00

先按Y排序，再按X排序

aaddff · 发表于 2004-1-6 14:09:00

我是那样做的，但那样代号2就在图示4的位置了

aaddff · 发表于 2004-1-6 14:13:00

飞哥，请看：
我是这样的
(setq ss(vl-sort ss '(lambda (x y)(< (cadr x)(cadr y)))))
(setq ss(vl-sort ss '(lambda (x y)(< (car x)(car y)))))
请指教！！！

meflying · 发表于 2004-1-6 15:05:00

搞错了，反过来

aaddff · 发表于 2004-1-6 16:16:00

好了，飞哥，thank you!

huiyin · 发表于 2004-3-20 13:54:00

请问可把你的程序共用吗，谢谢！

yxp · 发表于 2004-3-21 20:58:00

我也需要.
请问不用扩展函数能实现二维坐标的排序吗?
我想应该可以,只不过没有数组功能的lisp排序就是有些麻烦.

meflying · 发表于 2004-3-22 08:03:00