[编程申请]：TXT格式坐标值如何读入lisp

agang198

请教：如何把下列格式的TXT文档中的坐标值读入lisp中,成为空间点坐标
一、格式1：
1 12.35 32.55  55.66
2 56.88 45.88 45.55
3 89.55 66.78 45.66
二、格式2
12.555 12.885 468.54
456.554 12.55 42.58
45.45 5.699 56.66
谢谢！

tuger

2. 
   
3. (defun mc_getfile_text (files line / fn text)
   
4.   (setq line(+ 1 line))
   
5.   (setq files (findfile files))
   
6.   (if files
   
7.     (progn
   
8.       (setq fn(open files "r"))
   
9.       (if (<= line (mc_getfile_line files))
   
10.         (progn
    
11.           (repeat line
    
12.             (setq text(read-line fn))
    
13.           )
    
14.           (close fn)
    
15.           text
    
16.         )
    
17.         nil
    
18.       )
    
19.     )
    
20.     nil
    
21.   )
    
22. )
    

<br /> (defun mc_getfile_text (files line / fn text)<br />   (setq line(+ 1 line))<br />   (setq files (findfile files))<br />   (if files<br />     (progn<br />       (setq fn(open files "r"))<br />       (if (<= line (mc_getfile_line files))<br />         (progn<br />           (repeat line<br />             (setq text(read-line fn))<br />           )<br />           (close fn)<br />           text<br />         )<br />         nil<br />       )<br />     )<br />     nil<br />   )<br /> )<br />

功能  
读取指定文件中指定行的内容  
语法  
(mc_getfile_text files line)  
参数  
files：文本文件名，如未指定路径则自动在搜索路径中查找文件
line：指定行  
返回值  
返回文件指定行内容，如果文件不存在或指定行超过文件总行数，则返回nil  
样例  
(mc_getfile_text "tyl.ini" 5)  

2. 
   
3. 
   
4. (defun mc_getfile(files / tmplst x fn)
   
5.   (setq files(findfile files))
   
6.   (if files
   
7.     (progn
   
8.       (setq fn (open  files "r"))
   
9.       (while (setq x (read-line fn))
   
10.         (setq tmplst(append tmplst(list x)))
    
11.       )
    
12.       (close fn)
    
13.       tmplst
    
14.     )
    
15.      nil
    
16.   )
    
17. )  
    

<br /> <br /> (defun mc_getfile(files / tmplst x fn)<br />   (setq files(findfile files))<br />   (if files<br />     (progn<br />       (setq fn (open  files "r"))<br />       (while (setq x (read-line fn))<br />         (setq tmplst(append tmplst(list x)))<br />       )<br />       (close fn)<br />       tmplst<br />     )<br />      nil<br />   )<br /> )  <br />

功能  
读取文件并按行将文件转换为表  
语法  
(mc_getfile files)  
参数  
files：文本文件名，如未指定路径则自动在搜索路径中查找文件  
返回值  
返回一个表，文件中一行被转换为表中的一个项，如果文件不存在，则返回nil  
样例  
(mc_getfile "tyl.ini")

ll_j

用read-line读文件，然后用以下语句转换成表：
(setq pt(read (strcat "(" text ")")))


to tuger:
第一个函数中缺函数mc_getfile_line。

aeo

最初由 agang198 发布
[B]请教：如何把下列格式的TXT文档中的坐标值读入lisp中,成为空间点坐标
一、格式1：
1 12.35 32.55  55.66
2 56.88 45.88 45.55
3 89.55 66.78 45.66
二、格式2
12.555 12.885 468.54
456.554 12.55 42.58
45.... [/B]

看看cad的帮助,很简单的.

2. 
   
3. ;1:
   
