1、电脑打开Excel表格,先列好X和Y轴数据。
2、在E列中输入公式=C18&","&D18。
3、输入合并XY轴后,选中复制所有数据。
4、复制数据后打开CAD,先输入PL,多段线命令。
5、输入PL后,在命令栏中按Ctrl+V粘贴刚才的数据。
6、就会自动生成一个图形了。
举个例子: 假如根据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中就可以根据表格中的数据实现自动绘图,这只是举了一个简单的例子。希望能够帮助到你。