创建txt文件问题

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

大家好，
当我试图创建类似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")
[color=red] (write-line sttxt fname)
[/color]   (close fname)
 )

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

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

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

在代码Clint的观察中：

copy

[color=red](setq fileStream [/color](open fname "w")[color=red])[/color]
(write-line sttxt [color=#ff0000]fileStream[/color])
(close [color=#ff0000]fileStream[/color])