如何替换表中元素，，求助！！

yaojing38

lst'((224 . <图元名: -147ca0>) (224 . <图元名: -147ba8>) (224 . <图元名: -147b80>) (283 .
<图元名: -147c50>) (283 . <图元名: -147c00>) (283 . <图元名: -147bf0>) (283 . <图元名:
-147be0>) (361 . <图元名: -147c78>) (361 . <图元名: -147b58>) (361 . <图元名: -147b30>)
(538 . <图元名: -147bd0>))
lst1'((224 . 1) (361 . 2) (538 . 3))
现在要用 lst1的元素通过点对替换 lst中的点对第一个名字。。
就是lst要变成 ((1. <图元名: -147ca0>) (1. <图元名: -147ba8>) (1. <图元名: -147b80>) (283 .
<图元名: -147c50>) (283 . <图元名: -147c00>) (283 . <图元名: -147bf0>) (283 . <图元名:
-147be0>) (2. <图元名: -147c78>) (2 . <图元名: -147b58>) (2 . <图元名: -147b30>)
(3. <图元名: -147bd0>))
被绕进去了求助大神。。。。。谢谢！

xyp1964

1. (defun abc (lst lst1 / a b n)
   
2.   (setq a (mapcar 'car lst1)
   
3.         b (mapcar 'cdr lst1)
   
4.   )
   
5.   (mapcar '(lambda (x)
   
6.              (if (setq n (vl-position (car x) a))
   
7.                (cons (nth n b) (cdr x))
   
8.                x
   
9.              )
   
10.            )
    
11.           lst
    
12.   )
    
13. )
    

(defun abc (lst lst1 / a b n)<br />   (setq a (mapcar 'car lst1)<br />         b (mapcar 'cdr lst1)<br />   )<br />   (mapcar '(lambda (x)<br />              (if (setq n (vl-position (car x) a))<br />                (cons (nth n b) (cdr x))<br />                x<br />              )<br />            )<br />           lst<br />   )<br /> )<br />

yaojing38

谢谢院长，给绕进去了