如何对指定样式的表排序

cdma2546

例如有如下元素的表（点 数字）
（（120 135 0） 123） （（119 135 0） 146） （（125 135 0） 133）
如何按照点的X、Y排序以上表即
（（119 135 0） 146）  （（120 135 0） 123）  （（125 135 0） 133）
谢谢高手赐教！

ll_j

1. (defun tt(lst)
   
2.   (vl-sort lst '(lambda(x y) (< (caar x) (caar y))))
   
3. )

(defun tt(lst)<br />   (vl-sort lst '(lambda(x y) (< (caar x) (caar y))))<br /> )

_$ (tt '(((120 135 0) 123) ((119 135 0) 146) ((125 135 0) 133)))
(((119 135 0) 146) ((120 135 0) 123) ((125 135 0) 133))

cdma2546

谢谢 楼上！