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

今天给大家要讲的东西是一个非常实用且好用的CAD借用EXCEL的数据进行绘图的办法。当然我们在这里需要用到CAD的宏下的VBA功能。
如图,今天就是要完成如何在CAD中画出如下图所示的坐标的图形。
当然如果学会了此种绘图的办法之后,还可以更改数据后进行更高级的绘图了。

步骤/方法

  • 01

    打开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

  • 02

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

  • 03

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

  • 04

    以下是画弧所用的代码: 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

(0)

相关推荐

  • Excel工作簿连接(导入)外部数据的方法

    Microsoft Office Excel连接外部数据的主要好处是可以在Excel中定期分析此数据,而不用重复复制数据,复制操作不仅耗时而且容易出错。连接到外部数据之后,还可以自动刷新(或更新)来自 ...

  • 教你用有效性圈出Excel表格中的指定数据

    教你用有效性圈出Excel表格中的指定数据: 考试后老师可能会想把Excel表格中高分用红圈突出显示出来,公司统计时也许也想把特别的数据突出显示出来。这样的要求用Excel的数据有效性就能够轻松完成。 ...

  • 怎么把cad图纸粘贴到wps文档里(CAD导入Excel表格)

    原创: 多思现在办公中越来越常用WPS软件,经常会听见画图狗吐槽:"CAD的问题都还没解决,现在还要结合WPS,每次做完数据分析要把数据以表格的形式呈现在CAD的时候最烦了,只能手敲上去,而 ...

  • 连接Excel时提示找不到可安装的ISAM怎么办

    在平时的工作中,我们时常会使用到连接Excel的相关操作,但连接的过程中会遇见找不到可安装的ISAM,连接失败,这个时候,我们要去注册Excel的ISAM,具体操作如下. 操作方法 01 确认电脑操作 ...

  • 教大家使用Console口连接配置设备的具体步骤

    教大家使用Console口连接配置设备的具体操作步骤 操作方法 01 对网络设备进行初始化配置,或者设备无法通过网络访问时通常会使用Console 口进行设备配置.在使用Console 口连接配置设备 ...

  • 教你怎么操作CAD的看图工具

    用过CAD看图软件的朋友们一定都知道,想要在电脑上查看或者是编辑CAD文件就需要一个CAD快速看图工具.对于有些朋友来说这个工具会显得比较陌生了,现在来教大家如何操作CAD看图工具. 操作方法 01 ...

  • 如何在Excel中数据合并

    今天小编教大家如何在Excel中数据合并. 操作方法 01 方法一:我们先制作好样表,我们现在要把序号和姓名列的内容合并到一个表格.我们选中合并列对应的单元格,然后输入公式:=A2&B2,按回 ...

  • 如何去除excel中数据左上角自带的三角符号

    如何去除excel中数据左上角自带的三角符号呢?下面小编来教大家. 操作方法 01 首先,我们打开我们的电脑,然后我们打开一个excel文档,如图所示,我们可以看到单元格左上角有个自带的三角符号: 0 ...

  • 为Excel表格数据文档设置密码

    工作中常常会有一些Excel文档中的数据需要保密,这时我们可以为Excel表格数据文档设置只读密码或者修改密码。 下面我们先来看看在Excel2007中怎样为文档设置密码。 在Excel2007中点击 ...