Question

CAD LISP打开txt文件..我想问一下这个问题你解决了没有？可不可以告诉我怎么做。

Answer 1

打开windows资源管理器的菜单“工具”--“文件夹选项”，找到“文件类型”，然后找到扩展名为txt的那个，修改就行。

简单一点就是，找一个txt文件，按住SHIFT键，然后右键点击文件，选择打开方式菜单，找到“记事本”，勾选“始终使用xxx”那个，点确定就行了。

Answer 2

打开一个文本文件并读取每一行：
(defun c:test(/ fl lst line)
(setq fl(open "f://1.txt" "r")) ;;读模式.
(setq lst nil);;建立一个空表以存储文件中的内容.
(while(setq line(read-line fl));;;从文件开头开始读入每行内容.读完后read-line函数自动向下跳一行.
(setq lst(cons line lst))
)
(close fl);;读完一定要关闭文件
)
打开一个文本文件并写入一行：
(defun c:test(/ fl lst)
(setq fl(open "f://1.txt" "w")) ;;写模式.
(write-line "Test" fl)
(close fl);;关闭文件
)