4. (setq li '())
   
5. (setq h(open "1.txt""r")
   
6. (while(and (setq line(read-line h))(/= line ""))
   
7. (setq li(cons(cdr (read(strcat "(" (read line)")")))li) )
   
8. )
   
9. (close h)
   
10. (setq li(reverse li))
    
11. ;li就是要的所有点表.
    
12. 
    
13. ;2:不要cdr
    

<br /> ;1:<br /> (setq li '())<br /> (setq h(open "1.txt""r")<br /> (while(and (setq line(read-line h))(/= line ""))<br /> (setq li(cons(cdr (read(strcat "(" (read line)")")))li) )<br /> )<br /> (close h)<br /> (setq li(reverse li))<br /> ;li就是要的所有点表.<br /> <br /> ;2:不要cdr<br />

写的时候,一定要考虑,可不可以读进cad,而且要最方便的转换.

tuger

呵呵，不好意思，忘了贴这个

2. 
   
3. (defun mc_getfile_line(files / tmplst x fn)
   
4.   (setq files(findfile files)
   
5.   (if files
   
6.     (progn
   
7.       (setq tmplst 0)
   
8.       (setq fn(open files "r"))
   
9.       (while (read-line fn)
   
10.         (setq tmplst (+ 1 tmplst))
    
11.       )
    
12.       (close fn)
    
13.       tmplst
    
14.     )
    
15.     nil
    
16.   )
    
17. )  
    

<br /> (defun mc_getfile_line(files / tmplst x fn)<br />   (setq files(findfile files)<br />   (if files<br />     (progn<br />       (setq tmplst 0)<br />       (setq fn(open files "r"))<br />       (while (read-line fn)<br />         (setq tmplst (+ 1 tmplst))<br />       )<br />       (close fn)<br />       tmplst <br />     )<br />     nil<br />   )<br /> )  <br />

功能  
获取文件的行数  
语法  
(mc_getfile_line files)  
参数  
files：文本文件名，如未指定路径则自动在搜索路径中查找文件  
返回值  
返回文件的行数，如果文件不存在，则返回nil  
样例  
(mc_getfile_line "tyl.ini")




在给你一个参考
已知一组 X、Y、Z ，并且已写入一文件TXT1.TXT,要根据此文件让其自动用“PLINE”绘出。  
文件内容如下：

X Y Z
123 456 789
222 333 444
444 555 666
777 888 999
888 999 77
999 754 44
111 755 66
333 666 55
555 777 11

可以用以下程序完成：

2. 
   
3. (defun c:pltxt (/ oldcmd oldblip oldsnap fle fn pt)
   
4.   (setq oldcmd (getvar "cmdecho"))
   
5.   (setvar "cmdecho" 0)
   
6.   (setq oldblip (getvar "blipmode"))
   
7.   (setvar "blipmode" 0)
   
8.   (setq oldsnap (getvar "osmode"))
   
9.   (setvar "osmode" 0)
   
10.   (setq fle (findfile "txt1.txt"))
    
11.   (if (not fle)
    
12.     (setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8))
    
13.   )
    
14.   (if fle
    
15.     (progn
    
16.       (setq fn (open fle "r"))
    
17.       (read-line fn)
    
18.       (read-line fn)
    
19.       (command "pline")
    
20.       (while (setq pt (read-line fn))
    
21. (command (read (strcat "(" pt ")")))
    
22.       )
    
23.       (command "")
    
24.       (close fn)
    
25.     )
    
26. 
    
27.     (princ "\n未选择数据文件，退出")
    
28.   )
    
29.   (setvar "cmdecho" oldcmd)
    
30.   (setvar "blipmode" oldblip)
    
31.   (setvar "osmode" oldsnap)
    
32.   (princ)
    
33. )
    

<br /> (defun c:pltxt (/ oldcmd oldblip oldsnap fle fn pt) <br />   (setq oldcmd (getvar "cmdecho")) <br />   (setvar "cmdecho" 0) <br />   (setq oldblip (getvar "blipmode")) <br />   (setvar "blipmode" 0) <br />   (setq oldsnap (getvar "osmode")) <br />   (setvar "osmode" 0) <br />   (setq fle (findfile "txt1.txt")) <br />   (if (not fle) <br />     (setq fle (getfiled "请选择数据文件" "txt1" "txt;dat;*" 8)) <br />   ) <br />   (if fle <br />     (progn <br />       (setq fn (open fle "r")) <br />       (read-line fn) <br />       (read-line fn) <br />       (command "pline") <br />       (while (setq pt (read-line fn)) <br /> (command (read (strcat "(" pt ")"))) <br />       ) <br />       (command "") <br />       (close fn) <br />     ) <br /> <br />     (princ "\n未选择数据文件，退出") <br />   ) <br />   (setvar "cmdecho" oldcmd) <br />   (setvar "blipmode" oldblip) <br />   (setvar "osmode" oldsnap) <br />   (princ) <br /> ) <br />

你可以参考这个。。。。程序把文件读入，然后用pl线画出

agang198

谢谢各位大哥大姐小弟小妹！
今晚好好拜读。
有了它，就可做程序数据接口了。
再三谢谢！