发布日期:2015-12-01 15:28 来源: 标签: 平面设计教程 AutoCAD教程 CAD数据绘图 环境工程CAD应用
本章我们主要学习如何使用CAD连接Excel进行数据绘图?下面我们就做一下具体讲解,希望大家多多支持中国站长网络学院。
今天给大家要讲的东西是一个非常实用且好用的CAD借用EXCEL的数据进行绘图的办法。当然我们在这里需要用到CAD的宏下的VBA功能。
如图,今天就是要完成如何在CAD中画出如下图所示的坐标的图形。
当然如果学会了此种绘图的办法之后,还可以更改数据后进行更高级的绘图了。

AutoCAD 2004正式版与EXCEL。
1、打开CAD工具菜单下宏下的Visual Basic编辑器,新建一个模块,输入如下代码:
Dim xlapp As Excel.Application
Dim xlbook As Excel.workbook
Dim xlsheet As Excel.worksheet
Sub aa() '宏名
Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.workbooks.Open("D:\cadvba\fzcp.xls") '打开的EXCEL路径
xlapp.Visible = False
Set 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 = 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 点 As AcadLine
Dim 起点(2) As Double
Dim 端点(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.Quit
Set xlapp = Nothing
End Sub

同时打开编辑器的工具菜单下的引用,找到Microsoft Excel 11.0 Object Library,如果没有此项,可浏览打开EXCEL启动文件即可。
做好这几步之后就保存编辑内容,然后就可以关闭编辑器了。



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

以下是画弧所用的代码:
Private Sub CommandButton1_Click()
Dim curves(0 To 1) As AcadEntity
Dim centerpoint(0 To 2) As Double
Dim radius As Double
Dim startangle As Double
Dim endangle As Double
centerpoint(0) = (圆心X坐标): centerpoint(1) = (圆心Y坐标): centerpoint(2) = (圆心Z坐标) '{圆心坐标}
radius =(所画弧处圆的半径) '{半径}
startangle = (所画弧起点弧度值) '角度/180*3.141592653
endangle = (所画弧终点弧度值)
Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerpoint, radius, startangle, endangle)
End Sub
(此种办法在进行坐标绘图时可能不会完全全面,只需要你再进行适当简单的修补就行了,总体来讲它可以为我们节省很多时间,并且可以让我们更容易去进行绘图和操作,而且精度都是靠你输入的数值进行保留的。)

相关评论

专题信息
    CAD是一个包括范围很广的概念,概括来说,CAD的设计对象有两大类,一类是机械、电气、电子、轻工和纺织产品;另一类是工程设计产品,即工程建筑,国外简称AEC (Architecture、Engineering和Construction)。而如今,CAD技术的应用范围已经延伸到艺术、电影、动画、广告和娱乐等领域,产生了巨大的经济及社会效益,有着广泛的应用前景。本教程结合环境工程专业绘图实例,由浅人深、循序渐进地介绍了AutoCAD中文版的各种基本操作命令和使用技巧。