[编程申请]：文本格式的一组坐标点调入AutoCAD

xiaoyanyan

已知一组 X、Y、Z ，并且已写入一文件TXT1.TXT,要根据此文件让其自动以点的形式绘出，并标出点号。（格式：点号，x,y,z）  
文件内容如下：

1,123.123,456.456,11.11
2,234.234,567.567,22.22
3,345.345,567.576,33.33
4,456.456,789.789,44.44
……

myfreemind

把每行的数据读进数组，然后按逗号分割，将坐标取出，在CAD中生成点就可以了！

xiaoyanyan

请教楼上大哥，能否说得详细一点？

myfreemind

把你的信箱给我，我做好了寄给你！

xiaoyanyan

谢谢！
xiaoyanzixjy@yahoo.com.cn

myfreemind

程序已经寄到你的信箱，请查收！！

xcajcj

最初由 xiaoyanyan 发布
[B]已知一组 X、Y、Z ，并且已写入一文件TXT1.TXT,要根据此文件让其自动以点的形式绘出，并标出点号。（格式：点号，x,y,z）  
文件内容如下：

1,123.123,456.456,11.11
2,234.234,567.567,22.22
3,345.345,567.... [/B]

用Excel2000就可以达到上述目的。

lsjjm

最初由 xcajcj 发布
[用Excel2000就可以达到上述目的。[/B]

我想1楼楼主是问如何直接传递.TXT文件中的数据到AutoCAD，如果再利用Excel, 岂不是又拐了个大弯？

PLgis

读文本文件，并对数据进行操作是个常见问题。
恰好手头有个过去写的类似的函数，经修改后，放在下面。
本程序已测试通过，供参考。

2. 
   
3. ;
   
4. ;读文本格式的一组坐标点文件,并画点和标出点号
   
5. (defun c:Rfdp(/ fname ptab plst ptxt pt)
   
6.   (setq fname(getfiled "选择坐标点文件" "" "" 8))
   
7.   (if fname
   
8.     (progn
   
9.       (setq ptab(ReadFile fname))
   
10.       (while(setq plst(car ptab))
    
11.         (setq ptxt(car plst) pt(cdr plst))
    
12.         (command "point" pt)
    
13.         (command "text" (polar pt 0 1) 2 0 ptxt)
    
14.         (setq ptab(cdr ptab))
    
15.       )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    
20. ;
    
21. ;----------------------------------------------------------
    
22. ;(ReadFile fname)
    
23. ;读文件并返回复合表((..)...)
    
24. ;每个记录行为一个子表
    
25. ;
    
26. ;参数
    
27. ;  fname 文本文件名,各数据项之间用逗号分开
    
28. ;
    
29. ;返回值
    
30. ;  wtab       复合表((..)...)
    
31. ;  nil        没有fname文件
    
32. ;-------------------------------------------
    
33. (defun ReadFile(fname / fr rline wtab)
    
34.   (setq fr(open fname "r"))
    
35.   (if fr
    
36.     (while (and(not wend)(setq rline(read-line fr)))
    
37.       (setq wtab(append wtab(list(Line2Lst rline))))
    
38.     )
    
39.     (princ (strcat "\nWarning:无法打开文件<" fname ">\n"))
    
40.   )
    
41.   (if fr(close fr))
    
42.   wtab
    
43. )
    
44. ;
    
45. ;
    
46. ;-------------------------------------------------------------------
    
47. ;(Line2Lst str)
    
48. ;把用逗号做分隔符的字符串行，转换成一个简单表
    
49. ;参数
    
50. ;  str 字符串
    
51. ;返回值
    
52. ;  数据项构成的简单表
    
53. ;Ex:   (Line2Lst "1,123.123,456.456,11.11")
    
54. ;返回  ("1" 123.123 456.456 11.11)
    
55. ;-------------------------------------------------------------------
    
56. (defun Line2Lst(str / i j l ll ws wtab)
    
57.   (setq wtab '())
    
58.   (setq ll (strlen str) i 1 j 1)
    
59.   (while (<= i ll)
    
60.     (if (= (substr str i 1) ",")
    
61.       (progn
    
62.         (setq l (- i j))
    
63.         (setq ws (if (> l 0) (substr str j l) ""))
    
64.         (if(= j 1)
    
65.           (setq wtab (append wtab (list ws)))
    
66.           (setq wtab (append wtab (list (atof ws))))
    
67.         )
    
68.         (setq j (1+ i))
    
69.       )
    
70.     )
    
71.     (setq i (1+ i))
    
72.   )
    
73.   (if (>= i j)(setq wtab (append wtab (list(atof(substr str j))))))
    
74.   wtab
    
75. )
    
76. ;
    

<br /> ;<br /> ;读文本格式的一组坐标点文件,并画点和标出点号<br /> (defun c:Rfdp(/ fname ptab plst ptxt pt)<br />   (setq fname(getfiled "选择坐标点文件" "" "" 8))<br />   (if fname<br />     (progn<br />       (setq ptab(ReadFile fname))<br />       (while(setq plst(car ptab))<br />         (setq ptxt(car plst) pt(cdr plst))<br />         (command "point" pt)<br />         (command "text" (polar pt 0 1) 2 0 ptxt)<br />         (setq ptab(cdr ptab))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;<br /> ;----------------------------------------------------------<br /> ;(ReadFile fname)<br /> ;读文件并返回复合表((..)...)<br /> ;每个记录行为一个子表<br /> ;<br /> ;参数<br /> ;  fname 文本文件名,各数据项之间用逗号分开<br /> ;<br /> ;返回值<br /> ;  wtab       复合表((..)...)<br /> ;  nil        没有fname文件<br /> ;-------------------------------------------<br /> (defun ReadFile(fname / fr rline wtab)<br />   (setq fr(open fname "r"))<br />   (if fr<br />     (while (and(not wend)(setq rline(read-line fr)))<br />       (setq wtab(append wtab(list(Line2Lst rline))))<br />     )<br />     (princ (strcat "\nWarning:无法打开文件<" fname ">\n"))<br />   )<br />   (if fr(close fr))<br />   wtab<br /> )<br /> ;<br /> ;<br /> ;-------------------------------------------------------------------<br /> ;(Line2Lst str)<br /> ;把用逗号做分隔符的字符串行，转换成一个简单表<br /> ;参数 <br /> ;  str 字符串<br /> ;返回值<br /> ;  数据项构成的简单表<br /> ;Ex:   (Line2Lst "1,123.123,456.456,11.11")<br /> ;返回  ("1" 123.123 456.456 11.11)<br /> ;-------------------------------------------------------------------<br /> (defun Line2Lst(str / i j l ll ws wtab)<br />   (setq wtab '())<br />   (setq ll (strlen str) i 1 j 1)<br />   (while (<= i ll)<br />     (if (= (substr str i 1) ",")<br />       (progn<br />         (setq l (- i j))<br />         (setq ws (if (> l 0) (substr str j l) ""))<br />         (if(= j 1)<br />           (setq wtab (append wtab (list ws)))<br />           (setq wtab (append wtab (list (atof ws))))<br />         )<br />         (setq j (1+ i))<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (if (>= i j)(setq wtab (append wtab (list(atof(substr str j))))))<br />   wtab<br /> )<br /> ;<br />

myfreemind

用lisp展5000点需要多久时间有没有试过？格式就是楼主提的那种！

xiaoyanyan

9楼楼主的程序非常好，很是实用。在此向9楼楼主致以谢意。
谢谢了！

myfreemind

不能用的具体问题能说清楚一点吗？我这边试了都没有问题的

xiaoyanyan

myfreemind ：
    是这样的，我调入一个TXT文件，格式为（点号，X，Y，Z），但展点完成后
X，Y，Z值均为Z值。我想大概是我调入文件的格式有误，能否指点一二。

myfreemind

这样啊， 你把你的展点文件寄给我，我试试！myfreemind@tom.com

xiaoyanyan

其实格式很简单，具体如下：（点号，X，Y，Z）比如

1,100.11,500.12,21.00
2,150.32,511.23,21.45
3,121.21,546.65,21.65
4,154.65,598.54,22.42
5,124.21,545.65,22.10
6,154.25,562.35,21.25
7,132.63,525.32,22.23
8,154.32,598.65,21.21