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

. . 教你如何使用 CAD连接 EXCEL进行数据绘图 今天给大家要讲的东西是一个非常实用且好用的 CAD借用 EXCEL的数据进行绘图 的办法。当然我们在这里需要用到 CAD的宏下的 VBA功能。 如图，今天就是要完成如何在 CAD中画出如下图所示的坐标的图形。 当然如果学会了此种绘图的办法之后，还可以更改数据后进行更高级的绘图了。 工具 / 原料 ? AutoCAD 2004正式版与 EXCEL。 步骤 / 方法 1. 1 打开 CAD工具菜单下宏下的 Visual Basic 编辑器，新建一个模块，输入 如下代码： Dim xlapp As Excel.Application Dim xlbook As Excel.workbook Dim xlsheet As Excel.worksheet Sub aa() 宏名 ;. . Set xlapp = CreateObject(excel.application) Set xlbook = xlapp.workbooks.Open(D:\cadvba\fzcp.xls) 打开的 EXCEL路径 xlapp.Visible = False Set 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 1 p = p k1 = 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 AcadLine Dim 起点 (2) As Double Dim 端点 (2) As Double 起点 (0) = k1 + m 起点 (1) = h1 + n 起点 (2) = k3 + t 端点 (0) = k2 + m 端点 (1) = h2 + n 端点 (2) = h3 + t Set 点 = ThisDrawing.ModelSpace.AddLine( 起点 , 端点 ) Next ;. . xlbook.Close