LISP写文件！！！急急...!!

tyliling

各位高手，最近本人想把一些CAD里面数据写到一个文件中去，但是此文件如果没有的话，LISP可不可以判别如果没有此文件就自动产生该文件....

以马内利

可以判断!

(if(findfile 文件路径+文件名)

       (find)

       (not find)

)

tyliling

我是初学者能不能具体点，我的程式是这样的

(setq winwin (findfile "D:\\winwin.dat"))
  (setq ff (open winwin "r"))
  (setq data (read-line  ff))
  (close ff)

tyliling

怎么没有高手指点呢?

xyp1964

可以参照下面的程序：

1. ;;;屏幕点坐标输出到文本
2. (DEFUN C:test120 (/ NMM F PT)
3.   (IF (SETQ NMM (GETFILED "文件名称 : " "" "txt" 9))
4.     (PROGN
5.       (SETQ F (OPEN NMM "w"))
6.       (WHILE (SETQ PT (GETPOINT "\n坐标点<退出> : "))
7. (write-line
8.    (strcat (rtos (car pt) 2)
9.     " "
10.     (rtos (cadr pt) 2)
11.     " "
12.     (rtos (caddr pt) 2)
13.    )
14.    F
15. )
16.       )
17.       (CLOSE F)
18.     )
19.   )
20.   (princ (strcat "\n坐标写至=>" NMM))
21.   (princ)
22. )

复制代码

tyliling

楼上这位高手，我的意思就是不想出现存取的对话框，想自动产生那个文件。不知道有没有办法.

meflying

看你3楼的,是读文件,如果没有,生成一个,再读有什么意义?

tyliling

楼上这位大哥！我的意思是是写文件，如果没有我想要的文件不知用什么方法可以产生该文件

cexoss2349

(setq fn(open "c:\\winwin.dat" "w"))就直接有这种功能吧。查看OPEN命令中W字段有解释，不同就是如果文件存在就会覆盖原文件。

 

ZZXXQQ

...

(IF (SETQ F (OPEN FNM "r"))

 (SETQ FNM (GETSTRING "\nNew File Name : "))

)

 (SETQ F (OPEN FNM "w"))

...