基于VBScript的EPS平台勘测定界自动化成图研究

张子林

（惠州大亚湾经济技术开发区国土资源测绘所，广东 惠州516081）

0 引 言

勘测定界是根据土地利用规划及土地开发、整理、复垦等工作需求，实地界定土地使用范围、调绘土地利用现状及量算土地面积的一种测绘活动，勘测定界图和界址点表是其主要输出成果[1-3]。外业测量和调绘工作结束后，由内业成图软件进行勘测定界图编制。当前，清华山维EPS已被越来越多的测绘单位使用，但用户无法直接使用CASS软件的地籍模块，还需将成果输出成.dwg文件后才能编辑。本文研究了使用EPS实现勘测定界图的自动绘制、宗地面积计算、界址点表生成以及界址点报表的输出功能，达到便捷修改界址点前缀、界址点起始点号、快速标注，继而直接输出成果表的效果，极大提高了内业的工作效率，确保了成果准确性。

1 自动化成图研究现状

基于VBScript进行勘测定界内业自动化，主要基于EPS“图库一体”的设计思想，通过模板定制方式，将点号、点名等要素进行联系，定制界址点符号。同时，可为界址线挂接相关属性，通过符号设计实现标注自动化[4]。目前，在EPS中新创建一个工程时，需要选择一个模板。该模板规定了工程的基本信息，如比例尺、等高距，同时包含了Feature-CodeTB（特征编码表）、Symbol Script TB（符号描述表）以及Note Template TB（注记编码表），用于定义要素表示规则和数据转换规则和对照关系[5-7]。

使用模板定制存在很多优点，可以实现符号与属性的一体化，方便符号的管理与编辑。但模板定制的过程比较复杂，需要修改的内容繁多，工作量大，极易引起定制的符号无效，使图形无法正常显示[8-9]。因此，本文基于现有模板中的图元和符号，使用VBScript二次开发语言进行勘测定界的自动成图。

2 涉及的关键技术

2.1 界址点标注与距离标注设计

界址点标注为圆圈样式，并在其右上方标志界址点名称，字体直接设置为楷体，字高字宽设置为2.4 mm，避免成图后再修改界址点名属性的问题。点击界址点位置时，界址点圆圈和界址点名自动标注。

界址点间距标注（图1）设计在界址线的中间外侧，方向沿界址线方向，字头朝向为文字法线方向。当点击界址点位置时，自动计算与上一个界址点之间的距离并标注在线上。

图1 距离标注样式

通过使用VBScript脚本语言中的固有对象SSProcess，采用SSProcess的各个特定函数对字体、字号、位置等相关参数进行配置，可实现界址点及距离的标注[10]。

2.2 坐标解析法面积计算

通常，勘测定界的地块为不规则的多边形。对于该类不规则多边形，采用坐标解析法进行地块面积的计算（图2）。

图2 坐标解析法面积计算图示

已知多边形ABCDE各顶点坐标为（X A，Y A），（X B，Y B），（X C，Y C），（X D，Y D），（X E，Y E），则采用坐标解析法计算多边形ABCDE面积:

经转化，得坐标解析法面积计算公式:

式（3）中，P为面积，X i、Y i为界址点的坐标，n为界址点个数。在此基础上，通过VBScript编程实现坐标解析法。

当宗地范围确定后，直接在指定位置添加宗地信息，分子代表地块号，分母代表地类号，右侧数字为面积，单位为平方米，字体设置为楷体，字高也全部设置为2.4 mm[11]。

2.3 勘测定界成果输出

勘测定界的主要输出成果之一就是界址点表。界址点表的表现形式包括在勘测定界图处的界址点表和输出的界址点报表。界址点表包含的信息为:项目名称、界址点列表和面积汇总。界址点表包括界址点点号、界址点坐标和相邻点间的界址线边长。坐标精度保留至0.001 m，边长精度保留至0.01 m，面积精度保留至0.01 m2。报表直接输出到Excel表中。

3 系统实现

3.1 系统流程

系统功能实现流程（图3）的基本思路是:在界址点位置确定前提下，顺序点击界址点位置且标记点号，记录界址点坐标，同时计算与上一界址点之间的距离并进行标注，直到最后1个界址点（即第1个界址点），最终形成1个闭合的宗地。此时后台计算地块面积，点击指定位置，标注面积、地类和地块号，生成界址点表和输出界址点报表。若不是最后1个地块，则重新获取新地块的起始界址点号、地类，重复上一过程，直到所有地块绘制完毕为止。

图3 程序设计流程

3.2 界面设计

每个地块在绘制前需要提前确定起始点号、宗地号和地类名称，点击一次确定获取一组新的参数值。

4 实例分析

本项目包含2个地块，2个地块不连续，界址点前缀为“K”（图4、表1）。较传统EPS操作，该自动化成图工具操作步骤少，同时自动绘制的两幅图图幅间距适中，适宜作为成果直接打印输出，提高了操作效率。

图4 勘测定界图

表1 界址点表输出样式

5 结 语

（1）实现了在EPS平台下勘测定界图的自动绘制、宗地面积计算、界址点表生成以及界址点报表的输出等功能。

（2）优化了EPS软件的使用体验。通过修改界址点前缀、界址点起始点号，快速标注，进而直接输出成果表的方式，提高了测绘人员内业处理效率。

（3）基于VBScript开发的自动化成图工具具有较好成图性能，可作为测绘成果直接输出。