[求助]：如何实现由字符、数字组成的字符串表的排序。

hewb

("KL2a(2)" "KL8" "KL2(3)" "KL21a" "KL21(2)" "KL1(1)" "KL11(1)")经过排序处理后，变成
("KL1(1)" "KL2(3)" "KL2a(2)" "KL8" "KL11(1)" "KL21(2)" "KL21a")

雨箭风刀

(acad_strlsort list)

littlecong

问个体外话
为什么会有几个（只有几个）函数的名字是以acad开头的，有什么典故吗？

hewb

(acad_strlsort '("KL2a(2)" "KL8" "KL2(3)" "KL21a" "KL21(2)" "KL1(1)" "KL11(1)"))
返回
("KL1(1)" "KL11(1)" "KL2(3)" "KL21(2)" "KL21a" "KL2a(2)" "KL8")

"KL11(1)在KL2(3)的前面，不符合要求。

数字是KL的编号，要求序号大的排在后面，请教各位高人如何实现?

wuzz

各种语言排序函数的排序标准是基于你自己的系统设置的(在控制面板区域和语言选项里)

懒虫

2. 
   
3. (setq lis    '("KL1(1)"        "KL2(3)" "KL2a(2)" "KL8" "KL11(1)" "KL21(2)"
   
4.                "KL21a")
   
5.       lis    (mapcar '(lambda (x) (vl-string-subst "z" "(" x)) lis)
   
6.       lis    (acad_strlsort lis)
   
7.       sorlis (vl-sort-i
   
8.                lis
   
9.                (function (lambda (e1 e2)
   
10.                            (< (atof (substr e1 3)) (atof (substr e2 3)))
    
11.                          )
    
12.                )
    
13.              )
    
14.       newlis '()
    
15. )
    
16. (foreach tem sorlis
    
17.   (setq newlis (cons (nth tem lis) newlis))
    
18. )
    
19. (setq newlis (mapcar '(lambda (x) (vl-string-subst "(" "z" x)) newlis))
    
20. (princ (reverse newlis))

<br /> (setq lis    '("KL1(1)"        "KL2(3)" "KL2a(2)" "KL8" "KL11(1)" "KL21(2)"<br />                "KL21a")<br />       lis    (mapcar '(lambda (x) (vl-string-subst "z" "(" x)) lis)<br />       lis    (acad_strlsort lis)<br />       sorlis (vl-sort-i<br />                lis<br />                (function (lambda (e1 e2)<br />                            (< (atof (substr e1 3)) (atof (substr e2 3)))<br />                          )<br />                )<br />              )<br />       newlis '()<br /> )<br /> (foreach tem sorlis<br />   (setq newlis (cons (nth tem lis) newlis))<br /> )<br /> (setq newlis (mapcar '(lambda (x) (vl-string-subst "(" "z" x)) newlis))<br /> (princ (reverse newlis))

hewb

谢谢，阿虫。
排序后，再排序。有以下问题：
1）为何一定要将“（”改为“Z“？
2）如果KL的编号是3位数且带有a、b等脚标又如何处理？嵌套排序？

懒虫

问题一：括号换z 是为了控制 KL2(3)  KL2a(2)等的顺序。
注：这么做不合适，有b就乱了，不改括号，reverse一下就可以了.
问题二：先把没角标的换成KL0，这样和KLa KLb等位数相同就可以了，把“(< (atof (substr e1 3)) (atof (substr e2 3)))”里的3改成4
如果是KL LL CL等，就麻烦点了，提取前2~3为，再形成顺序表，再排。
如果数量多就要注意了，速度会很慢，要改造这部分：
(foreach tem sorlis
  (setq newlis (cons (nth tem lis) newlis))
)

biechen

http://www.xdcad.net/forum/showthread.php?threadid=572267
这里也许有你想要的