求助：有关READ-LINE（文本数据导入CAD）

meflying

看看你的文本。。。刚粘贴，没有改动的

lk_mbf

好，我传上来。

lk_mbf

我调整了一下这个文档，修改字符读取位置，程序能执行正确，但另一个表格，坐标和这不一样，又要调整文档，修改读取位置，确实还不够完善！

f5612140

所以,你要彈性做法是依空格分開,知道如何判斷每行是7筆資料,如何取得資料

lk_mbf

如果我在坐标间加“，”呢？会不会读取更方便些？

meflying

试试这样：

2. (defun ReadData(/ Data_list file str)
3.    (setq file (getfiled "选择文件..." "" "txt" 8))
4.    (setq f (open file "r"))
5.    (setq Data_list nil)
6.    (while (setq str (read-line f))
7.        (if (/= (vl-string-trim " " str) "")
8.            (setq Data_list (append Data_list (list str)))
9.        )
10.    )
11.    (mapcar '(lambda(e) (read (strcat "(" e ")"))) Data_list)
12. )

(defun ReadData(/ Data_list file str)    (setq file (getfiled "选择文件..." "" "txt" 8))    (setq f (open file "r"))    (setq Data_list nil)    (while (setq str (read-line f))        (if (/= (vl-string-trim " " str) "")            (setq Data_list (append Data_list (list str)))        )    )    (mapcar '(lambda(e) (read (strcat "(" e ")"))) Data_list) )

lk_mbf

这样做只是将数据按行整合在一个括号内，没有达到分开读取空格间实数的目的啊？

meflying

这不是整合在括号内，是做成了表，LISP就是表处理函数，有了表，你想怎么读就怎么读，想读哪个数据就读哪个数据了。


又看了一下，你的数据，怎么从EXCEL复制过来会有逗号？

无痕

那是他自己加的

meflying

真不明白，我给他了读取的函数，为什么还要去画蛇添足加上逗号？而且还不利于读取。。。。。。好象就是我回复慢了点而已。