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

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

今天给大家要讲的东西是一个非常实用且好用的CAD借用EXCEL的数据进行绘图

的方法。当然我们在这里需要用到CAD的宏下的VBA功能。

如图，今天就是要完成如何在CAD中画出如以下图所示的坐标的图形。

当然如果学会了此种绘图的方法之后，还可以更改数据后进行更高级的绘图了。

工具/原料

AutoCAD2004正式版与EXCEL。

步骤/方法

1.1

打开CAD工具菜单下宏下的VisualBasic编辑器，新建一个模块，输入

如下代码：

DimxlappAsExcel.Application

DimxlbkAsExcel.workbk

DimxlsheetAsExcel.worksheet

Subaa()宏名

1/6

Setxlapp=CreateObject(excel.application)

Setxlbook=xlapp.workbooks.Open(D:\cadvba\fzcp.xls)打开的

EXCEL路径

xlapp.Visible=False

Setxlsheet=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)

Forp=0Toi-2Step1

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点AsAcadLine

Dim起点(2)AsDouble

Dim端点(2)AsDouble

起点(0)=k1+m

起点(1)=h1+n

起点(2)=k3+t

端点(0)=k2+m

端点(1)=h2+n

端点(2)=h3+t

Set点=ThisDrawing.ModelSpace.AddLine(起点,端点)

Next

2/6

xlbook.Close

xla.Quit

Setxla=Nothing

EndSub

2.2

同时打开编辑器的工具菜单下的引用，找到MicrosoftExcel11.0Obje

ctLibrary，如果没有此项，可浏览打开EXCEL启动文件即可。

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

3/6

3.3

返回CAD后按快捷键Alt+F8启动宏，然后启动名字为aa的那个宏，此时

CAD上就会自动将图画好了。

4/6

4.4

以下是画弧所用的代码：

PrivateSubCommandButton1_Click()

Dimcurves(0To1)AsAcadEntity

Dimcenterpoint(0To2)AsDouble

DimradiusAsDouble

DimstartangleAsDouble

DimendangleAsDouble

centerpoint(0)=(圆心坐标):centerpoint(1)=(圆心Y坐标):c

enterpoint(2)=(圆心Z坐标){圆心坐标}