写入文件问题？

xiaoliu · 发表于 2004-2-27 19:51:00

主程序中语句：(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接着上一个写，而不是覆盖原来的。