如何实现在CAD中的数据写到文档中去

kellyyang1

我想把CAD中实现的数据写到文档中去,请问如何能做到呢???

meflying

(setq f (open filenmae "w"))


(princ data f);data就是数据

spring

(write-line string [file-desc])


参数


string


字符串型。


file-desc


已打开文件的文件描述符。


返回值


带有双引号的 string。但将字符串写入到文件中时会省略双引号。


样例


打开新文件：


命令：(setq f (open "c:\\my documents\\new.tst" "w"))


#<file "c:\\my documents\\new.tst">


使用 write-line 将一行文本写入文件：


命令：(write-line "To boldly go where nomad has gone before." f)


"To boldly go where nomad has gone before."


在关闭文件以前该行文本不会被真正写入文件：


命令：(close f)


nil