关于排序问题，请高手指教

phoenixdjq

用vl-SORT 函数排序，系统内置的方法，应该是1,10,11......19,2,20这样的排序

有没有办法按照1,2,3,4,5这样来排序

另外
哪位大神有先按照x后按照y的坐标值进行排序的函数(通俗的讲，很多行的实体坐标，就是先横向排序，后纵向排序)

花开富贵

;|对于第一个问题，
lst是字符或者是数字
|;
(vl-sort lst
        '(lambda(e1 e2)
                 (<= (trans2Num e1) (trans2Num e2) )
         )
)

(defun trans2Num(a)
        (if(= 'STR (type a))
                (atof a)
                a
        )
)

dcl1214

用文字的长度法排序，结果一定是对的，如果搞不定，我给你示例

飞雪神光

你这个 1,2,3,4,5 是什么类型的数据 数字表还是 文字表  还有论坛上有黄大师优化的排序函数

花开富贵

;;;lst是点坐标组成的列表
(vl-sort lst
        '(lambda(e1 e2)
                 (or
                         (and (> (cadr e1) (cadr e2)) (not(equal (cadr e1) (cadr e2) 0.001)) )
                         (and (equal (cadr e1) (cadr e2) 0.001) (< (car e1) (car e2)))
                 )
         )
)

xyp1964

(vl-sort '(1 10 11 12 13 14 15 16 17 18 19 2 20) '<)


(vl-sort ptn '(lambda (x y)
            (cond ((and (= (car x) (car y)) (< (cadr x) (cadr y)) t))
                  ((< (car x) (car y)) t)                  
            )
          )
)

菜卷鱼

内置函数假如是数字，会按1，2，3，4，5排序
只有字符串才是你说的结果

phoenixdjq

感谢大家的帮助，我试一下