关于排序问题，请高手指教
用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
)
) 用文字的长度法排序，结果一定是对的，如果搞不定，我给你示例 你这个 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 于 2023-9-3 22:47 编辑
(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排序
只有字符串才是你说的结果 感谢大家的帮助，我试一下
页:
[1]