QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 4207|回复: 7
收起左侧

[已答复] 如何用vba编程将txt文档中存有点的三维坐标值(有很多点)读出并画在modelspace中?

[复制链接]
发表于 2008-9-10 22:03:01 | 显示全部楼层 |阅读模式 来自: 中国四川成都

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
如何用vba编程将txt文档中存有点的三维坐标值(有很多点)读出并画在modelspace中?
头像被屏蔽
发表于 2008-9-10 22:51:47 | 显示全部楼层 来自: 中国上海
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2008-9-11 08:29:57 | 显示全部楼层 来自: 中国辽宁营口
参考下面例程:
4 j/ x8 Y7 u# n6 {% R# E% o5 K
8 t! p* q, d- }# \( z2 {. r打开Windows记事本,写入点坐标(如下图)并保存为“E:\1.txt”
# W4 ]' D7 m5 m# ?6 M" P2 { 1.gif
( Z7 X$ V0 U' |  p% h/ N' P7 T) R+ Y5 f; @$ ^2 E( Z' @
在VBA编辑器中写如下代码! g- ]9 b! V' N9 h
---------------------------------------------------& F% C4 U( Y" o
Sub A()
5 _+ v8 H+ D; z3 z/ t: K; S    Dim F As Integer, P(2) As Double
7 B4 Z- n) H# F# _9 D! R, K& V    F = FreeFile()' i6 Q( v" A$ j8 i, I
    Open "E:\1.txt" For Input As F8 ~# H5 i2 ]8 z, y
        Do Until EOF(F)  W! e0 @+ g+ b9 h2 m( w
            Input #F, P(0), P(1), P(2)& x# E) x" x" H/ ]
            ThisDrawing.ModelSpace.AddPoint P" Z) v% B+ P8 Z- O
        Loop' D/ C  t# X$ D
    Close F
# H% }& \( X; V/ |End Sub& e% a0 V& V4 v0 N6 U
---------------------------------------------------
, |" o) I# t0 D, P2 Y- z; U( I: M! x- ~- S
下面的代码也可以/ D' U3 G  s* Z/ i1 K' ]0 S
---------------------------------------------------  L/ E" N7 A2 z. T& ?2 s; A; W
Sub B()
. r, _0 |$ H" ^% q$ o! J    Dim F As Integer, S As String7 @( B8 q: c! k( \7 J0 Z
    ThisDrawing.ActiveSpace = acModelSpace
/ I) z* p% W1 Z    F = FreeFile()# X$ j- I# n# y8 G; M, e$ T
    Open "E:\1.txt" For Input As F5 P5 K9 h, h8 F
        Do Until EOF(F)- Z* t: s  o9 C% K( A
            Line Input #F, S
5 V5 y0 U' _3 {            ThisDrawing.SendCommand "point " & S & vbCr
# K6 z: a0 x8 l0 f( q        Loop
/ v5 D  N& y  A8 g2 j1 p: f    Close F
% u3 C+ F7 Y* K* [9 M2 ~End Sub
" P5 L" E% ]9 I+ ~/ `! P---------------------------------------------------
 楼主| 发表于 2008-9-11 21:45:46 | 显示全部楼层 来自: 中国四川成都

回复 3# 的帖子

太厉害了,佩服!佩服!!没想到回的这么快,谢谢!
1 b' D& e) {2 C我还想再深入的问问:还是txt中的许多点的坐标值,并且每个点都有唯一的编号与之对。我要问的是,如何在modelspace里用vba程序生成一个个球体零件,每个零件的编号与点的编号对应,球的中心就是点的坐标值?
 楼主| 发表于 2008-9-11 21:57:47 | 显示全部楼层 来自: 中国四川成都
哦,刚才忘了说了,是在mdt里,而不是在autocad里生成与点一一对应的零件
发表于 2010-7-17 19:23:43 | 显示全部楼层 来自: 中国浙江温州
参考下面例程:3 K. `. E0 O: l% T- `

* t) U/ n; B' _# E  q6 j( F打开Windows记事本,写入点坐标(如下图)并保存为“E:\1.txt”7 s# V. P6 _1 _: z
974246
; H" x  W3 V* Y( S: P5 [" I( G# W6 @4 c- N! l
在VBA编辑器中写如下代码
( K% ?2 L# X/ C. s$ L---------------------------------------------------
: G1 ^  D! F  x3 ^Sub A()& _! e4 y" D) t% r4 Z' c
    Dim F As Integer, P( ...1 I- A5 @8 u; G% {! k: g& \
woaishuijia 发表于 2008-9-11 08:29 http://www.3dportal.cn/discuz/images/common/back.gif
& a( G) O+ w" F0 e
非常佩服您,非常感谢您的无私指导。. l4 u8 g* m) }- H  B
想再请教一下:如果三维点数据不是来自文本文件“E:\1.txt”,而是来自Excel文件“E:\1.xls”中的Sheet1;那么,VBA代码要作如何的修改呢?
发表于 2010-7-18 05:43:38 | 显示全部楼层 来自: 中国辽宁铁岭
6# bsese
8 d5 Y2 y1 X+ R0 m参考这个帖子 VBA讀寫EXCEL文檔的方法
发表于 2011-7-19 22:16:24 | 显示全部楼层 来自: 中国上海
正好需要,谢谢了!
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表