首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 作文大全 > 正文

    excel数据绘图 [怎样运用AutoCAD连接excel进行数据绘图]

    时间：2018-08-08来源：山茶花美文网 本文已影响 人 山茶花美文网手机站

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

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

    怎样运用AutoCAD连接excel进行数据绘图1

    具体操作步骤如下所示：

    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:cadvbafzcp.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

    怎样运用AutoCAD连接excel进行数据绘图2

    2、同时打开编辑器的工具菜单下的引用，找到Microsoft Excel 11.0 Object Library，如果没有此项，可浏览打开EXCEL启动文件即可。

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

    怎样运用AutoCAD连接excel进行数据绘图3
    怎样运用AutoCAD连接excel进行数据绘图4

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

    怎样运用AutoCAD连接excel进行数据绘图5

    4、以下是画弧所用的代码：

    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

    注意事项

    此种办法在进行坐标绘图时可能不会完全全面，只需要你再进行适当简单的修补就行了，总体来讲它可以为我们节省很多时间，并且可以让我们更容易去进行绘图和操作，而且精度都是靠你输入的数值进行保留的。

    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文excel数据绘图 [怎样运用AutoCAD连接excel进行数据绘图] 由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.