设为首页 |收藏本站 |帮助 |加入VIP |积分充值

只需一步，快速开始

登录 | 注册 | 找回密码

三维网首页›三维社区 › CAD讨论区 › AutoCAD › 『AutoCAD二次开发问题解答和经验分享』 › 如何用vba编程将txt文档中存有点的三维坐标值（有很多点 ...

通知

查看: 4227|回复: 7

收起左侧

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

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

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

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

x

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

回复

a_zong a_zong 当前离线积分 1044 UID 352198 主题在线时间小时注册时间 2007-7-25 头像被屏蔽	发表于 2008-9-10 22:51:47 \| 显示全部楼层来自：中国上海提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报

发表于 2008-9-11 08:29:57 | 显示全部楼层来自：中国辽宁营口

参考下面例程：

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

在VBA编辑器中写如下代码
---------------------------------------------------
Sub A()
Dim F As Integer, P(2) As Double
F = FreeFile()
Open "E:\1.txt" For Input As F
      Do Until EOF(F)
         Input #F, P(0), P(1), P(2)
         ThisDrawing.ModelSpace.AddPoint P
      Loop
Close F
End Sub
---------------------------------------------------

下面的代码也可以
---------------------------------------------------
Sub 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
         ThisDrawing.SendCommand "point " & S & vbCr
      Loop
Close F
End Sub
---------------------------------------------------

回复支持反对

楼主| 发表于 2008-9-11 21:45:46 | 显示全部楼层来自：中国四川成都

回复 3# 的帖子

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

回复支持反对

楼主| 发表于 2008-9-11 21:57:47 | 显示全部楼层来自：中国四川成都

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

回复支持反对

发表于 2010-7-17 19:23:43 | 显示全部楼层来自：中国浙江温州

参考下面例程：
" r" }  l0 u- E; E1 R. d5 \, D* R
2 v% |9 J* @$ ]& y打开Windows记事本，写入点坐标（如下图）并保存为“E:\1.txt”( Q0 m/ Z; A; `  c% x* w5 A" X
974246( Q* c! ~: ]) L5 W. }: M; c% Q' S
* x. [: [4 n% r  u& ~. I
在VBA编辑器中写如下代码- H4 Z8 B! o" W2 P4 v* O& u+ g
---------------------------------------------------  t* I% k, h* k0 X5 A( G
Sub A()
$ Z8 Y0 O$ }3 n, W) K Dim F As Integer, P( ...9 ^6 |5 |) p3 }. j# \9 {5 h
woaishuijia 发表于 2008-9-11 08:29 http://www.3dportal.cn/discuz/images/common/back.gif

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

回复支持反对

发表于 2010-7-18 05:43:38 | 显示全部楼层来自：中国辽宁铁岭

6# bsese
参考这个帖子 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 )

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