一个点表如何按照特定的规则来排序?求大师指点！

骑着蜗牛旅行666

我有一个点表(setq lst (vl-sort lst
(function (lambda (e1 e2)
(< (cadr e1) (cadr e2)))))) 上述代码中是一个常用由小到大排列的代码，其中 lst 是一个点表，cadr数据 中含有DY-01，DY-02…，…JD-01，JD-02……，LM-01，LM-02……等，ML-01,ML-02，ML-03……等，PM-01，PM-02……等，SM-01,SM-02……等，，按指定首位字母的顺序M，S，P，L，D，J，然后其他字母，排序，请问该如何修改成按指定字母顺序排列：排列顺序改成（ML-01,ML-02，ML-03……SM-01,SM-02……PM-01，PM-02……，LM-01，LM-02……DY-01，DY-02……JD-01，JD-02……）求大师指点，万分谢谢！！！！

mahuan1279

骑着蜗牛旅行666 发表于 2019-11-20 15:30
感谢大神，排序就是这个意思，如果这个表是个点集，又改如何来表示了？(setq lst '(（“说明1” "JD-02"  ...

_$ (setq lst '(("说明1" "JD-02" )("说明2" "JD-01" )("说明3" "DY-02" )("说明4" "DY-01" )("说明5" "LM-02" )("说明6" "LM-01")("说明7"  "PM-02")("说明8"  "PM-01")("说明9" "SM-02")("说明10"  "SM-01" )("说明11" "ML-03")("说明12" "ML-02")("说明13"  "ML-01")))  
(setq plst (vl-sort (vl-sort (mapcar 'cadr lst) '<)
                   '(lambda (e1 e2)
                            (if (= (substr e1 1 1) (substr e2 1 1))
                                (< (substr e1 2 4) (substr e2 2 4))
                                                (<
                                                                (vl-string-position (ascii (substr e1 1 1)) "MSPLDJ")
                                                                (vl-string-position (ascii (substr e2 1 1)) "MSPLDJ")
                                                            )
                                                )
                                        )
                    )
)
(setq vlst (mapcar '(lambda (x) (nth x lst)) (mapcar '(lambda (y) (/ (vl-position  y (apply 'append lst)) 2)) plst)))
(("说明1" "JD-02") ("说明2" "JD-01") ("说明3" "DY-02") ("说明4" "DY-01") ("说明5" "LM-02") ("说明6" "LM-01") ("说明7" "PM-02") ("说明8" "PM-01") ("说明9" "SM-02") ("说明10" "SM-01") ("说明11" "ML-03") ("说明12" "ML-02") ("说明13" "ML-01"))
("ML-01" "ML-02" "ML-03" "SM-01" "SM-02" "PM-01" "PM-02" "LM-01" "LM-02" "DY-01" "DY-02" "JD-01" "JD-02")
(("说明13" "ML-01") ("说明12" "ML-02") ("说明11" "ML-03") ("说明10" "SM-01") ("说明9" "SM-02") ("说明8" "PM-01") ("说明7" "PM-02") ("说明6" "LM-01") ("说明5" "LM-02") ("说明4" "DY-01") ("说明3" "DY-02") ("说明2" "JD-01") ("说明1" "JD-02"))
_$

mahuan1279

_$ (vl-string-position (ascii "M") "MSPLDJ")
0
_$ (vl-string-position (ascii "S") "MSPLDJ")
1
_$ (vl-string-position (ascii "P") "MSPLDJ")
2
_$ (vl-string-position (ascii "L") "MSPLDJ")
3
_$ (vl-string-position (ascii "D") "MSPLDJ")
4
_$ (vl-string-position (ascii "J") "MSPLDJ")
5
_$

mahuan1279

_$ (setq lst '("JD-02" "JD-01" "DY-02" "DY-01" "LM-02" "LM-01" "PM-02" "PM-01" "SM-02" "SM-01" "ML-03" "ML-02" "ML-01"))
(setq lst (vl-sort (vl-sort lst '<)
                   '(lambda (e1 e2)
                            (if (= (substr e1 1 1) (substr e2 1 1))
                                (< (substr e1 2 4) (substr e2 2 4))
                                                (<
                                                                (vl-string-position (ascii (substr e1 1 1)) "MSPLDJ")
                                                                (vl-string-position (ascii (substr e2 1 1)) "MSPLDJ")
                                                            )
                                                )
                                        )
                    )
)
("JD-02" "JD-01" "DY-02" "DY-01" "LM-02" "LM-01" "PM-02" "PM-01" "SM-02" "SM-01" "ML-03" "ML-02" "ML-01")
("ML-01" "ML-02" "ML-03" "SM-01" "SM-02" "PM-01" "PM-02" "LM-01" "LM-02" "DY-01" "DY-02" "JD-01" "JD-02")
_$

骑着蜗牛旅行666

mahuan1279 发表于 2019-11-20 10:09
_$ (setq lst '("JD-02" "JD-01" "DY-02" "DY-01" "LM-02" "LM-01" "PM-02" "PM-01" "SM-02" "SM-01" "ML-0 ...

感谢大神，排序就是这个意思，如果这个表是个点集，又改如何来表示了？(setq lst '(（“说明1” "JD-02" ）（“说明2” "JD-01" ）（“说明3” "DY-02" ）（“说明4” "DY-01" ）（“说明5” "LM-02" ）（“说明6” "LM-01"）（“说明7”  "PM-02"）（“说明8”  "PM-01"） （“说明9” "SM-02")（“说明10”  "SM-01" ）（“说明11” "ML-03"）（“说明12”  "ML-02"）（“说明13”  "ML-01") ) )                   如何再修改下，排序后的表为(（“说明13”  "ML-01") （“说明12”  "ML-02"） （“说明11” "ML-03"）（“说明10”  "SM-01" ）（“说明9” "SM-02")（“说明8”  "PM-01"）（“说明7”  "PM-02"）（“说明6” "LM-01"）（“说明5” "LM-02" ） （“说明4” "DY-01" ） （“说明3” "DY-02" ）（“说明2” "JD-01" ） （“说明1” "JD-02" ）)