社区 › AutoLISP/Visual LISP 编程技术 › 怎样修改多个相同组代码中的一个的值？

wharan 发表于 2015-7-17 22:58:40

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

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

caoyin 发表于 2015-7-17 23:52:35

(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 发表于 2015-7-18 00:21:40

我的这段代码是这样的，怎样把你的代码嵌进去？就是为了修改属性“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)
          )

查看完整版本: 怎样修改多个相同组代码中的一个的值？