排序字符串表

marting

1. (defun mysort ( l )
   
2.     (mapcar '(lambda ( n ) (nth n l))
   
3.         (vl-sort-i (mapcar '(lambda ( x ) (read (strcat "(" (vl-string-subst " " "x" (cadr x)) ")"))) l)
   
4.            '(lambda ( a b )
   
5.                 (if (= (car  a) (car  b))
   
6.                     (< (cadr a) (cadr b))
   
7.                     (< (car  a) (car  b))
   
8.                 )
   
9.             )
   
10.         )
    
11.     )
    
12. )
    

(defun mysort ( l )<br />     (mapcar '(lambda ( n ) (nth n l))<br />         (vl-sort-i (mapcar '(lambda ( x ) (read (strcat "(" (vl-string-subst " " "x" (cadr x)) ")"))) l)<br />            '(lambda ( a b )<br />                 (if (= (car  a) (car  b))<br />                     (< (cadr a) (cadr b))<br />                     (< (car  a) (car  b))<br />                 )<br />             )<br />         )<br />     )<br /> )<br />

_$ (mysort the_list)
(
    ("Right Beam"    "45x35")
    ("Right Beam"    "55x25")
    ("Bottom Beam" "100x175")
    ("Bottom Beam" "100x200")
    ("Left Beam"   "150x200")
    ("Left Beam"   "200x100")
    ("Top Beam"    "200x150")
    ("Bottom Beam"  "225x75")
)