基于Excel VBA的电力管线竣工测量内业成果处理

郭振华，薛兰格，刘辉

(1.北京新兴华安测绘有限公司，北京石景山 100040;2.北京鼎春德正测绘中心，北京朝阳 100029)

1 引言

地下管线担负着城市的信息传递、能源输送、排涝减灾、废物排弃等功能，是城市赖以生存和发展的物质基础，是城市基础设施的重要组成部分，是发挥城市功能确保社会经济和城市建设的健康、协调和可持续发展的重要基础和保障。地下管网系统的安全关系着城市的繁荣发展，提供准确的地下管网数据是测绘工作者的职责。

北京市地下综合管线竣工测量成果的验收工作有严格的检查验收备案程序。电力管线专项竣工测量工作，从2011年起，北京华商电力管道公司作为管理单位推广应用北京市电力公司GIS、PMS生产管理系统，该系统对于基础数据格式和成果样式进行了设定，对所有新建的电力管线竣工测量工作需要统一录入该系统。北京新兴华安测绘有限公司作为该系统的主要测量单位之一，为了提高工作效率，基于Excel VBA自主研发了电力管线竣工测量内业成果处理工具，实现测绘成果的自动处理，有效节省人力物力，提高了工作效率，为电力竣工测量工作提供了一种简单而高效的处理方法。

2 执行的标准规范

《城市测量规范》CJJ/T 8－2011

《工程测量规范》GB50026－2007

《北京市工程测量技术规程》DB11/T 339－2006

《北京市基础测绘技术规程》DB11/T 407－2007

《城市地下管线探测技术规程》CJJ61－2003

《北京市地下管线探测技术规程》DB11/T 316－2005

《1∶5001∶10001∶2000地形图图式》GB/T 20257.1－2007

3 作业流程

电力管线竣工测量主要作业流程如图1所示。

4 基于Excel VBA的内业成果处理

利用VBA处理平台，设置录入模板、编程设计，完成各管线数据(包括空间数据和属性数据)的录入，管井段表、检查井表的输出，绘制电力管线成果图。

Excel电力管线数据库录入表包括管线的连接方向、坐标、高程、规格、测点类型、埋设类型等，在录入的过程中按管线的走向，先主干线后支线的方式录入。管段、直埋的高程应录入于管外顶下方，隧道段、沟槽的高程录入于沟内底下方，注意是否有管偏，检查井的测点类型为电力井，折点、边坡点、变电室等的测点类型为连接点。

4.1 设置Excel模板录入基础数据

针对电力管线数据属性项多的特点，利用Excel“检查井记录.sheet!”预先设定录入表格模板，如图1所示，将所有管线可能出现的属性项融合在一起，录入时根据属性项选择性输入，方便检查数据录入的正确与否。

(1)数据录入过程中自动设计了下拉菜单，快速选择输入项，也可以自动填充序列，加快录入速度;如图2所示为针对重复录入数据的填充界面;图3所示为利用Excel的“数据”选项中设置“数据有效性”编辑下拉菜单，减少文字录入工作，快速进行属性录入;

图1 电力管线竣工测量工作流程

图2 内业成果整理技术操作流程图

图3 “检查井记录”工作表设置录入模板

(2)其中井面高程、外顶高程、外底高程等需要计算的数据，也是用程序进行了设计，能够自动链接“坐标.sheet!”中高程，结合作业习惯、只需要在选项处录入外业丈量尺寸，自动输出管外顶、管外底高程，将计算工作通过程序实现，加快了录入速度与质量;

图4 重复数据录入自动填充或复制

图5 “数据有效性”编辑下拉菜单

(3)外业测量完成的管井坐标数据，按照图6的格式进行编辑，整理在“坐标.sheet!”工作表中;

图6 “坐标”工作表中管井坐标数据

4.2 利用VBA程序设计实现自动输出检查井表、管井段表和电力管线图

