图层名列表中的元素排序问题，请各位赐教！

caoyongjun

列表中的元素排序问题: DWG图中有图层名有如下 "DIE_1_PW" "DIE_2_PW""DIE_PW" "PH_1_PW"  "PH_PW" "PS_1_PW" "PS_2_PW"  "PS_PW"，怎么写个程序自动获取图层名列表的排序为：（"DIE_PW" "DIE_1_PW" "DIE_2_PW" "PS_1_PW" "PS_2_PW" "PS_PW"  "PH_PW" "PH_1_PW" ）

Andyhon

"DIE_PW" "DIE_1_PW" "DIE_2_PW"
"PS_1_PW" "PS_2_PW" "PS_PW"  
"PH_PW" "PH_1_PW"

还有更多图层吗?

若只此好办...

Bao_lai

针对你所讲的这种情况和规律。

2. 
   
3. (setq lst '("DIE_1_PW" "DIE_2_PW" "DIE_PW" "PH_1_PW"  "PH_PW" "PS_1_PW" "PS_2_PW"  "PS_PW"))
   
4. (setq lst0 (mapcar '(lambda (x)
   
5.         (if (not (wcmatch x "*_[0-9]_*"))
   
6.                 (progn
   
7.                         (setq p (vl-string-position (ascii "_") x))
   
8.                         (strcat (substr x 1 p) "_0_" (substr x (+ 2 p)))
   
9.                 )
   
10.                 x
    
11.         ))
    
12.         lst
    
13. ))
    
14. 
    
15. (mapcar '(lambda (x) (nth x lst)) (vl-sort-i lst0 '<))
    

<br /> (setq lst '("DIE_1_PW" "DIE_2_PW" "DIE_PW" "PH_1_PW"  "PH_PW" "PS_1_PW" "PS_2_PW"  "PS_PW"))<br /> (setq lst0 (mapcar '(lambda (x) <br />         (if (not (wcmatch x "*_[0-9]_*"))<br />                 (progn<br />                         (setq p (vl-string-position (ascii "_") x))<br />                         (strcat (substr x 1 p) "_0_" (substr x (+ 2 p)))<br />                 )<br />                 x<br />         ))<br />         lst<br /> ))<br /> <br /> (mapcar '(lambda (x) (nth x lst)) (vl-sort-i lst0 '<))<br />

Andyhon

Command: (mapcar '(lambda (x) (nth x lst)) (vl-sort-i lst0 '<))
("DIE_PW" "DIE_1_PW" "DIE_2_PW" "PH_PW" "PH_1_PW" "PS_PW" "PS_1_PW" "PS_2_PW")

察觉与诉求的排列不合