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

cd028asdf028

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

woaishuijia

参考下面例程：
: t- s) j+ e. ?& x9 b1 ^
% b2 X' X3 f  U' l打开Windows记事本，写入点坐标（如下图）并保存为“E:\1.txt”
* V$ J( k& a' D8 Q
7 x' S9 W7 a: G% q* D7 s
在VBA编辑器中写如下代码
# `' X8 Y5 p9 f  {6 d- q. G---------------------------------------------------
7 J1 X7 {: k, o6 G. eSub A()
    Dim F As Integer, P(2) As Double
+ v5 W! e. E5 u) D    F = FreeFile()
, s2 h% s1 m! q" A+ g' s2 Y    Open "E:\1.txt" For Input As F
        Do Until EOF(F)
/ K( Q# @* @  ?1 Z            Input #F, P(0), P(1), P(2)
/ a7 o# n3 r, f/ L/ \            ThisDrawing.ModelSpace.AddPoint P
        Loop
    Close F
End Sub
---------------------------------------------------

9 z# o  m$ n$ [% x5 i下面的代码也可以
( X* `: O1 N4 o* q/ H; U3 h---------------------------------------------------
; i: |: Q. l+ _8 y' d$ `! fSub B()
    Dim F As Integer, S As String
7 f9 J4 C/ A6 |, C& e; Y& O    ThisDrawing.ActiveSpace = acModelSpace
' Q% D) h  x  c: I* }! B    F = FreeFile()
1 m! M4 v7 f4 T$ N0 @    Open "E:\1.txt" For Input As F
6 n. a) `3 Q$ y; T) S        Do Until EOF(F)
2 v2 x$ O0 |# L3 {            Line Input #F, S
0 z9 H' E9 i" R5 i4 V) Y$ C" Z            ThisDrawing.SendCommand "point " & S & vbCr
0 S' B+ n2 h; C        Loop
    Close F
End Sub
' d. l- v2 z, O, M* K---------------------------------------------------

cd028asdf028

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

cd028asdf028

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

bsese

参考下面例程：

打开Windows记事本，写入点坐标（如下图）并保存为“E:\1.txt”
974246

  @( A1 A* n" L) L/ R3 j5 U在VBA编辑器中写如下代码
# i( U+ j+ a& s0 R2 C---------------------------------------------------
# [, t! c$ K/ b! BSub A()
    Dim F As Integer, P( ...
; U) r4 m$ P3 H( fwoaishuijia 发表于 2008-9-11 08:29 http://www.3dportal.cn/discuz/images/common/back.gif

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

woaishuijia

6# bsese
参考这个帖子 VBA讀寫EXCEL文檔的方法

frankdad

正好需要，谢谢了！