社区 › Auto Lisp › 创建txt文件问题

mostafa badran 发表于 2022-7-5 23:15:10

创建txt文件问题

大家好，
当我试图创建类似txt文件的附件时，我遇到了一个问题
谁能帮忙吗。
谢谢
 

 

(defun c:test(/ )
(vl-load-com)
(initget 1 "txt csv")
(setq filtyp (getkword "\nExport Type? (txt or csv)"))
(setq top-str "" fname (getfiled "Specify File Name" "C:\\polyline size" filtyp 1))
(setq getarea (command "AREA" "o" pause ))
(setq area (getvar "area"))
(setq string (rtos area))
(setq sttxt(strcat "Area=" string))
(open fname "w")
(write-line sttxt fname)
   (close fname)
)

cwake 发表于 2022-7-5 23:31:30

从内存中（在手机上），write line和close的文件参数不是文件名和路径的字符串，而是open函数的返回值。您需要将（打开fname“w”）捕获到一个变量中，并使用该变量而不是fname。

MSasu 发表于 2022-7-5 23:44:23

在代码Clint的观察中：
(setq fileStream (open fname "w"))
(write-line sttxt fileStream)
(close fileStream)

mostafa badran 发表于 2022-7-6 00:01:06

 
谢谢大家，现在它工作得很好。
谢谢。

cwake 发表于 2022-7-6 00:03:21

感谢您的代码Mircea:-）我在努力用手机。

mostafa badran 发表于 2022-7-6 00:23:05

 
 
所有的路都通向房间。。

查看完整版本: 创建txt文件问题