Angel1995 发表于 2013-6-25 16:19:42

对表排序问题

(SETQ LST '(((1 5 0) 30) ((0 6 0) 80) ((3 5 0) 50)((2 5 0) 40)))

排序后:

(SETQ LST '(((0 6 0) 80)((1 5 0) 30)((2 5 0) 40)((3 5 0) 50)))



Andyhon 发表于 2013-6-25 17:02:46

(vl-sort Lst
       (function
           (lambda (e1 e2)
             (< (caar e1) (caar e2))
           )
       )
)
页: [1]
查看完整版本: 对表排序问题