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

《教你如何使用CAD连接EXCEL进行数据绘图.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.教你如何使用CAD连接EXCEL进行数据绘图今天给大家要讲的东西是一个非常实用且好用的CAD借用EXCEL的数据进行绘图的办法。当然我们在这里需要用到CAD的宏下的VBA功能。如图，今天就是要完成如何在CAD中画出如下图所示的坐标的图形。当然如果学会了此种绘图的办法之后，还可以更改数据后进行更高级的绘图了。步骤阅读百度经验:jingyan.baidu.com工具/原料·AutoCAD2004正式版与EXCEL。百度经验:jingyan.baidu.com步骤/方法1.1打开CAD工具菜单下宏下的VisualBasic编辑器，新建一个模块，输入

2、如下代码：DimxlappAsExcel.ApplicationDimxlbookAsExcel.workbookDimxlsheetAsExcel.worksheetSubaa()'宏名Setxlapp=CreateObject("excel.application")Setxlbook=xlapp.workbooks.Open("D:cadvbafzcp.xls")'打开的EXCEL路径xlapp.Visible=FalseSetxlsheet=xlbook.worksheets("sj")'打开EXCEL中的工作表i=xlsheet.

3、Cells(1,6)'i为线条线数m=xlsheet.Cells(2,6)'这里表示第2行第6列n=xlsheet.Cells(3,6)t=xlsheet.Cells(4,6)Forp=0Toi-2Step1p=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点AsAcadLineDim起点(2)AsDouble

4、Dim端点(2)AsDouble起点(0)=k1+m起点(1)=h1+n起点(2)=k3+t端点(0)=k2+m端点(1)=h2+n端点(2)=h3+tSet点=ThisDrawing.ModelSpace.AddLine(起点,端点)Nextxlbook.Closexlapp.QuitSetxlapp=NothingEndSub步骤阅读1.2同时打开编辑器的工具菜单下的引用，找到MicrosoftExcel11.0ObjectLibrary，如果没有此项，可浏览打开EXCEL启动文件即可。做好这几步之后就保存编辑内容，然后就可以关闭编辑器了。

5、步骤阅读步骤阅读步骤阅读1.3返回CAD后按快捷键Alt+F8启动宏，然后启动名字为aa的那个宏，此时CAD上就会自动将图画好了。步骤阅读1.4以下是画弧所用的代码：PrivateSubCommandButton1_Click()Dimcurves(0To1)AsAcadEntityDimcenterpoint(0To2)AsDoubleDimradiusAsDoubleDimstartangleAsDoubleDimendangleAsDoublecenterpoint(0)=(圆心X坐标):centerpoint(1)=(圆心Y坐标):ce

6、nterpoint(2)=(圆心Z坐标)'{圆心坐标}radius=(所画弧处圆的半径)'{半径}startangle=(所画弧起点弧度值)'角度/180*3.141592653endangle=(所画弧终点弧度值)Setcurves(0)=ThisDrawing.ModelSpace.AddArc(centerpoint,radius,startangle,endangle)EndSubEND百度经验:jingyan.baidu.com注意事项·此种办法在进行坐标绘图时可能不会完全全面，只需要你再进行适当简单的修补就行了，总体来讲它可以为我们

7、节省很多时间，并且可以让我们更容易去进行绘图和操作，而且精度都是靠你输入的数值进行保留的。