关于读取文本的紧急求助!

kevinchan 发表于 2005-3-16 20:45:00

我现在急需要将文本格式(比如hac.txt)的数据根据X,Y坐标和半径Radius调到CAD里面画圆,请各位帮帮忙! 以下是数据的格式.其中"MaximumHeight"是没有用的.
X Y MaximumHeight Radius -38 0 11110 0.0474054054054 -38 0.44 11110 0.0474054054054 -37.6189488223 0.22 11110 0.0476319763759 -38.3810511777 0.22 11110 0.0471788344349 -37.6189488223 -0.22 11110 0.0476319763759 -38.3810511777 -0.22 11110 0.0471788344349 -38 -0.44 11110 0.0474054054054 -38 0.88 11110 0.0474054054054 -37.56 0.76210235533 11110 0.047667027027 -38.44 0.76210235533 11110 0.0471437837838 -37.2378976447 0.44 11110 0.0478585473464 -38.7621023553 0.44 11110 0.0469522634644 -37.12 1.03087894124e-015 11110 0.0479286486486 -38.88 1.03087894124e-015 11110 0.0468821621622 -37.2378976447 -0.44 11110 0.0478585473464 -38.7621023553 -0.44 11110 0.0469522634644 -37.56 -0.76210235533 11110 0.047667027027 -38.44 -0.76210235533 11110 0.0471437837838 -38 -0.88 11110 0.0474054054054 -38 1.32 11110 0.0474054054054

mccad 发表于 2005-3-16 21:39:00

Sub ReadTextDrawCircle()
'数据文件位置
   Dim File As String
   File = "d:/program/vba/data.txt"
   Dim txtLine As String
   Dim Center(2) As Double
   Dim Radius As Double
   Open File For Input As #1
   Line Input #1, txtLine    ' 读第一行标题行。
   Do While Not EOF(1)    ' 循环至文件尾。
            Line Input #1, txtLine    ' 读入一行数据并将其赋予某变量。
            Center(0) = Val(Left(txtLine, 20))                '圆心的X坐标
            Center(1) = Val(Mid(txtLine, 21, 20))          '圆心的Y坐标
            Radius = Val(Right(txtLine, 20))                   '半径
            ThisDrawing.ModelSpace.AddCircle Center, Radius       '画圆
   Loop
   Close #1
   ZoomExtents '缩放到全图
End Sub

kevinchan 发表于 2005-3-17 16:14:00

实在太谢谢老大了!终于搞定了!再谢谢!

kevinchan 发表于 2005-3-17 18:15:00

File = "d:/program/vba/data.txt" 这一句可不可以改成由用户打开并寻找txt文件呢?

mccad 发表于 2005-3-17 22:36:00

可以啊，在实用函数栏目中找吧。

lhlqq 发表于 2005-3-18 09:51:00

CommonDialog1.Filter = "文本文件 (*.txt)|*.txt|" CommonDialog1.DialogTitle = "打开文件" CommonDialog1.FilterIndex = 2 CommonDialog1.ShowOpen File = CommonDialog1.FileName

cqy 发表于 2005-3-18 14:52:00

在此感谢二楼的先生，帮我解决CAD与*.TXT连通问题。

------------------------------------------------------------------------

CQY

kevinchan 发表于 2005-3-18 18:07:00

如果再把修改过的CAD文件(全是圆点)怎么导出到txt中呢?

kevinchan 发表于 2005-3-18 18:38:00

我改了一点，可出现了错误了,怎么办?

Sub ReadTextDrawCircle() '数据文件位置 Dim File As String CommonDialog1.Filter = "TXT文件|*.txt|DAT文件|*.dat" CommonDialog1.DialogTitle = "打开文件" CommonDialog1.ShowOpen File = CommonDialog1.FileName Dim txtLine As String Dim Center(2) As Double Dim Radius As Double Open File For Input As #1 Line Input #1, txtLine ' 读第一行标题行。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, txtLine ' 读入一行数据并将其赋予某变量。 Center(0) = Val(Left(txtLine, 20)) '圆心的X坐标 Center(1) = Val(Mid(txtLine, 21, 20)) '圆心的Y坐标 Radius = Val(Right(txtLine, 20)) '半径 ThisDrawing.ModelSpace.AddCircle Center, Radius '画圆 Loop Close #1 ZoomExtents '缩放到全图 End Sub

wyj7485 发表于 2005-3-19 09:15:00

在窗体中插入CommonDialog控件，添加CommandButton控件：

Private Sub CommandButton1_Click() On Error Resume Next Dim File As String CommonDialog1.Filter = "TXT文件|*.txt|DAT文件|*.dat" CommonDialog1.DialogTitle = "打开文件" CommonDialog1.ShowOpen File = CommonDialog1.FileName

If File = "" Then Exit Sub Dim txtLine As String Dim Center(2) As Double Dim Radius As Double Open File For Input As #1 Line Input #1, txtLine ' 读第一行标题行。 Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, txtLine ' 读入一行数据并将其赋予某变量。 Center(0) = Val(Left(txtLine, 20)) '圆心的X坐标 Center(1) = Val(Mid(txtLine, 21, 20)) '圆心的Y坐标 Radius = Val(Right(txtLine, 20)) '半径 ThisDrawing.ModelSpace.AddCircle Center, Radius '画圆 Loop Close #1 ZoomExtents '缩放到全图 End Sub

页: [1] 2

明经CAD社区's Archiver

关于读取文本的紧急求助!