xyp1964 发表于 2005-8-31 19:29:00

(defun c:test ()
(setq winwin (findfile "D:\\winwin.dat"))
(if winwin
    (setq ff (open winwin "a"))
    (setq ff (open "D:\\winwin.dat" "w"))
)
(setq data "test")
(write-line data ff)
(close ff)
)

dcl1214 发表于 2012-5-11 16:20:49

xyp1964 发表于 2005-8-31 19:29 static/image/common/back.gif


很好，留个脚印吧
页: 1 [2]
查看完整版本: LISP写文件！！！急急...!!