表的"另类"多重排序

eachy

1. (defun sortm (lst)
   
2.   (mapcar 'read
   
3.           (acad_strlsort (mapcar 'vl-princ-to-string lst))
   
4.   )
   
5. )
   

(defun sortm (lst)<br />   (mapcar 'read<br />           (acad_strlsort (mapcar 'vl-princ-to-string lst))<br />   )<br /> )<br />

子表中如含有String 需另加代码处理！

st788796

转为string就是按“位”排序了，不管子表长度均由第一元素起始逐一优先排序，很巧妙

对点表先X后Y排序可以用这个替代vl-sort方法

1. (vl-sort pts
   
2.                '(lambda (p1 p2)
   
3.                    (if (equal (cadr p1) (cadr p2) fuzz)
   
4.                        (< (car p1) (car p2))
   
5.                        (< (cadr p1) (cadr p2))
   
6.                     )
   
7.                  )
   
8. )

(vl-sort pts<br />                '(lambda (p1 p2)<br />                    (if (equal (cadr p1) (cadr p2) fuzz)<br />                        (< (car p1) (car p2))<br />                        (< (cadr p1) (cadr p2))<br />                     )<br />                  )<br /> )

(sortm pts)等同于没有误差的由左下起始的一个按列排

/db_自贡黄明儒_

有创意，顶—个

redcat2012

可以参照这个帖子{:soso_e100:}表排序

st788796

楼主这个可以比较子表等长的表
转贴 aeo000000

1. ;;自己判断是 '( ()()()...)
   
2. (defun test (lst)
   
3.   (vl-sort lst '(lambda (x y) (= (test0 x y) -1)))
   
4. )
   
5. ;;相等时长度长的大    返回： 等 0  大 1  小 -1
   
6. (defun test0 (lst1 lst2 / len r x y)
   
7.   (setq len (- (length lst1) (length lst2)))
   
8.   (setq r 0)
   
9.   (mapcar '(lambda (x y)
   
10.              (if (= r 0)
    
11.                (setq r (cond ((= x y) 0)
    
12.                              ((> x y) 1)
    
13.                              (t -1)
    
14.                        )
    
15.                )
    
16.              )
    
17.            )
    
18.           lst1
    
19.           lst2
    
20.   )
    
21.   (if (= r 0)
    
22.     (setq r (cond ((> len 0) 1)
    
23.                   ((= len 0) 0)
    
24.                   (t -1)
    
25.             )
    
26.     )
    
27.   )
    
28.   r
    
29. )

;;自己判断是 '( ()()()...)<br /> (defun test (lst)<br />   (vl-sort lst '(lambda (x y) (= (test0 x y) -1)))<br /> )<br /> ;;相等时长度长的大    返回： 等 0  大 1  小 -1<br /> (defun test0 (lst1 lst2 / len r x y)<br />   (setq len (- (length lst1) (length lst2)))<br />   (setq r 0)<br />   (mapcar '(lambda (x y)<br />              (if (= r 0)<br />                (setq r (cond ((= x y) 0)<br />                              ((> x y) 1)<br />                              (t -1)<br />                        )<br />                )<br />              )<br />            )<br />           lst1<br />           lst2<br />   )<br />   (if (= r 0)<br />     (setq r (cond ((> len 0) 1)<br />                   ((= len 0) 0)<br />                   (t -1)<br />             )<br />     )<br />   )<br />   r<br /> )