[LISP]如何替换扩展数据？

hkzwsy

如何同时替换两组1011码？


如：


(-3 (INCISE (1002 . {) (1011 585.816 60 0.0) (1011 585.816 63.6909 0.0) (1070 . 2) (1002 . })))有两组1011码


(setq pt1(list 100 50 0))(setq pt2(list 80 60 0))


替换成:


(-3 (INCISE (1002 . {) (1011 100 50 0.0) (1011 80 60 0.0) (1070 . 2) (1002 . })))

alin

(-3 (INCISE (1002 . {) (1011 585.816 60 0.0) (1011 585.816 63.6909 0.0) (1070 . 2) (1002 . })))


上面的东西哪里来的？为什么该有引号的地方却没有？

xiaomi

将原数据读出保存起来，再删除，再修改保存的数据，再写回去

lockmyeye

直接用SUBST替换，用ENTMOD更新就可以了。