写入文件问题？

xiaoliu

主程序中语句：(action_tile "board" "(write $key $value )")
(action_tile "diameter" "(write $key $value )")
(action_tile "tdiameter" "(write $key $value )")
(action_tile "thickness" "(write $key $value )")
(action_tile "bthickness" "(write $key $value )") 子程序： (defun write(k v)
(setq fi "e:/工程.PT0")
(setq f (open fi "w"))
(write-line k f)
(princ v f)
(close f)
) 为什么写入的文件中只保存最后一个数，怎么能让write-line接着上一个写，而不是覆盖原来的。

meflying

因为你每次都打开文件，而且是"w"的方式，而这个方式就是覆盖写的

ljcgq

因为你每次都打开文件，而且是"w"的方式，而这个方式就是覆盖写的 应是"a"方式