[求助]：将表内单个元素进行排序

ywqq · 发表于 2009-2-18 16:46:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

将表内单个元素进行排序，
(LIST 101 401 201 102A 305 601 102)
要求结果是 101 102 102A 201 305 401 601

qiaqiadeng · 发表于 2009-2-18 19:03:43

(vl-sort (LIST 101 401 201 102A 305 601 102) '< )

kmdz · 发表于 2009-2-18 22:48:52

2楼运行结果：(nil 101 102 201 305 401 601)，并且vl-sort会删除相同的元素。

ywqq · 发表于 2009-2-19 08:24:42

谢谢,
这个函数可以达到我的目的了.

fl202 · 发表于 2009-2-19 08:29:26

我更想知道有没有坐标排序的函数？

Underway · 发表于 2009-2-19 08:33:09

Command: (setq lst (LIST 101 401 201 102A 305 601 102))
(101 401 201 nil 305 601 102) ; 此路不通

Command: (setq (LIST 101 401 201 "102A" 305 601 102))
; error: An error has occurred ..... ; 此处没路

Command: (setq lst (LIST "101" "401" "201" "102A" "305" "601" "102"))
("101" "401" "201" "102A" "305" "601" "102")

Command: (acad_strlsort lst)
("101" "102" "102A" "201" "305" "401" "601")

wwwbxd · 发表于 2009-2-19 18:44:05

按 Y 坐标对二维点表排序：

命令： (vl-sort-i '((1 3) (2 2) (3 1))
(function (lambda (e1 e2)
(< (cadr e1) (cadr e2)) ) ) )
(2 1 0)

kmdz · 发表于 2009-2-22 12:49:34

5楼楼主说：
我更想知道有没有坐标排序的函数？

http://www.xdcad.net/forum/showthread.php?threadid=564276
http://www.xdcad.net/forum/showthread.php?threadid=563740

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

[求助] [求助]：将表内单个元素进行排序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子