Question

autolisp能否读取文本数据？求大神举一个实例？

Answer 1

能的，很多方法的，有直接为表，有直接读取内容的

追问

能否为小弟举一个例子呢？

追答

;将文本文件中的内容转换为列表
;TXTFile ----文本文件名称
;(xx-txt-OpenFile-2-lst "D:\\xx.txt")
;例如返回:(SETQ LST '("1 2 3" "12 23 45" "你好 吗" "AA BB " "A B"))
(defun xx-txt-OpenFile-2-lst (TXTFILE / LST_JG F TMP)
(setq LST_JG '())
(if (setq F (open TXTFILE "r"))
(progn
(while (setq TMP (read-line F))
(setq LST_JG (cons TMP LST_JG))
)
(close F)
)
)
(reverse LST_JG)
)