[LISP函数]：Lisp数据表按第一项排序函数。。。

Gu_xl

;;;将 Lst 表中数据按第一项升序排序，Lst 表中数据按第一项类型要相同
;;;例如 (Sort-List-up '((1 3 5) (3 4 5) (2 3)))
;;;返回 ((1 3 5) (2 3) (3 4 5))
(defun Sort-List-up (Lst)
    (setq m (length Lst)
          n 0
          Lst1 '())
    (repeat m
        (setq Lst1 (cons (car (nth n Lst)) Lst1)
              n (1+ n)
              )
        );repeat
    (setq Lst1 (reverse Lst1))
    (setq Lst1 (vl-sort-i Lst1 '<))
    (setq Lst2 '()
          n 0)
    (repeat m
        (setq Lst2 (cons (nth (nth n Lst1) Lst) Lst2)
              n (1+ n)
              )
        );repeat
    (setq Lst2 (reverse Lst2))
             
       
    );defun Sort-List-up

;;;将 Lst 表中数据按第一项降序排序，Lst 表中数据按第一项类型要相同
;;;例如 (Sort-List-Down '((1 3 5) (3 4 5) (2 3)))
;;;返回 ((3 4 5) (2 3) (1 3 5))
(defun Sort-List-Down (Lst / Lst1 Lst2 m n)
    (setq m (length Lst)
          n 0
          Lst1 '())
    (repeat m
        (setq Lst1 (cons (car (nth n Lst)) Lst1)
              n (1+ n)
              )
        );repeat
    (setq Lst1 (reverse Lst1))
    (setq Lst1 (vl-sort-i Lst1 '>))
    (setq Lst2 '()
          n 0)
    (repeat m
        (setq Lst2 (cons (nth (nth n Lst1) Lst) Lst2)
              n (1+ n)
              )
        );repeat
    (setq Lst2 (reverse Lst2))
             
       
    );defun Sort-List-up