運用VBA实现地籍调查表与图形编辑的自动化.docVIP

运用VBA实现地籍调查表与图形编辑的自动化 罗石坚，曹明，吴根姣 江西核工业测绘院 330038 摘要： 本文介绍了一种用VBA编译出来的主要针对在地籍测量（内业）工作中文档的编辑及文档与图形的整合的过程而设计出的一个办公自动化程序，该程序操作简单、使用方便，具有较高的实用价值，可大大提高工作效率，增进产出。测绘信息网 关键词： VBA 地籍调查表 自动化 一、 引言 随着计算机技术的日益发展和时下正提倡的办公自动化，各企业、单位也在不断的针对在工作中能够增产增效而引进或自主研发出有效的方法。为针对在地籍调查测量工作中文档的编辑及文档与图形的整合的过程中一些繁琐而重复的工作，而此介绍的正是一种基于VBA而编译出来的一个自动化程序，以减少对完成这一庞大而重复的工作的耗时。 VBA是指Visual Basic for Application。它是在Office中使用的宏语言，并基于Basic计算机语言，主要为了增强Word、Excel等软件的自动化能力。 二、 程序设计和编辑测绘信息网 预安装Microsoft Office Excel 2003。运行软件，根据宗地数量适量的建立多份空白表格和写入宗地属性及界址点数据的相应表格。完成后进入VBA的编译环境开始编辑程序。打开工具栏 → 宏 → Visual Basic编辑器， 运用VBA编译的地籍调查测量工作中文本与图形编辑自动化程序中的主要工作有：（1）建立Excel工作表设置样式并编辑完成‘宗地调查成果表’表头属性；（2）将由基于AutoCAD的南方Cass制图软件导出的qs文件（权属文件）导入Excel工作表中并完成界址点的坐标及其相关数据在相应的‘宗地调查成果表’中写入；（3）依据‘宗地调查成果表’属性，在工作表中查找出其界址点属性数据并调用VBA中的方法，再依据根据界址点坐标绘制宗地示意图。我们将‘宗地调查成果表’表格的编辑分为三部分：表头-显示宗地属性数据、坐标-显示宗地界址点坐标数据、示意图-宗地图。（如上图所示） 三、设计本程序中数据的逻辑结构： 1、宗地属性数据如下表测绘信息网 编号 变量名称 数据结构 说明 １ ZDH String 宗地号 ２ TFH String 图幅号 ３ TDSYZ String 土地使用者 ４ TDZL String 土地座落 ５ TDYT Varchar(10) 土地用途 ６ QSXZ Varchar(10) 权属性质 7 SYQLX Varchar(10) 使用权类型 8 TDDJ Varchar(10) 土地等级 9 YTDZH String 原土地证号 10 ZDMJ Single 宗地面积 11 JZMJ Single 建筑面积 12 JZZDMJ Single 建筑占地面积 13 RJL Single 容积率 14 JZMD Single 建筑密度 15 SYQX Datetime 使用期限 2、界址点属性数据及过程中变量如下表 编号 变量名称 数据结构 说明 １ X（） String X坐标的数组 ２ Y（） String Y坐标的数组 ３ Zx() Single Xi相对X(i-1)坐标增量 ４ ZY() Single Yi相对Y(i-1)坐标增量 ５ Kx() Single 转换坐标系后X坐标 ６ Ky() Single 转换坐标系后Y坐标 7 K Single 转换坐标的比例系数 8 I Integer 坐标计数器 9 Ii Integer 工作表计数器 10 M Single 无定义变量 11 Cx Integer 目标单元格所在行 12 Cy Integer 目标单元格所在列 13 Xmax String X()数组最大值 14 Xmin String X()数组最小值 15 Ymax String Y()数组最大值 16 Ymin String Y()数组最小值 17 Ea Single 横向偏移系数 18 Eb Single 纵向偏移系数 19 Kxmax String Kx()数组最大值 20 Kxmin String Kx()数组最小值 21 Kymax String Ky()数组最大值 22 Kymin String Ky()数组最小值 23 Kx0 Single 坐标系原点 24 Ky0 Single 坐标系原点 四、设计流程图： 五、部分主要代码的编写： 定义变量测绘信息网 Dim Cx, Cy, M As Integer ：Dim X(), Y() As String ：Dim Zx(), Zy()