兄弟，其实不用那么复杂，CAD有个函数可以达到你的目的(acad_strlsort list)
再改写一下
(defun sort (ls ...
(SETQ LST (LIST "2LB14-2-2""2LB24-2-1" "2LB2-2-1""2LB2-1" "2LB1-2"
"2LB1-2" "2LB2-2" "2LB2-2-1"
"2LB2-2-3" "2LB22-2-2"
))
(acad_strlsort LST)
("2LB1-2" "2LB1-2" "2LB14-2-2" "2LB2-1" "2LB2-2" "2LB2-2-1" "2LB2-2-1" "2LB2-2-3" "2LB22-2-2" "2LB24-2-1") 收藏了，谢谢分享学习
页:
1
[2]