利用VBA实现AutoCAD机械图纸的中英文转换.PDFVIP

维普资讯 · 72 · 煤 矿 机 械 2004年第 9期 文章编号：1003—0794(2004)09—0072—02 利用VBA实现 AutoCAD机械图纸的中英文转换 薛 铜龙 (焦作工学院，河南 焦作 454000) 摘 要 ：介绍了一种利用VBA在AutoCAD中机械图纸实现 中英文双向 自动转换的方法，可大 大节省人工翻译的时间，用户结合本公司的行业特点，配置一个合适 的词库 ，对提 高机械 图纸 的翻 译工作效率有一定的意义。 关键词 ：AutoCAD；VBA；中英文转换 中图号 ：TH126 文献标识码 ：A 1 前言 新和补充 。 随着我国机械行业的外企在 国内投资设厂越来 越多，以及 国内一些机械厂家逐渐走向世界 ，机械 图 纸中语言的翻译转换成为经常性的工作 。因此，用 编程语言开发专用程序来完成机械图纸的中英文语 言的自动转换，对提高机械 图纸的翻译工作效率有 一 定的意义。本文介绍 了一种利用 VBA在 Auto． CAD中机械 图纸实现中英文双 向自动转换的方法 。 2 AutoCAD标注文本的内部格式 机械图纸中常用的标注文本在AutoCAD中可以 通过用 VBA访 问实体名称 (EntityName)的属性来识 别，其 内部名称为 “AcDbMText”或 “AcDbText”，前者 对应 AutoCAD中的 MTEXT多行文本命令产生的字 符串，后者对应于 TEXT单行文本命令产生的字符 串。对于尺寸中包含的非数字类标注，可 以通过 2 种途径转换为上述 2种字符串之一，其一是在标注 尺寸前将 AutoCAD中的环境变量DIMASO设置为0； 其二是在标 注尺寸后用 EXPLODE命令将所有尺寸 分解成基本部分，即包括 MTEXT字符 串和箭头等， 图 1 程序 流 程 豳 以便于转换程序识别。 Fig．1 Theflow dlart 在 AutoCAD 内部，MTEXT多行文本和 TEXT单 本转换程序包括主模块 AutoTranslate()和 自定 行文本字符 串的区别在于，MTEXT文本有 2种形 义函数 MatchWord()，主模块 中最主要 的 3条语句 式：一种形式是用 “{}”括起来，另一种是前面带格式 为 ： 符 “＼A1；”，可 以进行一定的处理消去格式符。这 (1)在当前图档中初始化并在选择集集合 中加 样，2种字符串就可 以用相同的方法进行转换。 入一个新的选择集对象 对于数字后面直接加注 中英文注释的字符串， SetssetObj：ThisDrawing．SelectionSets．Add(” 可以在进行转换前将数字用程序分开，并将数字暂 MYSSET”) 存起来，待到转换完毕与转换后的部分合并。 (2)等待用户交互选择 ；结果存人选择集 中 3 转换流程 ssetObj．SelectOnScreen 转换程序的流程如图1所示 。 (3)在 AutoCAD的模型空间中加入转换后字串 4 程序说明 SettextObj：ThisDrawing．ModelSpace．AddText 转换框 图中所示的词汇表，用户可按本公司机 (tgtStr，ip，h) 械 图纸的行业特点和特定要求预先设定，其格式为 主模块主要部分内容 ： 单行记录的形式 ，采用文本文件存储 ，以便于随时更 SubAutoTranslate()