例如:(setq pa "c:\\aa.lin")
(if (findfile pa) (vl-file-delete pa))
(setq of (open pa "w"))
(princ "第一行"of)
(princ "\第二行"of)
(princ "\nBy BDYCAD "of)
(close of);;;工作完成切记关闭文件
(vl-file-copy pa "c:\\AAcopy.lin")
(vl-file-delete pa)
代码供你参考 <p>看不懂是什么意思,难道你可以反编译VLX程序.</p>
页:
[1]