CAD如何连接Excel进行数据绘图(cad数据链接excel)优质

扫码添加渲大师小管家，免费领取渲染插件、素材、模型、教程合集大礼包！

CAD能够通过借用Excel的数据进行绘图。当然我们在这里需要用到CAD的宏下的vba功能。如果学会了此种绘图的办法之后。还可以更改数据后进行更高级的绘图了。那么一起来看看CAD如何连接Excel进行数据绘图的吧！

如果大家想要学习更多的“Excel”相关内容。点击这里可学习Excel免费课程>>

工具/软件

硬件型号：小新Pro14

系统版本：Windows7

所需软件：Excel。CAD

步骤/方法

第1步

打开CAD工具菜单下宏下的Visual Basic编辑器。新建一个模块。输入如下代码：

Dim xlapp As Excel.Application

Dim xlbook As Excel.workbookDim xlsheet As Excel.worksheetSub aa() '宏名

Set xlapp = CreateObject("excel.application")

Set xlbook = xlapp.workbooks.Open("D:\cadvba\fzcp.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 1

p = 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 AcadLine

Dim 起点(2) As DoubleDim 端点(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

xlapp.QuitSet xlapp = Nothing

End Sub

第2步

同时打开编辑器的工具菜单下的引用。找到Microsoft Excel 11.0 Object Library。如果没有此项。可浏览打开EXCEL启动文件即可。

做好这几步之后就保存编辑内容。然后就可以关闭编辑器了。

第3步

返回CAD后按快捷键Alt+F8启动宏。然后启动名字为aa的那个宏。此时CAD上就会自动将图画好了。

第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 Double

centerpoint(0) = (圆心X坐标): centerpoint(1) = (圆心Y坐标): centerpoint(2) = (圆心Z坐标) '{圆心坐标}

radius =(所画弧处圆的半径) '{半径}startangle = (所画弧起点弧度值) '角度/180*3.141592653endangle = (所画弧终点弧度值)

Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerpoint, radius, startangle, endangle)

End Sub

以上关于“CAD如何连接Excel进行数据绘图(cad数据链接excel)”的内容小渲今天就介绍到这里。希望这篇文章能够帮助到小伙伴们解决问题。如果觉得教程不详细的话。可以在本站搜索相关的教程学习哦！

以上是由资深渲染大师 小渲 整理编辑的，如果觉得对你有帮助，可以收藏或分享给身边的人