lisp 读取文本文档的问题

吴欣

假如 文本格式是  为 b1   
                                  2   13   12  
                                  4   16    4  
                                  6    8      3
                                  8   10.5    12
                                  b2
                                 2     10   4
                                 4      4    3
                                 5      11   6
       那么如何用lisp读取文本数据，实现 b1 使用b1以下的坐标形成一个多线段，b2 使用b2以下的数据形成另一条多线段？请各位老师指导一下，郁闷了好几天了  一直无从下手

ll_j

Lisp实现并不难，都读出来，然后对数据进行判断，后面就好处理了。
在lisp中构造多段线的方法稍微复杂一点，我是不太喜欢用。
这种问题，如果内容不是特别多的话，我倒是喜欢用Excel辅助作图，把文件读到Excel中，构建“x,y”这样的列，复制粘贴到CAD的PL命令下。

吴欣

我想在lisp中实现  请老师贴出相应源码

Andyhon

2   13   12  
x    y     z   

吴欣

   可以这样理解 三行数据  可以理解为xyz其中有个别行只有一个数据，
      

要求每行一个数据分开形成多线段，其中 一个数据的行 标注为 这条多线段的文字

Andyhon

待修订...

2. 
   
3. (defun drawpl (m)
   
4.    (command "pline")
   
5.    (mapcar 'command m)
   
6.    (command "")
   
7. )
   
8. 
   
9. ;;; for test only
   
10. ;;; 程序草稿
    
11. (defun C:test ()
    
12.   (setq fn (getfiled "座标点输入文件名" "新建 文本文档 (3)" "txt" 8)
    
13.         fp (open(findfile fn) "r")
    
14.        pts nil
    
15.       ptss nil  
    
16.   )
    
17.   
    
18.   (while (setq str (read-line fp))
    
19.     (cond
    
20.      ((wcmatch str "@*")
    
21.       (setq ptss (cons pts ptss)
    
22.              pts nil
    
23.      ))
    
24.      ((setq xy (read (strcat "(" str ")")))
    
25.       (setq pts (cons xy pts))
    
26.    )))
    
27.    (setvar "CmdEcho" 0)
    
28.    (setvar "OsMode" 0)
    
29.    (drawpl pts)
    
30.    (foreach pts (cdr (reverse ptss)) (drawpl pts))
    
31.    (setvar "CmdEcho" 1)
    
32. )
    

<br /> (defun drawpl (m)<br />    (command "pline")<br />    (mapcar 'command m)<br />    (command "")<br /> )<br /> <br /> ;;; for test only<br /> ;;; 程序草稿<br /> (defun C:test ()<br />   (setq fn (getfiled "座标点输入文件名" "新建 文本文档 (3)" "txt" 8)<br />         fp (open(findfile fn) "r")<br />        pts nil<br />       ptss nil  <br />   )<br />   <br />   (while (setq str (read-line fp))<br />     (cond<br />      ((wcmatch str "@*")<br />       (setq ptss (cons pts ptss)<br />              pts nil<br />      ))<br />      ((setq xy (read (strcat "(" str ")")))<br />       (setq pts (cons xy pts))<br />    )))<br />    (setvar "CmdEcho" 0)<br />    (setvar "OsMode" 0)<br />    (drawpl pts)<br />    (foreach pts (cdr (reverse ptss)) (drawpl pts))<br />    (setvar "CmdEcho" 1)<br /> )<br />

吴欣

谢谢 Andyhon 的源码，实在对不起 我发现了一个问题，我上传的 文本文档数据是连续的，线段能自然分开，如果数据有了变化，那么多线段就会出现交叉现象，我的本意是可以形成多个多线段，然后可以自动排列好空间  不出现交叉现象，请你老人家再完善一下好吗？再有就是把每条直线的名字一并加在多线段上方，谢谢了!

吴欣

谢谢 Andyhon 的源码，实在对不起 我发现了一个问题，我上传的 文本文档数据是连续的，线段能自然分开，如果数据有了变化，那么多线段就会出现交叉现象，我的本意是可以形成多个多线段，然后可以自动排列好空间  不出现交叉现象，请你老人家再完善一下好吗？再有就是把每条直线的名字一并加在多线段上方，谢谢了!

吴欣

Andyhon 发表于 2012-11-21 19:13
待修订...

谢谢 Andyhon 的源码，实在对不起 我发现了一个问题，我上传的 文本文档数据是连续的，线段能自然分开，如果数据有了变化，那么多线段就会出现交叉现象，我的本意是可以形成多个多线段，然后可以自动排列好空间  不出现交叉现象，请你老人家再完善一下好吗？再有就是把每条直线的名字一并加在多线段上方，谢谢了!

Andyhon

依程序所得,请依此订正成合乎原意的正确图形以供探讨