|
|
各位高手,小弟我刚学 一个星期.现在开始学习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
(付上我的数据和在手工操作出来的图) |
|
置顶卡
