怎样修改多个相同组代码中的一个的值？

wharan

编程中，图元组代码中有多个（72 . 0），我想把第一个组代码的值改为1，请问怎么修改？

caoyin

(setq X    '(72 . 0)
      LST2 (reverse LST)
)
(while (setq TMP (member X LST2))
  (setq LST2 (cdr TMP))
)
(append (reverse LST2)
        '((72 . 1))
        (cdr (member X LST))
)

wharan

我的这段代码是这样的，怎样把你的代码嵌进去？就是为了修改属性“DrawName”的对齐方式
(if (= (cdr (assoc 2 ents)) "DrawName")
         (progn
           (setq ent ents)
           (while (setq A (assoc 72 ENT))
             (setq LST (cons (cdr A) LST)
                   ENT (cdr (member A ENT))
             )
           )
    (reverse LST)
          )