利用VBA编程实现从EXCEL表到AUTOCAD表转换

利用VBA编程实现从EXCEL表到AUTOCAD表转换

利用VBA编程实现从EXCEL表到AUTOCAD表转换

新疆交通科学研究所

查拥军

---- 一、前言

---- Microsoft Excel 软件具有十分强大的制表、表格计算等功能，是普通人员常用的制表工具。可以通过其内嵌的VBA语言可以控制Microsoft Excel 的整个操作过程。

---- AutoCAD是由AutoDesk公司的工程绘图软件，是CAD市场的主流产品，功能十分强大，是工程制图人员常用的软件之一。AutoDesk公司从R14版以后，为其提供了VBA语言接口。

---- 在工程制图中，常常需要在图中插入绘制表格，一般有两种方法。其一，是利用剪贴板，将Microsoft Excel表格拷贝至剪贴板中，然后打开AutoCAD文件，再将剪贴板中的文件粘贴至所需位置。这种方法十分简单，但有其固有的缺点。①在保存文件必须将.xls和.dwg文件保存在一起，一旦缺少excel环境，则再对表格继续修改。②同时打开多个表格操作，需要占据较大的内存空间。③文件体积变得很大，表格有时在.dwg文件中以图标形式显示，不便于观察。

---- 第二种方法，即利用Microsoft Excel、AutoCAD都提供的VBA功能，编制程序进行转换，将Microsoft Excel表格按原来样子转换，即把Microsoft Excel表格中的文字和线条信息全部读取出来，在AutoCAD文件里按照一一对应的方式写出来，确保转换后的表格与原表格一致。这样彻底避免了前种方法的缺点，便于表格内容编辑。本文着重介绍此方法。

---- 二、表格转换工作机理分析及具体实现方法

---- 1．表格转换工作机理分析

---- 在制表过程中，经常遇到两个概念，表和方格。

---- 在Microsoft Excel中，与表对应的对象是工作表（Sheet或Worksheet）,与每一个表格方格相对应的对象是单元格区域（range），它可以仅包括一个单元格（cell）,也可以由多个单元格合并而成。

---- 在AutoCAD中，没有与表对应的对象，但表可以理解由若干条线和文字对象组合而成。

---- 根据上述分析，可以发现如下的转换方法：

---- 读取Microsoft Excel文件中的最小对象----单元格区域(range)的主要信息---线条和文字，然后在AutoCAD文件里在指定图层、位置画线条，书写文字。通过循环，遍历所有单元格区域(range),边读边写，最终完成表格的转换。转换过程中，保持线条、文字及其相关属性不发生改变。

---- 下面就转换工作的两个主要对象表格线条和表格文字进行讨论。

---- 2、表格线条的转换

---- Microsoft Excel 中内嵌的VBA为我们获取Excel文件信息提供了极大便利。通常，通过访问range

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库利用VBA编程实现从EXCEL表到AUTOCAD表转换在线全文阅读。