[求助]表的处理

jeike456

请教大家，我要怎样才能从这个表

'((DWGNO "MOLD1")

 

(3HRC "HRC 60-62")

(3MAT "SKD11")

(3THICK 40)

 

(2HRC "HRC 56-58")

(2MAT "Cr12")

(2THICK 30)

 

(1HRC "/")

(1MAT "45#")

(1THICK 20)

 

(MBNUMBER 3)

 

(MBLIST "3#2#1#")

 

)

 

拆分得到下面的表呢

(setq mb_list   '("1"         "2"                    "3") )

(setq thick_list '( 20         30                    40))

(setq mat_list  '( "45#"   "Cr12"              "SKD11" ))

(setq hrc_list   '("/"        "HRC 56-58"     "HRC 60-62))

 

xshrimp

3. (setq lst '((DWGNO "MOLD1")
4. (3HRC "HRC 60-62") (3MAT "SKD11") (3THICK 40) (2HRC "HRC 56-58")(2MAT "Cr12")
5. (2THICK 30) (1HRC "/")   (1MAT "45#")  (1THICK 20) (MBNUMBER 3) (MBLIST "3#2#1#")
6.       )
7. )
8. (mapcar '(lambda(x)(cadr (assoc x lst))) '(1THICK 2THICK 3THICK))
9. (mapcar '(lambda(x)(cadr (assoc x lst))) '(1MAT 2MAT 3MAT) )
10. (mapcar '(lambda(x)(cadr (assoc x lst))) '(1HRC 2HRC 3HRC ) )
11. (setq txt (cadr (assoc 'MBLIST lst)))
12. (while (vl-string-search "#" txt )
13.   (setq txt (vl-string-subst "" "" "#" txt))
14. )
15. (setq txt (read (strcat "(""   txt "")")))

(setq lst '((DWGNO "MOLD1") (3HRC "HRC 60-62") (3MAT "SKD11") (3THICK 40) (2HRC "HRC 56-58")(2MAT "Cr12") (2THICK 30) (1HRC "/")   (1MAT "45#")  (1THICK 20) (MBNUMBER 3) (MBLIST "3#2#1#")       ) ) (mapcar '(lambda(x)(cadr (assoc x lst))) '(1THICK 2THICK 3THICK)) (mapcar '(lambda(x)(cadr (assoc x lst))) '(1MAT 2MAT 3MAT) ) (mapcar '(lambda(x)(cadr (assoc x lst))) '(1HRC 2HRC 3HRC ) ) (setq txt (cadr (assoc 'MBLIST lst))) (while (vl-string-search "#" txt )   (setq txt (vl-string-subst "" "" "#" txt)) ) (setq txt (read (strcat "(""   txt "")")))

下面的自己处理吧.

jeike456

谢谢，真利害，再次请教，要是这一句(mapcar '(lambda(x)(cadr (assoc x lst))) '(1MAT 2MAT 3MAT) )里面的'(1MAT 2MAT 3MAT) 改成lst的第几项的cadr如'(第8项 第5项 第2项）要怎么写呢，因为我里面的'(1MAT 2MAT 3MAT)是变量

xshrimp

自己看看mapcar 的语法.

(mapcar '(lambda(x)(cadr (nth x lst))) '(8 5 2))

jeike456

好的，谢谢xshrimp