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

cd028asdf028

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

woaishuijia

参考下面例程：
/ |- c  M- W8 `
3 o6 V0 I% A/ D- J7 o) e打开Windows记事本，写入点坐标（如下图）并保存为“E:\1.txt”


在VBA编辑器中写如下代码
---------------------------------------------------
# y7 H, c, ]  WSub A()
/ d- j: V3 ?$ W) m( j    Dim F As Integer, P(2) As Double
! D" l8 a2 h5 H: n8 ]5 H    F = FreeFile()
* \, H( }4 {0 z7 z  A! q+ o    Open "E:\1.txt" For Input As F
3 x' \# q- G$ `# M' r' S        Do Until EOF(F)
            Input #F, P(0), P(1), P(2)
            ThisDrawing.ModelSpace.AddPoint P
% U( l. }2 s& r7 o/ V, G) C/ o        Loop
! p/ W6 Z6 m4 l* n; k( B    Close F
; Y. n6 {$ Y- H- c- WEnd Sub
( C# G2 x& H+ t---------------------------------------------------

下面的代码也可以
6 g) A: b' W3 T, ?: ?; Q3 d3 b* Z---------------------------------------------------
3 f3 s2 V% G5 I2 ?; a0 G) }. f. b& K9 ISub B()
    Dim F As Integer, S As String
) C9 a. b' J: s" B/ K  O    ThisDrawing.ActiveSpace = acModelSpace
" `1 J% m! h7 @3 s0 _& S2 J    F = FreeFile()
. p; \& H4 w* R* f5 }2 a    Open "E:\1.txt" For Input As F
        Do Until EOF(F)
            Line Input #F, S
" k0 r7 M- Z8 u0 l, X# ?! \: w            ThisDrawing.SendCommand "point " & S & vbCr
        Loop
9 n7 z8 {- @& x; ?% y$ w    Close F
! R" d, z! t) D3 aEnd Sub
, }5 u+ F# S# ?3 I---------------------------------------------------

cd028asdf028

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

cd028asdf028

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

bsese

参考下面例程：

打开Windows记事本，写入点坐标（如下图）并保存为“E:\1.txt”
974246
" u- ^8 ~8 Y) S4 @$ d2 J4 A
* F- m* f" m9 m9 c* u6 D. n在VBA编辑器中写如下代码
---------------------------------------------------
Sub A()
, d" ~$ ]9 b1 X    Dim F As Integer, P( ...
* E6 ?% n2 ~; \0 G: t% ?) L. Z" 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
参考这个帖子 VBA讀寫EXCEL文檔的方法

frankdad

正好需要，谢谢了！