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
(付上我的数据和在手工操作出来的图) 展开
我要在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
(付上我的数据和在手工操作出来的图) 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询