Question

autocad lisp有什么命令可以读取文本数据？

Answer 1

(setq ss1 (ssget (list (cons 0 "*text"))))
(setq ent (ssname ss1 0))
(setq str (cdr (assoc 1 (entget ent))))
文本内容已读取至str这个变量中，你可以参考

追问

不需要输入文本路径的吗？

追答

你是要把文本读入到CAD里边还是把CAD里边的文本读出来？我刚刚说的是把CAD文本数据读出来

追问

是读入cad里面！不好意思，我没有表达清楚

追答

你参考一下：

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

一上代码是打开一个文本文件并读取每一行：