在Excel模板中，分别设置了“测绘成果.sheet!”、“坐标.sheet!”、“检查井记录.sheet!”、“当前井.sheet!”、“检查井表.sheet!”、“检查井模板.sheet!”、“参数.sheet!”等几个工作表，后期又根据新要求增加了“管段.sheet!”、“通风亭.sheet!”“隧道段.sheet!”等工作表;通过Excel VBA2010程序进行了设计，(程序从略，以下同)，设置了关联关系，分别进行管井处理和管段处理，实现自动输出检查井表、管段表、电力管线图等。

图7 VBA程序代码窗口

图8 VBA程序模块窗体设计窗口

图9 命令操作面板

(1)自动输出检查井表、管井段表

数据录入完毕中，在Excel中“启用宏”，自动弹出命令面板，点击命令面板中的管井处理“检查井坐标匹配”“成果表坐标匹配”，结束后自动弹出对话框“坐标匹配完成”;然后点击“生成word检查井”“生成excel检查井”，通过VBA程序按照北京华商电力管道有限公司设计好的检查井参数，自动输出每个检查井的检查井表;同理点击管井段处理“边长高程重算”，自动输出管井段记录表、隧道段记录表等等。

根据成果样式的要求不同，设计了可以自动生成Excel版本、Word版本检查井表、管段表，实现了Word与Excel的交互功能、完成表格自动输出，有效提高内业数据处理工作量。

图10 检查表参数表

图11 竣工资料封皮

图12 竣工资料登记表

图13 批量输出的电力管井段检查井表预览

(2)自动生成电力管线图

在Excel录入表格中将所有成果录入完成后，程序设计了Excel与AutoCAD的关联，如图14:测点类型与AutoCAD图块对照参数表所示，可以将管线井、管井段依照参数自动展绘至AutoCAD中。AutoCAD中编辑了“读取电力管线文件”菜单，自动成图，可以检查检查井的连接情况是否正确，根据设计关系来比较所测管线点的位置是否正确。

图14 测点类型与AutoCAD图块对照参数表

图15 AutoCAD中读取电力管线文件

由于各个检查井是带有属性的数据，通过属性编辑操作，可以批量将各个检查井的坐标、编码自动标注，自动连接管线走向、管偏等相关工作，极大提高工作效率;其中断面图的绘制工作未在此程序中进行开发，尚需要手工完成，最后将管线数据图形套合至地形图中，形成的电力管线成果图16所示，满足竣工验收要求。

图16 整理完毕的电力管线图样图

5 结语

综合Excel VBA在电力管线竣工测量处理中的应用可以看出，采用Excel进行属性录入可以大大提高数据录入的效率，通过对VBA二次开发可以将管线数据从录入数据库→成果表生成并输出→绘制管线图，节约了内业处理时间，优化了作业流程，实现数据处理的自动化，无需人工干预，节省了人力、物力，极大提高工作效率和成果质量。

［1］CJJ61－2003.城市地下管线探测技术规程［S］.

［2］DB11/T 316－2005.北京市地下管线探测技术规程［S］.

［3］孔勇平，朱娟.基于AutoCAD二次开发技术的研究［J］.计算机工程应用技术，2008(12):549～550.

［4］John Walkenbach.中文版Excel 2010高级VBA编程宝典［M］.清华大学出版社，2012(10).

［5］北京市电力公司电力管道竣工测量技术要求［R］.1～25.

［6］秦洪现，崔惠岚，孙剑.Autodesk系列产品开发培训教程［M］.北京:化学工业出版社，2008.

［7］孔勇平，朱娟.基于AutoCAD二次开发技术的研究［J］.计算机工程应用技术，2008(12):78～82.

［8］贺军政.罗凌燕 Excel与C#在地下管线数据处理中的应用［J］.城市勘测，2011(1):116～119.

［9］许春培.利用VBA建立AutoCad2000与Excel通信.电脑编程技巧与维护，2001(06)CN 11—3411.

［10］黄海涛，尹言军，刘玉春.LISP和VBA程序在土地勘测定界内业处理中的应用分析［J］.城市勘测，2008(3):123～126.