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

[函数]排序如图所示


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

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

yxp发表于2004-3-21 20:58:00static/image/common/back.gif我也需要.



请问不用扩展函数能实现二维坐标的排序吗?


我想应该可以,只不过没有数组功能的lisp排序就是有些麻烦.

<FONT style="BACKGROUND-COLOR: #f3f3f3"><A href="dispbbs.asp?boardID=3&amp;ID=18160&amp;page=1" target="_blank" >dispbbs.asp?boardID=3&amp;ID=18160&amp;page=1</A></FONT><BR>
页: [1]
查看完整版本: [函数]排序如图所示