将excel数据导入CAD画图的方法

将EXCEL的数据导入CAD里绘图的方法这是用CAD的VBA（cad里的lisp功能也可以实现）的方法。此例是要完成如何在CAD中画出如下图所示的坐标的图形——3D折线（另画一圆弧）。当然如果学会了此种绘图的办法之后，还可以照葫芦画瓢地进行更高级的绘图了。这也只是抛砖引玉而已。一、新建excel工作簿,命名为EAHT,保存于D:\cadvba文件夹内(无此文件夹可新建，若存于别处则需相应修改一下代码中路径代码)，将一工作表命名为EAT,并在其相应位置填入数据(文字备注可不填),保存备用.如图1.坐标X坐标Y坐标Z线条数8005X偏离121005Y偏离1210205Z偏离1202050200102001000000画圆弧半径起始角终点角XYZrα（弧度）β（弧度）000500.52362.6180圆心坐标二、用宏画图1.打开CAD，单击CAD界面工具菜单→宏→VisualBasic编辑器，打开VBA编辑器。(快捷键alt+F1，若一次不行就再按一次)。2.单击VisualBasic界面插入→模块，主页面会打开模块代码窗口，向其输入如下代码（画折线的）：DimxlappAsExcel.ApplicationDimxlbookAsExcel.workbookDimxlsheetAsExcel.worksheetSubzx()'宏名-折线（轴测图或动态观察可见3D效果）Setxlapp=CreateObject(excel.application)Setxlbook=xlapp.workbooks.Open(D:\cadvba\eaht.xlsx)'打开EXCEL的路径及名称，早期‘excel的扩展名是xls。xlapp.Visible=False’隐藏工作簿Setxlsheet=xlbook.worksheets(eat)'选用EXCEL中名为“eat”的工作表中的数据i=xlsheet.Cells(1,6)'i为线条线数m=xlsheet.Cells(2,6)'这里表示第2行第6列那个单元格里的数值n=xlsheet.Cells(3,6)T=xlsheet.Cells(4,6)Forp=0Toi-2Step1k1=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)AsDoubleDim端点(2)AsDouble起点(0)=k1+m起点(1)=h1+n起点(2)=k3+T端点(0)=k2+m端点(1)=h2+n端点(2)=h3+TSet直线=ThisDrawing.ModelSpace.AddLine(起点,端点)NextZoomExtents'缩放至满幅xlbook.Closexlapp.QuitSetxlapp=NothingEndSub3.打开vba编辑器的工具→引用，从引用对话窗找到MicrosoftExcelxx.xObjectLibrary，点击其左边的□，出现勾符号（如果没有此项，可浏览打开EXCEL.exe文件即可，文件位置一般此是C:\ProgramFiles\MicrosoftOffice\Officexx，其扩展名可能未显示），然后确定。4.做好这几步之后就保存编辑内容，然后点击工具栏上的▲（向右）或按F5或点击工具菜单→运行就可以画出折线了，到cad界面可见。或返回CAD后按快捷键Alt+F8（一次不行就再按一次）启动宏，然后选中名字为zx的那个宏（工程中只有一个宏是默认选中），点击运行按钮，此时CAD界面上就会自动将图画出来（轴测图或动态观察可见3D效果）。三、用窗体画图1.打开CAD，单击CAD界面工具菜单→宏→VisualBasic编辑器，打开VBA编辑器。(快捷键alt+F1，若一次不行就再按一次)。2.单击VisualBasic界面插入→用户窗体，主页面会出现窗体窗口，加入控件，标签不是必须，控件属性可以默认。双击窗体打开窗体代码窗口，向其输入如下代码（画圆弧）：PrivateSubCommandButton1_Click()'Dimcurves(0To1)AsAcadEntityDimcenterpoint(0To2)AsDoubleDimradiusAsDoubleDimstartangleAsDoubleDimendangleAsDouble'Debug.PrintOptionButton1_Debug.PrintOptionButton2IfTextBox1=ThenSetxlapp=CreateObject(excel.application)Setxlbook=xlapp.workbooks.Open(D:\cadvba\eaht.xlsx)'打开的EXCEL路径xlapp.Visible=FalseSetxlsheet=xlbook.worksheets(eat)'打开EXCEL中名为“eat”的工作表centerpoint(0)=xlsheet.Cells(14,1)'(圆心X坐标):centerpoint(1)=xlsheet.Cells(14,2)'(圆心Y坐标):centerpoint(2)=xlsheet.Cells(14,3)'(圆心Z坐标)'{圆心坐标}radius=xlsheet.Cells(14,4)'(所画弧处圆的半径)'{半径}startangle=xlsheet.Cells(14,5)'(所画弧起点弧度值)'角度/180*3.141592653endangle=xlsheet.Cells(14,6)'(所画弧终点弧度值)Elsecenterpoint(0)=TextBox1centerpoint(1)=TextBox2centerpoint(2)=TextBox3radius=TextBox4IfOptionButton1=TrueAndOptionButton2=FalseThenstartangle=TextBox5/180*3.1416endangle=TextBox6/180*3.1416ElseIfOptionButton1=FalseAndOptionButton2=TrueThenstartangle=TextBox5endangle=TextBox6ElseMsgBox角度单位不明确EndIfEndIfSetcurves(0)=ThisDrawing.ModelSpace.AddArc(centerpoint,radius,startangle,endangle)ZoomExtentsEndSub3.做好这几步之后就保存编辑内容，然后点击工具栏上的▲（向右）或按F5或点击工具菜单→运行就会出现用户窗体，若用excel中数据画弧就点击命令按钮-画弧，若用窗体改变参数就向窗体填数并选择角度单位，然后点击画弧按钮，然后，到cad界面可见既定圆弧线。注意：1.如果画弧程序不是与折线程序做在同一工程中，则全局变量要在模块中另行定义，并引用MicrosoftExcelxx.xObjectLibrary。2.CAD2010以后不带VBA，需要另行安装。本文借鉴：