2024年5月7日发(作者：)

将EXCEL的数据导入CAD里绘图的方法

这是用CAD的VBA（cad里的lisp功能也可以实现）的方法。此例是要完成如何在CAD中画

出如下图所示的坐标的图形——3D折线（另画一圆弧）。当然如果学会了此种绘图的办法之后，还可

以照葫芦画瓢地进行更高级的绘图了。这也只是抛砖引玉而已。

一、新建excel工作簿,命名为"EAHT",保存于D:cadvba文件夹内 (无此文件夹可新建，若存于

别处则需相应修改一下代码中路径代码) ，将一工作表命名为"EAT",并在其相应位置填

入数据(文字备注可不填),保存备用.如图1.

坐标X

0

10

10

0

0

10

10

0

坐标Y

0

0

20

20

20

20

0

0

画圆弧

圆心坐标

Y

0

坐标Z

5

5

5

5

0

0

0

0

线条数

X偏离

Y偏离

Z偏离

8

12

12

12

X

0

Z

0

半径

r

50

起始角终点角

α（弧度）β（弧度）

0.52362.6180

二、用宏画图

1. 打开CAD，单击CAD界面工具菜单→宏→Visual Basic编辑器，打开VBA编辑器。(快捷键

alt+F1，若一次不行就再按一次)。

2.单击Visual Basic界面插入→模块，主页面会打开模块代码窗口，向其输入如下代码（画折线

的）：

Dim xlapp As ation

Dim xlbook As ok

Dim xlsheet As eet

Sub zx() '宏名-折线（轴测图或动态观察可见3D效果）

Set xlapp = CreateObject("ation")

Set xlbook = ("D:") '打开EXCEL的路径及名称，

早期

‘excel的扩展名是xls。

e = False’ 隐藏工作簿

Set xlsheet = eets("eat") '选用EXCEL中名为“eat”的工作表中的数据

i = (1, 6) 'i为线条线数

m = (2, 6) '这里表示第2行第6列那个单元格里的数值

n = (3, 6)

T = (4, 6)

For p = 0 To i - 2 Step 1

k1 = (2 + p, 1)