摘要：;getfiled函数：对话框的名称，默认文件夹路径，过滤后缀名，flag(1是创建、4是选择)
(defun c:writefileS
;getfiled函数：对话框的名称，默认文件夹路径，过滤后缀名，flag(1是创建、4是选择)
;getfiled返回的是文件的绝对路径，是字符串
(setq filepath (getfiled "选择要预览的对话框所在的文件" "D:\\Desktop\\WX15831944\\LISP\\" "txt" 4))
;返回文件的操作符
;w：有则覆盖，没有则新建。a：有则追加，无则新建
(setq file (open filepath "w"))
来源：铁路站场枢纽
免责声明：本站系转载，并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题，请在30日内与本站联系，我们将在第一时间删除内容!