hkzwsy 发表于 2004-8-11 15:04:00

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

如何同时替换两组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 发表于 2004-8-11 19:41:00

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


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

xiaomi 发表于 2004-10-5 11:38:00

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

lockmyeye 发表于 2004-10-5 12:29:00

直接用SUBST替换，用ENTMOD更新就可以了。
页: [1]
查看完整版本: [LISP]如何替换扩展数据？