如何用vba编程将txt文档中存有点的三维坐标值（有很多点）读出并画在modelspace中？

cd028asdf028

如何用vba编程将txt文档中存有点的三维坐标值（有很多点）读出并画在modelspace中？

woaishuijia

参考下面例程：

7 ^2 K2 P, @6 u; M' x0 [打开Windows记事本，写入点坐标（如下图）并保存为“E:\1.txt”


- f2 Y1 Y: m4 u/ W7 P# _$ t8 z- `在VBA编辑器中写如下代码
---------------------------------------------------
Sub A()
    Dim F As Integer, P(2) As Double
7 X2 V0 R- F/ Y    F = FreeFile()
$ _( g1 `$ l; ]0 |3 j" K5 e    Open "E:\1.txt" For Input As F
        Do Until EOF(F)
! ^$ q( g0 |) B            Input #F, P(0), P(1), P(2)
            ThisDrawing.ModelSpace.AddPoint P
        Loop
    Close F
2 A# G/ Q8 S% K% k$ _End Sub
" W3 r& P3 I$ T1 m* Z$ K6 m; h* D% m---------------------------------------------------
% ^2 X+ N$ m" ?2 S7 \( ]2 a
下面的代码也可以
---------------------------------------------------
Sub B()
! y) p. ]1 |- |2 U! y3 b    Dim F As Integer, S As String
    ThisDrawing.ActiveSpace = acModelSpace
    F = FreeFile()
    Open "E:\1.txt" For Input As F
        Do Until EOF(F)
            Line Input #F, S
' C2 t  b! |' B# q# M: u            ThisDrawing.SendCommand "point " & S & vbCr
; U7 k/ v" y! X8 F# Q# _        Loop
" U* m- o; g5 a" D6 G5 e" `    Close F
, y2 j- ?% l6 J/ kEnd Sub
---------------------------------------------------

cd028asdf028

太厉害了，佩服！佩服！！没想到回的这么快，谢谢！
: a" k& i1 F( b8 P0 m# Y( j8 c我还想再深入的问问：还是txt中的许多点的坐标值，并且每个点都有唯一的编号与之对。我要问的是，如何在modelspace里用vba程序生成一个个球体零件，每个零件的编号与点的编号对应，球的中心就是点的坐标值？

cd028asdf028

哦，刚才忘了说了，是在mdt里，而不是在autocad里生成与点一一对应的零件

bsese

参考下面例程：
6 C9 T! S3 N2 M: m
打开Windows记事本，写入点坐标（如下图）并保存为“E:\1.txt”
974246

. W; _& @7 j! }) Y在VBA编辑器中写如下代码
---------------------------------------------------
Sub A()
% b9 F! i" o! |, Z  H0 W& q    Dim F As Integer, P( ...
  x8 K% }7 D" B# h+ Mwoaishuijia 发表于 2008-9-11 08:29 http://www.3dportal.cn/discuz/images/common/back.gif

非常佩服您，非常感谢您的无私指导。
想再请教一下：如果三维点数据不是来自文本文件“E:\1.txt”，而是来自Excel文件“E:\1.xls”中的Sheet1；那么，VBA代码要作如何的修改呢？

woaishuijia

6# bsese
/ d1 i) e; G/ I% ?参考这个帖子 VBA讀寫EXCEL文檔的方法

frankdad

正好需要，谢谢了！