维普资讯 http://www.cqvip.com 四川测绘第３１卷第４期２００８年８月 １６５ 利用ＡｕｔｏＣＡＤ ＶＢＡ编程实现从ＥＸＣＥＬ表 到ＡＵＴＯＣＡＤ文件转换的探讨 孟金龙 杜良法 （１．山东正元地理信息工程有限责任公司，山东济南２５００１４； ２．中国地质大学地球物理与信息技术学院，北京１ ００８３） ［摘要］本文对表格文件转换工作机理进行了分析，阐述了表格线条和表格文字的转换过程，提高了在ＡｕｔｏＣＡＤ 中文字标注的灵活性。 ［关键词］表格文件转换；Ｅｘｃｅｌ；ＡｕｔｏＣＡＤ ［中图分类号３Ｐ２８３．７ ［文献标识码］Ｂ ［文章编号］１００１—８３７９（２００８）０４—０１６５—０３ Ｔｈｅ Ｔａｂｌｅ Ｆｉｌｅ Ｃｏｎｖｅｒｓｉｏｎ ｆｒｏｍ Ｅｘｃｅｌ ｔｏ ＡｕｔｏＣＡＤ ｂｙ ＡｕｔｏＣＡＤ ＶＢＡ Ｐｒｏｇｒａｍｍｉｎｇ ＭＥＮＧＪｉｎ—ｌｏｎｇ￣ＤＵＬｉａｎｇ－ｆａ （１．Ｓｈａｎｄｏｎｇ Ｚｈｅｎｇｙｕａｎ Ｇｅｏｇｒａｐｈｉｃａｌ Ｉｎｆｏｒｍａｔｉｏｎ Ｅｎｇｉｎｅｅｒｉｎｇ Ｃｏ．Ｌｔｄ．，Ｊｉｎａｎ ２５００１４，Ｃｈｉｎａ； ２．Ｓｃｈｏｏｌ ｏｆ Ｇｅｏｐｈｙｓｉｃｓ ａｎｄ Ｉｎｆｏｒｍａｔｉｏｎ Ｔｅｃｈｎｏｌｏｇｙ，Ｃｈｉｎａ Ｕｎｉｖｅｒｓｉｔｙ ｏｆ Ｇｅｏｓｃｉｅｎｃｅｓ，Ｂｅｉｊｉｎｇ １ ０００８３，Ｃｈｉｎａ） Ａｂｓｔｒａｃｔ：Ｔｈｉｓ ｐａｐｅｒ ａｎａｌｙｓｅｓ ｗｏｒｋｉｎｇ ｐｒｉｎｃｉｐｌｅ ｏｆ ｔｈｅ ｔａｂｌｅ ｆｉｌｅ ｃｏｎｖｅｒｓｉｏｎ．Ｔｈｅ ａｕｔｈｏｒ ｓｔａｔｅｓ ｔｈｅ ｃｏｎｖｅｒｓｉｏｎ ｏｆ ｔｈｅ ｔａｂｌｅ ｌｉｎｅ ａｎｄ ａｔｂｌｅ ｃｈａｒａｃｔｅｒｓ．Ｉｔ ｉｓ ａｎ ｅａｓｙ ｗａｙ ｔｏ ｉｍｐｒｏｖｅ ｔｈｅ ｃｈａｒａｃｔｅｒｓ ｌａｂｅｌｉｎｇ ｉｎ ＡｕｔｏＣＡＤ． Ｋｅｙ ｗｏｒｄｓ：Ｔａｂｌｅ ｆｉｌｅ ｃｏｎｖｅｒｓｉｏｎ；Ｅｘｃｅｌ；ＡｕｔｏＣＡＤ １ 前言 在制表过程中，经常遇到两个概念，表和方格。 在Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ中，与表对应的对象是工作表 在工程制图中，常常需要在图中插入表格，一 （Ｓｈｅｅｔ或Ｗｏｒｋｓｈｅｅｔ），与每一个表格方格相对应 般有两种方法。第一种方法是利用：剪贴板，将 的对象是单元格区域（ｒａｎｇｅ），它可以仅包括一个 Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ表格拷贝至剪贴板中，然后打开 单元格（ｃｅｌ１），也可以由多个单元格合并而成。在 ＡｕｔｏＣＡＤ文件，再将剪贴板中的文件粘贴至所需位‘ ＡｕｔｏＣＡＤ中，没有与表对应的对象，但表可以理解由 置。这种方法十分简单，但有其固有的缺点。①在 若干条线和文字对象组合而成。根据上述分析，可 保存文件时必须将．ｘｌｓ和．ｄｗｇ文件保存在一起，一 以发现如下的转换方法： 旦缺少ｅｘｃｅｌ环境，则需再对表格继续修改。②同 读取Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ文件中的最小对象～单 时打开多个表格操作，需要占据较大的内存空间。 元格区域（ｒａｎｇｅ）的主要信息——线条和文字，然 ③文件体积很大，表格有时在．ｄｗｇ文件中以图标形 后在ＡｕｔｏＣＡＤ文件里在指定图层、位置画线条，书 式显示，不便于观察。第二种方法是利用Ｍｉｃｒｏｓｏｆｔ 写文字。通过循环，遍历所有单元格区域（ｒａｎｇｅ）， Ｅｘｃｅｌ、ＡｕｔｏＣＡＤ都提供的ＶＢＡ功能，编程进行转换， 边读边写，最终完成表格的转换。转换过程中，保 将Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ表格按原来样子转换，即把 持线条、文字及其相关属性不发生改变。 Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ表格中的文字和线条信息全部读取 ２．２表格线条的转换 出来，在ＡｕｔｏＣＡＤ文件里按照一一对应的方式写出 Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ中内嵌的ＶＢＡ为我们获取 来，确保转换后的表格与原表格一致。这样彻底避 Ｅｘｃｅｌ文件信息提供了极大便利。通常，通过访问 免了前种方法的缺点，便于表格内容编辑。本文着 ｒａｎｇｅ对象，可以获得许多信息。访问分析表格的属 重介绍了此方法。 性应从分析ｒａｎｇｅ开始。每一个ｒａｎｇｅ包括许多对 ２表格转换工作机理分析及具体实现方法 象和属性，例如，ｆｏｎｔ对象可以返回ｒａｎｇｅ的字体 信息。通过遍历，即可获得整个表格信息。获取表格 ２．１表格转换工作机理分析 信息的目的在于准确地按照位置画表格线，同时确 维普资讯 http://www.cqvip.com 四川测绘第３１卷第４期２００８年８月 定文字位置。在获取表格信息时，存在一个最佳算 法问题。以下就画线问题为例，阐述问题和解决方 法。假设表格由、ａ（ａ＞：１）行ｂ（ｂ＞：１）１列组成， ｘ、 ｙ为 ２．３．１表格文字本身的转换 分析ＡｄｄＭＴｅｘｔ命令可以得出：表格文字所在位 置、文字内容宽度和文字内容，均可通过此命令来 循环变量，表格完全由单元格组成，由于在每个单 元格都有４条边，让ｘ从ｌ开始循环到ａ，再 ｙ从１ 开始循环到ｂ，读取每个单元格的４条边，会读取 ａ，ｂ＊４次，重复读取ａ，ｂ＊２次。当ｘ＝ｌ时，读取上边； 当ｙ＝ｌ时读取左边；其余情况读取右边，下边。共 读取ａ＋ｂ＋ａ，ｂ＊２次。以３行４列为例，共读取 ３＋４＋３．４．２＝３１次，与实际表格的边数相同，没有重 复读取。 添加。然而表格文字字体、大小、倾斜、加粗等却 不能。一般的方法是采用修改字体形文件的方法来 实现，方法烦琐，不便于实现，而且仅对修改过形 文件的字体有效。况且当同一文字块内的不同文字 的字体、大小、倾斜、加粗不同时，使用修改字体 形文件的方法也无法实现。本文介绍一种直接利用 对合并单元格信息的读取是个难点。因为如果 按照单元格的位置依次读取，那么由ａ行ｂ列个单 元格（ｃｅｌ１）合并而成的单元格区域（ｒａｎｇｅ）仅有 Ｍｔｅｘｔ命令提供的方法进行转换。 在ＡｄｄＭＴｅｘｔ命令中，影响文字内容和文字属性 的参数Ｔｅｘｔ。在具体文字前加上一定的控制符号可 以控制文字的文字属性，具体控制符号可以参阅 ＡｕｔｏＣＡＤ帮助文件。例如， （＼Ｆ宋体； ＼０１５：＼ｗ１．５：ＡＢＣＤＥＦＧ｝把“ＡＢＣＤＥＦＧ”设置成宋体、 向右倾斜ｌ５度，每个字的宽度是正常宽度１．５倍。 主要采用的方法是：读取Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ文 件某一单元格区域里的某第ｊ个字符属（字体、大 小、倾斜、加粗），读取Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ文件某一 单元格区域里的某第ｊ＋１个字符属性，如果与第Ｊ ４条边，采用上述计算方法，需要读取ａ＋ｂ＋ａ，ｂ，２ 次，重复读取ａ＋ｂ＋ａ，ｂ＊２—４次。以３行４列为例， 共读取３＋４＋３．４．２＝３１次，重复读取３ｌ一４＝２７次。 算法有重复。如果按照行号，列号读取，合并单元 格的行号、列号只有一个，其值为最靠左、靠上的 那个单元格的行号、列号。例如，将Ａ２：Ｅ５的单元 格合并后，其行号为２，列号为Ａ。这样由多个合并 单元格组合后的表格行号、列号有间断，不连续， 无法进行循环读取信息。作者通过研究发现，函数 ａｄｄｒｅｓｓ（）和单元格的ｍｅｒｇｅａｒｅａ属性可以获得合 个字符相同，则二者采用同样的控制符号；若不同， 则从第ｊ＋１个字符开始，重复前面的工作。 ２．３．２表格中表格文字位置的转换 对文字对象的属性的直接控制来实现其转换， 通过ｗｉｔｈ…ｅｎｄ ｗｉｔｈ结构可以很容易地控制文字的 高度、图层、颜色、书写方向。由于Ｍｔｅｘｔ文字提 供支持的排列位置分为９种，必须根据Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ表格文字的排列方式加以合适的判定，然后进 行转换。 并单元格的准确信息。具体方法为：读取ｃｅｌｌｓ（Ｘ， ｙ）单元格时，用ａｄｄｒｅｓｓ（）判断包含ｃｅｌＩｓ（ｘ， ｙ）单元格的合并单元格区域Ｃ．ｍｅｒｇｅａｒｅａ的绝对地 址，如果前４个字符与ｃｅｌＩｓ（ｘ，ｙ）单元格的地址 相同，为ｃｅｌｌｓ（ｘ，ｙ）单元格为合并单元格区域最 靠上、靠左的那个合并单元格，读取其４条边信息， 否则不读取。这样，彻底避免了重复读取，同时提 高了整个读取和画线速度。 在ＡｕｔｏＣＡＤ中，线条有多种，考虑能够方便控 制线条属性，选用了多义线。具体命令如下： ＲｅｔＶａｌ＝ｏｂｊｅｃｔ．ＡｄｄＬｉｇｈｔＷｅｉｇｈｔＰｏｌｙ１ｉｎｅ（Ｖｅｒｔｉｃｅ ３应用 随着科学技术的发展，管线普查或其他的工程 制图中，将Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ表格转换到ＡＵＴＯＣＡＤ 文件应用非常广泛，越来越受到制图者的青睐。下 面以成都市中心城区地下管线普查探测工程中将煤 气管线穿越电力沟调查情况统计表转换到ＡｕＴＯＣＡＤ ｓＬｉｓｔ） ２．３表格文字转换 表格文字转换包括表格文字本身转换和表格文 字在表格中位置的转换两个部分。 在ＡｕｔｏＣＡＤ中，文字标注的形式有多种，与 文件为例做简单的说明，Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ表格中的 内容如图１所示。 ， 通过函数ａｄｄｒｅｓｓ（）和单元格的ｍｅｒｇｅａｒｅａ属性 可以获得合并单元格的准确信息，调用ＡｕｔｏＣＡＤ提 供的ＶＢＡ画多义线命令语句和添加多行文本的命令 语句，将相应的所需要的参数传递给这两个函数的 变量，经过一系列的循环，就可得到如图２所示。 图２右上角表格放大图如图３所示。 Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ单元格区域多行文本内容相对应 的是多行文本命令。ＡｕｔｏＣＡＤ提供的ＶＢＡ添加多行文 本的命令语句是： ＲｅｔＶａｌ＝ｏｂｊｅＣｔ‘．ＡｄｄＭＴｅｘｔ（ＩｎｓｅｒｔｉｏｎＰｏｉｎｔ， Ｗｉｄｔｈ，Ｔｅｘｔ） 在ＡｕｔｏＣＡＤ图形中能够很直观的查阅到煤气管 线与电力沟管线碰撞的位置及各自管线相应的属 性。 通过修改ＲｅｔＶａｌ的属性可以控制表格文字在表 格中的位置。 维普资讯 http://www.cqvip.com
四川测绘第３１卷第４期２００８年８月 １６７ 图１ ２００６—１０测区煤气管线穿越电力沟调查情况记录表 图２ ３—２３综合管线图 图３放大图 ４结束语 大学出版社，２００４． ［２］二代龙震工作室．ＡｕｔｏＣＡＤ ＶＢＡ函数库查询词典［Ｍ］．北 利用ＡｕｔｏＣＡＤ ＶＢＡ编程实现从Ｅｘ￣ｅｌ表格中的 京：中国铁道出版社，２００３． 内容转换到ＡｕｔｏＣＡＤ文件，使每个文字的风格均可 ［３］夏强．Ｍｉｃｒｏｓｏｆｔ Ｅｘｃｅｌ ＶＢＡ开发精彩实例教程［Ｍ］．北 以得到很效的控制，极大提高了文字标注的灵活性， 京：中国机械出版社，２００４． 使ＡｕｔｏＣＡＤ文件更加美观。用ＡｕｔｏＣＡＤ ＶＢＡ编程代 替手工操作，避免手工操作带来不必要的错误 提 高了数据使用的可靠性。 参考文献 ［１］张帆．Ａｕｔ０ＣＡＤ ＶＢＡ开发精彩实例教程［Ｍ］．北京：清华 ［收稿日期］２００８一Ｏ１—０９
