５２技术交流 测绘技术装备第１８卷２０１６年第４期 基于ＡｕｔｏＣＡＤ二次开发的图框批量生成 胡炳辉 周雅丽 沈迎光。 （１．中煤航测遥感集团有限公司航测工程分公司 陕西西安 ７１００５４；２．陕西省地理空间信息工程技术研 究中心 陕西西安摘７１００５４；３．陕西测绘仪器计量监督检定中心 陕西西安７１００５４） 要：目前大比例尺数字地形图的图廓整饰（或图框）大多需要人工编辑处理字体、颜色、位置等，费时费 力。通过基于ｈｕｔｏＣｈＤ的ＶＢＡ二次开发技术，结合国家基本比例尺地图图式要求，实现了通用的大比例尺地 形图图框及图外整饰的批量生成 关键词：数字地形图 图框ＶＢＡ ｈｕｔｏＣＡＤ １引言 Ａｕｔｏｄｅｓｋ公司推出的ＡｕｔｏＣＡＤ软件具有图形处 理功能强大的特点，它在测绘、规划等众多领域应用 广泛。目前，多数数字地形图编辑软件是以ＡｕｔｏＣＡＤ 遍历所有图幅内图廓， 获得图名图号及结合表等 为平台开发的，而且许多数字地图的支持平台也是 ＡｕｔｏＣＡＤ¨１。 目前，针对不同用户的特殊要求，数字地形图 的图廓整饰一般都需要内业作业人员做不同程度的 编辑处理，例如生产单位名称、标注邻接表、调整 公里注记的字体字大颜色、公里注记位数等等 。在 重复大量工作量的同时，还有可能将公里注记等注 错。本文在ＡｕｔｏＣＡＤ平台下利用ＶＢＡ开发了批量生 图框软件，通过利用设计好的模板及一个测区结合 图文件就可以自动批量生成整个测区的分幅图框文 ２．３软件结构 入 分别另存为 图１技术路线图 件，简单方便快速，大大提高了编辑效率。 ２软件设计 ２．１软件平台 软件在ＡｕｔｏＣＡＤ ２００８平台下制作，采用的是ＶＢＡ 语言，在ＡｕｔｏＣＡＤ ２００４及以上版本均可运行。 ＡｕｔｏＣＡＤ提供的开放式体系结构允许用户和开 发者采用高级编程语言对其进行扩充和修改（即二 次开发），能最大限度地满足用户的特殊要求，更方 便、更规范、更专业地实现设计和绘图中的应用。 ＶＢＡ（ｖｉｓｕａ］ＢａｓｉＣ Ｆｏｒ Ａｐｐｈｃａｔｉｏｎ）是ＡｕｔｏＣＡＤ ＲＩ２ 图２软件界向图 软件适用于大比例尺正方形分幅或者矩形分 幅。运行程序前，需分别指定种子文件及模板文件 （ＤＷＧ格式）。该模板文件可根据测区特殊要求制作， 种子文件为了和测区统一参考系，空文件即可。公 以后推出的一种新的编程环境，提供了以Ｖｉｓｕａｌ Ｂａｓｉｃ为基础的面向对象的开发特征及程序接口，能 真正快速地访问ＡｕｔｏＣＡＤ图形数据库，能明显提高 软件开发和维护的效率 。 ２．２技术流程 里注记格式影响公里注记保留的有效小数位数，起 始位决定了公里注记是否加百公里数或带号。 ３关键技术 ３．１编制模板 模板分为１：５００、ｉ：ｉ０００、ｌ：２０００三个文件。 测区可根据比例尺挑选相应的图框模板，然后根据 长期的数字地形图生产经验使我们对于图廓整 饰有了很大的了解，对于需要手动修改的地方也很 熟悉。软件的制作也正是基于此，通过制作好的模 板文件去控制图廓整饰的字体样式，甚至是扩展属 性是本软件设计的核心。 特殊需要调整注记的字体样式，测绘机关名称等， 也可根据需要给图元赋上相应的扩展属性（即 测绘技术装备第１８卷２０１６年第４期 技术交流５３ ＸＤＡＴＡ），如“实体编码：１２１２０５，实体名称：公里注 Ｓ（１ ｔｏ ９）Ａｓ Ｓｔｒｉｎｇ 记”。模板的编制一方面提高了程序的通用性，另一 ｅ（１ ｔｏ ９）Ａｓ Ｓｔｒｉｎｇ 方面也很大程度上减少了代码量。 Ｅｎｄ Ｔｙｐｅ Ｓｅｔ ｐｌ＝ｅｎｔ．Ｃｏｐｙ Ｄｉｍ Ｓ０ Ａｓ Ｓｔｒｔｈｊｈｂ Ｄｉｍ ｉｎｓｅｒｔｘ ０ Ａｓ Ｄｏｕｂｌｅ，ｉｎｓｅｒｔｙ（）Ａｓ Ｄｏｕｂｌｅ Ｄｉｍ ｍｉｎＥｘｔ Ａｓ Ｖａｒｉａｎｔ，ｍａｘＥｘｔ Ａｓ Ｖａｒｉａｎｔ ｐ１．ＧｅｔＢＯｕｎｄｉｎｇＢｏｘ ｍｉｎＥｘｔ，ｍａｘＥｘｔ ｄｘ＝ｍａｘＥｘｔ（０）一ｍｉｎＥｘｔ（０） ｄｙ＝ｍａｘＥｘｔ（１）一ｍｉｎＥｘｔ（１） ｐｏｉｎｔ２（０）＝０：ｐｏｉｎｔ２（１）＝ｄｙ ｐ１．Ｍｏｖｅ ｐｏｉｎｔ１，ｐｏｉｎｔ２ Ｓ（ｊ）．ｓ２＝ｔｅｘｔｉｎｐｏｌｙｇｏｎ（ｐ１）．ｃ１ Ｓ（Ｊ）．ｅ２＝ｔｅｘｔｉｎｐ０ｌｙｇｏｎ（ｐ１）．ｃ２ 图３模板不例图 ｉｎｓｅｒｔｘ（ｊ）＝ｍｉｎＥｘｔ（０） ３．２图名图号获取 ｉｎｓｅｒｔｙ（ｊ）：ｍｉｎＥｘｔ（１） 通过遍历当前ＤＷＧ文件（即接合图）中的所有多 ４应用效果 段线，获取闭合多段线及多段线内部的文字， 该软件已经在我单位大比例尺地形图制图项目 ＧｅｔＢｏｕｎｄｉｎｇＢｏｘ方法可以获取相应的定位点信息。 及ＤＯＭ制作项目中被广泛使用。通过该软件可以快 具体方法如下： 速批量生成分幅图的图框及图外整饰，同时也避免 Ｐｒｉｖａｔｅ Ｔｙｐｅ ＴＨＴＭ’定义图号、图名 了作业人员错注、漏注等情况的出现。通过统计， Ｃ１ Ａｓ Ｓｔｒｉｎｇ 此软件１ ｍｉｎ大约生成９０幅分幅图图框文件，大大 ｃ２ Ａｓ Ｓｔｒｉｎｇ 节约了时间，提高了相关测绘工作的效率。此外， Ｅｎｄ Ｔｙｐｅ 该软件具有通用性，可适用于不同项目大比例３Ｄ产 Ｐｒｉｖａｔｅ Ｆｕｎｃｔｉｏｎ ｔｅｘｔｉｎｐｏｌｙｇｏｎ 品图框及图外整饰的生成，改善了传统手工作业的 （ＢｙＶａｌ ｆｌ ｉｎｅ Ａｓ ＡｃａｄＬｌ￣ｏｌｙｌ ｉｎｅ）Ａｓ ＴＨＴＭ 低效、出错率高的问题。 ’根据闭合多段线创建选择范围 ５结束语 ｓｓｅｔＯｂｊ．Ｓｅ１ｅｃｔＢｙＰｏｌｙｇｏｎ Ｍｏｄｅ， 基于ＶＢＡ的ＡｕｔｏＣＡＤ二次开发技术，可以在测 ｐｏｉｎｔｓＡｒｒａｙ，ｇｐＴｙｐｅ，ｇｐＤａｔａ’选择范围内的文 绘等行业发挥出极大的作用。在测绘４Ｄ产品的日常 字’判断图号ｏｒ图名、分别保存Ｅｎｄ Ｆｕｎｃｔｉｏｎ 生产过程中，广大测绘工作者们绞尽脑汁如何去提 ３．３接合表获取 高工作效率，减少重复工作量。本文正是从实际生 上面我们已经讨论了如何去获取图名图号，接 产需求出发，利用ＶＢＡ在ＡｕｔｏＣＡＤ平台下实现了大 合表的获取正是建立在此基础之上。通过获得相应 比例尺图框的批量生成，并在单位测绘项目中效益 的偏移量，依次扫描偏移图框内的文字，我们就可 显著。本软件已经实现了常规图框的批量生成，但 以分别得到该图八个方位上的图名图号。关键代码 还需在小比例尺以经纬度分幅的地形图方面做出改 如下： 进。 Ｐｒｉｖａｔｅ Ｔｙｐｅ Ｓｔｒｔｈｊｈｂ’接合表 参考文献： ［１】曾宪琏，徐昌荣．基于ＡｕｔｏＣＡＤ的数字地形图属性数据组织方案［Ｊ】．测绘通报，２００５（２）：２９－３１． ［２］ＧＢ／Ｔ ２０２５７．１—２ＯＯ７，国家基本比例尺地图图式第１部分：１：５Ｏ０ １：１０００ １：２０００地形图图式［ｓ］． 【３】王若慧。基于ＶＢＡ的ＡｕｔｏＣＡＤ二次开发及应用实例【Ｊ］．自动化技术与应用，２００７，２６（９）：３０－３１． ［４］王保国．基于ＡｕｔｏＣＡＤ的建筑信息管理工具开发［Ｊ】．测绘通报，２０１ ３（４）：１０５－１０６． 【５】张帆，郑立楷，卢择临．ＡｕｔｏＣＡＤ ＶＢＡ二次开发教程［Ｍ］．北京：清华大学出版社，２００６．
