autocad中vba如何循环读取excel中的数据

各位高手,小弟我刚学autocad一个星期.现在开始学习autocadvba下的编程.现在遇到一个问题,望大侠们给点帮助.我要在vba下与excel建立通信(这以解决),... 各位高手,小弟我刚学autocad 一个星期.现在开始学习autocad vba下的编程.现在遇到一个问题,望大侠们给点帮助.

我要在vba下与excel建立通信(这以解决),然后从excel中读取(有好几千行)A B C三列数据,既x y z的坐标,然后想同过一个3Dmesh的命令来生成三维模型我想通过一个循环依次读取 x1 y1 z1,x2 y2 z2,.....的数据.请高手帮助我如何来循环读取这写数据.我刚刚学习,还不是很懂这autocad.

下面是我通过的一个用两个点建立一条直线的程序

Public Sub BlkAttr_Extract()

Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object

\'创建Excel应用程序实例
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
Set Excel = CreateObject("Excel.Application")
End If

\'创建一个新工作簿
Set ExcelWorkbook = Excel.Workbooks.Open("demo.xls")
\'确保Sheet1工作表为当前工作表
Set ExcelSheet = Excel.ActiveSheet
\'将新创建的工作簿保存为Excel文件

Dim lineObj As AcadLine
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double

startPoint(0) = ExcelSheet.Cells(1, 1).Value \'将EXCEL中A1的值赋予startPoint(0)

startPoint(1) = ExcelSheet.Cells(1, 2).Value \'将EXCEL中B1的值赋予startPoint(1)

startPoint(2) = ExcelSheet.Cells(1, 3).Value \'将EXCEL中C1的值赋予startPoint(2)

endPoint(0) = ExcelSheet.Cells(2, 1).Value \'将EXCEL中A2的值赋予endPoint(0)

endPoint(1) = ExcelSheet.Cells(2, 2).Value \'将EXCEL中B2的值赋予endPoint(1)

endPoint(2) = ExcelSheet.Cells(2, 3).Value \'将EXCEL中C2的值赋予endPoint(2)

Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
ZoomAll

excelApp.Quit

End Sub

现在我想用一个3dmesh来生成一个三维图形想同过循环来读取.

Public Sub BlkAttr_Extract()

Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object

\'创建Excel应用程序实例
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err <> 0 Then
Set Excel = CreateObject("Excel.Application")
End If

\'创建一个新工作簿
Set ExcelWorkbook = Excel.Workbooks.Open("三维曲线.xls")
\'确保Sheet1工作表为当前工作表
Set ExcelSheet = Excel.ActiveSheet
\'将新创建的工作簿保存为Excel文件
Dim meshObj As AcadPolygonMesh

Dim mSize,nSize,Count As Integer

(这里需要一个循环体,来依次读取excel中的X1 Y1 Z1,X2 Y2 Z2,.....我遍不出来了这里,请高手帮助)

mSize =... : nSize =...'(这是M 和N的网格数用...表示,)

Set meshObj = ThisDrawing.ModelSpace.Add3DMesh(mSize, nSize, startPoint)

ZoomAll

excelApp.Quit

End Sub

(付上我的数据和在手工操作出来的图)
展开
 我来答
张各庄小孩
2014-04-08
知道答主
回答量:3
采纳率:0%
帮助的人:4031
展开全部
你可以设置双循环 定义参数,类似于C++ 的i++
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式