教你如何使用CAD连接EXCEL进行数据绘图.doc

.教你如何使用CAD连接EXCEL进行数据绘图今天给大家要讲的东西是一个非常实用且好用的CAD借用EXCEL的数据进行绘图的办法。当然我们在这里需要用到CAD的宏下的VBA功能。如图，今天就是要完成如何在CAD中画出如下图所示的坐标的图形。当然如果学会了此种绘图的办法之后，还可以更改数据后进行更高级的绘图了。步骤阅读百度经验:工具/原料 AutoCAD 2004正式版与EXCEL。百度经验:步骤/方法1. 1打开CAD工具菜单下宏下的Visual Basic编辑器，新建一个模块，输入如下代码：Dim xlapp As Excel.ApplicationDim xlbook As Excel.workbookDim xlsheet As Excel.worksheetSub aa() 宏名Set xlapp = CreateObject(excel.application)Set xlbook = xlapp.workbooks.Open(D:cadvbafzcp.xls) 打开的EXCEL路径xlapp.Visible = FalseSet xlsheet = xlbook.worksheets(sj) 打开EXCEL中的工作表i = xlsheet.Cells(1, 6) i为线条线数m = xlsheet.Cells(2, 6) 这里表示第2行第6列n = xlsheet.Cells(3, 6)t = xlsheet.Cells(4, 6)For p = 0 To i - 2 Step 1p = pk1 = xlsheet.Cells(2 + p, 1)h1 = xlsheet.Cells(2 + p, 2)k3 = xlsheet.Cells(2 + p, 3)k2 = xlsheet.Cells(3 + p, 1)h2 = xlsheet.Cells(3 + p, 2)h3 = xlsheet.Cells(3 + p, 3)Dim 点 As AcadLineDim 起点(2) As DoubleDim 端点(2) As Double起点(0) = k1 + m起点(1) = h1 + n起点(2) = k3 + t端点(0) = k2 + m端点(1) = h2 + n端点(2) = h3 + tSet 点 = ThisDrawing.ModelSpace.AddLine(起点, 端点)Nextxlbook.Closexlapp.QuitSet xlapp = NothingEnd Sub步骤阅读2. 2同时打开编辑器的工具菜单下的引用，找到Microsoft Excel 11.0 Object Library，如果没有此项，可浏览打开EXCEL启动文件即可。做好这几步之后就保存编辑内容，然后就可以关闭编辑器了。步骤阅读步骤阅读步骤阅读3. 3返回CAD后按快捷键Alt+F8启动宏，然后启动名字为aa的那个宏，此时CAD上就会自动将图画好了。步骤阅读4. 4以下是画弧所用的代码：Private Sub CommandButton1_Click()Dim curves(0 To 1) As AcadEntityDim centerpoint(0 To 2) As DoubleDim radius As DoubleDim startangle As DoubleDim endangle As Doublecenterpoint(0) = (圆心X坐标): centerpoint(1) = (圆心Y坐标): centerpoint(2) = (圆心Z坐标) 圆心坐标radius =(所画弧处圆的半径) 半径startangle = (所画弧起点弧度值) 角度/180*3.141592653endangle = (所画弧终点弧度值) Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerpoint, radius, startangle, endangle)End SubEND百度经验:注意事项 此种