如何利用Excel中的数据直接导入CAD绘图

Question

如题所述

Answer 1

举个例子： 假如根据B2单元格中的半径画一个圆

步骤：

打开EXCEL，在B2单元格中输入一个圆的半径100

按快捷键Alt+F11打开VBA编辑器并插入一个模块

引用CAD库(前提是电脑上要装CAD软件):工具--引用-autoCAD 2007 Type Library（不同的版本只是数据有所变化有可能是2008,2009,2010,2012等)

输入代码

Sub tw()
Dim cad As New AutoCAD.AcadApplication '定义cad变量为一个CAD应用程序
cad.Documents.Add '新建CAD文件
cad.Visible = True '显示出来
Dim p(2) As Double '定义一个圆心的坐标
p(0) = 100: p(1) = 100: p(2) = 0 '为圆心赋值，即圆心的X值为100,Y值为100,Z值为0
cad.ActiveDocument.ModelSpace.AddCircle p, Range("b1").Value '以点(100,100)为圆心画圆
End Sub




点上面的小三角运行,就可以画出一个圆

不知道你发现没有，其实在我们的EXCEL VBA中就可以根据表格中的数据实现自动绘图，这只是举了一个简单的例子。希望能够帮助到你。