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

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" ）

kozmosovia

2. (setq lst '("PS_2_PW"         "DDD-1"      "DIE_1_PW"   "PS_PW"
   
3.             "PH_PW"         "DIE_PW"     "PH_1_PW"           "DIE_2_PW"
   
4.             "DDD-34"         "PS_1_PW"
   
5.            )
   
6. )
   
7. (setq lst< '("DIE" "PS" "PH"))
   
8. (foreach abc lst
   
9.   (or (vl-position
   
10.         t
    
11.         (mapcar
    
12.           '(lambda (x) (wcmatch abc (strcat x "*")))
    
13.           lst<
    
14.         )
    
15.       )
    
16.       (setq lst2 (cons abc lst2))
    
17.   )
    
18. )
    
19. (append
    
20.   (apply
    
21.     'append
    
22.     (mapcar
    
23.       '(lambda (a / l)
    
24.          (if (setq l (vl-remove-if-not
    
25.                        '(lambda (b) (wcmatch b (strcat a "*")))
    
26.                        lst
    
27.                      )
    
28.              )
    
29.            (vl-sort l
    
30.                     '(lambda (c d / an)
    
31.                        (setq an (+ (strlen a) 2))
    
32.                        (< (atoi (substr c an 1)) (atoi (substr d an 1)))
    
33.                      )
    
34.            )
    
35.          )
    
36.        )
    
37.       lst<
    
38.     )
    
39.   )
    
40.   (reverse lst2)
    
41. )
    

(setq lst '("PS_2_PW"         "DDD-1"      "DIE_1_PW"   "PS_PW"<br />             "PH_PW"         "DIE_PW"     "PH_1_PW"           "DIE_2_PW"<br />             "DDD-34"         "PS_1_PW"<br />            )<br /> )<br /> (setq lst< '("DIE" "PS" "PH"))<br /> (foreach abc lst<br />   (or (vl-position<br />         t<br />         (mapcar<br />           '(lambda (x) (wcmatch abc (strcat x "*")))<br />           lst<<br />         )<br />       )<br />       (setq lst2 (cons abc lst2))<br />   )<br /> )<br /> (append<br />   (apply<br />     'append<br />     (mapcar<br />       '(lambda (a / l)<br />          (if (setq l (vl-remove-if-not<br />                        '(lambda (b) (wcmatch b (strcat a "*")))<br />                        lst<br />                      )<br />              )<br />            (vl-sort l<br />                     '(lambda (c d / an)<br />                        (setq an (+ (strlen a) 2))<br />                        (< (atoi (substr c an 1)) (atoi (substr d an 1)))<br />                      )<br />            )<br />          )<br />        )<br />       lst<<br />     )<br />   )<br />   (reverse lst2)<br /> )<br />

xtjd

(setq lst '("PS_2_PW" "DIE_1_PW" "PS_PW" "PH_PW" "DIE_PW" "PH_1_PW" "DIE_2_PW" "PS_1_PW"))
(setq lst< '("DIE" "PS" "PH"))

(apply
  'append
  (mapcar
    '(lambda(a / l)
       (if(setq l(vl-remove-if-not '(lambda(b)(wcmatch b(strcat a "*")))lst))
         (vl-sort l
           '(lambda(c d / an)
              (setq an(+(strlen a)2))
              (<(atoi(substr c an 1))(atoi(substr d an 1)))
            )
         )
       )
     )
    lst<
  )
)

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

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

还有更多图层吗?

若只此好办...

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")

察觉与诉求的排列不合

kozmosovia

如果图名名称都是死的，何必读取排序，直接按照自己需要的顺序定义一个变量就行了。

caoyongjun

Bao_lai 发表于 2024-9-22 21:51
针对你所讲的这种情况和规律。

感谢回应，试后的结果还差点，ph开头的图层名能不能给我排到PS开的图层名后面去吧，（"DIE_PW" "DIE_1_PW" "DIE_2_PW" "PS_1_PW" "PS_2_PW" "PS_PW"  "PH_PW" "PH_1_PW" ）

Bao_lai

caoyongjun 发表于 2024-9-24 20:50
感谢回应，试后的结果还差点，ph开头的图层名能不能给我排到PS开的图层名后面去吧，（"DIE_PW" "DIE_1_PW ...

感觉你这个没有很大的规律，如果图层不多，建议按楼上，定义一变量表，按这个变量表来排序。
或者你再扩大一些数据或者说明，大家帮你找一下规律和方法。

caoyongjun

Bao_lai 发表于 2024-9-24 22:13
感觉你这个没有很大的规律，如果图层不多，建议按楼上，定义一变量表，按这个变量表来排序。
或者你再扩 ...

现在只要把ph开头的图层名排在PS开头的图层名后面就行了。

caoyongjun

xtjd 发表于 2024-9-26 07:58
(setq lst '("PS_2_PW" "DIE_1_PW" "PS_PW" "PH_PW" "DIE_PW" "PH_1_PW" "DIE_2_PW" "PS_1_PW"))
(setq ls ...

非常感谢！