將excel数据导入CAD画图的方法.docxVIP

将EXCEL的数据导入CAD里绘图的方法这是用CAD的VBA（cad里的lisp功能也可以实现）的方法。此例是要完成如何在CAD中画出如下图所示的坐标的图形——3D折线（另画一圆弧）。当然如果学会了此种绘图的办法之后，还可以照葫芦画瓢地进行更高级的绘图了。这也只是抛砖引玉而已。一、新建excel工作簿,命名为EAHT,保存于D:\cadvba文件夹内 (无此文件夹可新建，若存于别处则需相应修改一下代码中路径代码) ，将一工作表命名为EAT,并在其相应位置填入数据(文字备注可不填),保存备用.如图1. 二、用宏画图1. 打开CAD，单击CAD界面工具菜单→宏→Visual Basic编辑器，打开VBA编辑器。(快捷键alt+F1，若一次不行就再按一次)。2.单击Visual Basic界面插入→模块，主页面会打开模块代码窗口，向其输入如下代码（画折线的）：Dim xlapp As Excel.ApplicationDim xlbook As Excel.workbookDim xlsheet As Excel.worksheetSub zx() 宏名-折线（轴测图或动态观察可见3D效果）Set xlapp = CreateObject(excel.application)Set xlbook = xlapp.workbooks.Open(D:\cadvba\eaht.xlsx) 打开EXCEL的路径及名称，早期‘excel的扩展名是xls。xlapp.Visible = False’ 隐藏工作簿Set xlsheet = 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)For p = 0 To i - 2 Step 1k1 = 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(起点, 端点)NextZoomExtents 缩放至满幅xlbook.Closexlapp.QuitSet xlapp = NothingEnd Sub3.打开vba编辑器的工具→引用，从引用对话窗找到Microsoft Excel xx.x Object Library，点击其左边的□，出现勾符号（如果没有此项，可浏览打开EXCEL.exe文件即可，文件位置一般此是C:\Program Files\Microsoft Office\Officexx，其扩展名可能未显示），然后确定。4.做好这几步之后就保存编辑内容，然后点击工具栏上的▲（向右）或按F5或点击工具菜单→运行就可以画出折线了，到cad界面可见。或返回CAD后按快捷键Alt+F8（一次不行就再按一次）启动宏，然后选中名字为zx的那个宏（工程中只有一个宏是默认选中），点击运行按钮，此时CAD界面上就会自动将图画出来（轴测图或动态观察可见3D效果）。三、用窗体画图1. 打开CAD，单击CAD界面工具菜单→宏→Visual Basic编辑器，打开VBA编辑器。(快捷键alt+F1，若一次不行就再按一次)。2.单击Visual Basic界面插入→用户窗体，主页面会出现窗体窗口，加入控件，标签不是必须，控件属性可以默认。双击窗体打开窗体代码窗口，向其输入如下代码（画圆弧）：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 DoubleDebug.Print OptionButton1 _ Debug.Print OptionButton2