[求助][如何循环读取excel中的数据来建立生成三维模型]

huwanjie

各位高手,小弟我刚学AutoCAD 一个星期.现在开始学习autocad vba下的编程.在明经上也看了一些帖子.现在遇到一个问题,望大侠们给点帮助.

我要在vba下与excel建立通信(这以解决),然后从excel中读取(有好几千行)A B C三列数据,既x y z的坐标,然后想同过一个3Dmesh的命令来生成三维模型我想通过一个do loop循环读取这 x y z的数据.请高手帮助我如何来循环读取这写数据.我刚刚学习,还不是很懂这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中B1的值赋予startPoint(2)

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

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

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

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

excelApp.Quit

End Sub

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

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

DO

(我遍不出来了这里,请高手帮助)

LOOP

mSize = 73: nSize = 21'(这是M 和N的网格,)

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

  ZoomAll

excelApp.Quit

 End Sub

(付上我的数据和在手工操作出来的图)