论文部分内容阅读
摘 要：铁路建设不可避免要产生征地拆迁，在铁路设计阶段为了快速获取铁路沿线征地拆迁面积，利用Google Earth软件获取拆迁房屋坐标数据，之后利用Excel VBA编写程序快速计算并整理征地拆迁面积。结果显示：Google Earth+Excel VBA的模式能够快速、准确获取征地拆迁面积，为铁路设计节约成本。
关键词：Google Earth；Excel VBA；征地拆迁
中图分类号：TP393.0 文献标识码：A 文章编号：1004-7344（2018）17-0170-02
1 引 言
鐵路征地拆迁是铁路建设中不可避免的环节，但由于拆迁补偿、拆迁面积等问题成为延缓铁路建设的问题，严重的还会引发上访等不良社会问题[1]，而拆迁量的大小往往会影响铁路线路方案[2]，需要在设计阶段准确获取拆迁面积。在传统铁路设计中，设计人员需在设计阶段到拟拆迁区域实地调查拆迁面积。传统方式不仅需要消耗大量人力进行拆迁调查，而且需要当地政府配合，工作量大且调查周期长。Google Earth（GE）是谷歌公司开发的虚拟地球仪软件，GE软件由于其良好的界面及强大的功能，在铁路地质勘查、铁路平面定线、面积测量中应用广泛[3～6]。GE具有量测面积、周长等功能，但GE只能导出坐标数据无法导出大量面积量测数据。Excel VBA是Excel提供的程序语言，通过VBA程序，可以自动运行很多重复性操作[7]。本文提出一种利用GE软件+Excel VBA的铁路拆迁面积快速提取模式，以降低铁路设计中拆迁调查的成本。
2 提取拆迁面积思路
2.1 GE软件获取沿线拆迁坐标
（1）在GE软件中通过KML文件导入线路中线及拆迁范围，见图1。
（2）在拆迁范围内利用“标尺-多边形”勾画拟拆迁房屋面积，见图2。
（3）将新建拆迁面积保存为KML文件，利用“交通选线CAD”系统提取KML文件坐标。
2.2 面积计算原理
多边形面积可依据多边形折点坐标求出。若多边形有n个顶点，各顶点坐标为（x ，y ），（x ，y ），…，（x ，y ），其面积公式为：
A= （x y -x y ）
2.3 Excel VBA快速计算面积
VBA快速计算面积程序实现：
Sub AREA1（）
For j = 1 To Range（"a65536"）.End（xlUp）.Row
s = 0
i = j
Do Until Range（"a" & i） <> "point"
s0 = Range（"B" & i） * Range（"c" & i + 1） - Range（"B" & i + 1） * Range（"c" & i）
s = s + s0
i = i + 1
Loop
Range（"d" & i）.Value = 0.5 * s
j = i
Next
End Sub
3 实例分析
（1）将“交通选线CAD”系统提取KML拆迁文件坐标数据导入Excel中，见图3。
利用面积计算程序输出面积结果见表1。
4 结 论
（1）基于GE+Excel VBA的铁路拆迁方法可以准确提取铁路沿线拆迁面积，该方法不受外部环境因素影响，降低铁路设计中拆迁面积的调查成本。
（2）基于GE+Excel VBA的铁路拆迁方法提取1000组房屋拆迁面积只需要3.5s，该方法能够快速提取拆迁面积，提升铁路设计效率。
参考文献
[1]谭庆辉.新建铁路征地拆迁社会问题及对策研究[D].兰州：兰州交通大学，2012.
[2]雷松林，郑用来.拆迁对铁路线路方案的影响[J].石家庄铁道学院学报，2006，19：227～228.
[3]谢春平.基于Google Earth的面积快速测量法[J].湖北农业科学，2011，50（7）：1470～1472.
[4]王大帅.基于Google Earth数据源的铁路选线设计的应用研究[D].兰州：兰州交通大学，2014.
[5]杨新林.基于Google Earth的铁路工程地质勘察系统研究[D].长沙：中南大学，2013.
[6]蒋小军.基于Google Earth数据源的平面自动定线技术研究[D].长沙：中南大学，2011.
[7]朱向荣.基于Excel VBA的常用测量计算问题解决方案[J].地理空间信息，2013，11（5）：131～135.
收稿日期：2018-5-11
作者简介：李艳博（1990-），男，甘肃兰州人，硕士研究生，从事铁路选线设计研究工作。
关键词：Google Earth；Excel VBA；征地拆迁
中图分类号：TP393.0 文献标识码：A 文章编号：1004-7344（2018）17-0170-02
1 引 言
鐵路征地拆迁是铁路建设中不可避免的环节，但由于拆迁补偿、拆迁面积等问题成为延缓铁路建设的问题，严重的还会引发上访等不良社会问题[1]，而拆迁量的大小往往会影响铁路线路方案[2]，需要在设计阶段准确获取拆迁面积。在传统铁路设计中，设计人员需在设计阶段到拟拆迁区域实地调查拆迁面积。传统方式不仅需要消耗大量人力进行拆迁调查，而且需要当地政府配合，工作量大且调查周期长。Google Earth（GE）是谷歌公司开发的虚拟地球仪软件，GE软件由于其良好的界面及强大的功能，在铁路地质勘查、铁路平面定线、面积测量中应用广泛[3～6]。GE具有量测面积、周长等功能，但GE只能导出坐标数据无法导出大量面积量测数据。Excel VBA是Excel提供的程序语言，通过VBA程序，可以自动运行很多重复性操作[7]。本文提出一种利用GE软件+Excel VBA的铁路拆迁面积快速提取模式，以降低铁路设计中拆迁调查的成本。
2 提取拆迁面积思路
2.1 GE软件获取沿线拆迁坐标
（1）在GE软件中通过KML文件导入线路中线及拆迁范围，见图1。
（2）在拆迁范围内利用“标尺-多边形”勾画拟拆迁房屋面积，见图2。
（3）将新建拆迁面积保存为KML文件，利用“交通选线CAD”系统提取KML文件坐标。
2.2 面积计算原理
多边形面积可依据多边形折点坐标求出。若多边形有n个顶点，各顶点坐标为（x ，y ），（x ，y ），…，（x ，y ），其面积公式为：
A= （x y -x y ）
2.3 Excel VBA快速计算面积
VBA快速计算面积程序实现：
Sub AREA1（）
For j = 1 To Range（"a65536"）.End（xlUp）.Row
s = 0
i = j
Do Until Range（"a" & i） <> "point"
s0 = Range（"B" & i） * Range（"c" & i + 1） - Range（"B" & i + 1） * Range（"c" & i）
s = s + s0
i = i + 1
Loop
Range（"d" & i）.Value = 0.5 * s
j = i
Next
End Sub
3 实例分析
（1）将“交通选线CAD”系统提取KML拆迁文件坐标数据导入Excel中，见图3。
利用面积计算程序输出面积结果见表1。
4 结 论
（1）基于GE+Excel VBA的铁路拆迁方法可以准确提取铁路沿线拆迁面积，该方法不受外部环境因素影响，降低铁路设计中拆迁面积的调查成本。
（2）基于GE+Excel VBA的铁路拆迁方法提取1000组房屋拆迁面积只需要3.5s，该方法能够快速提取拆迁面积，提升铁路设计效率。
参考文献
[1]谭庆辉.新建铁路征地拆迁社会问题及对策研究[D].兰州：兰州交通大学，2012.
[2]雷松林，郑用来.拆迁对铁路线路方案的影响[J].石家庄铁道学院学报，2006，19：227～228.
[3]谢春平.基于Google Earth的面积快速测量法[J].湖北农业科学，2011，50（7）：1470～1472.
[4]王大帅.基于Google Earth数据源的铁路选线设计的应用研究[D].兰州：兰州交通大学，2014.
[5]杨新林.基于Google Earth的铁路工程地质勘察系统研究[D].长沙：中南大学，2013.
[6]蒋小军.基于Google Earth数据源的平面自动定线技术研究[D].长沙：中南大学，2011.
[7]朱向荣.基于Excel VBA的常用测量计算问题解决方案[J].地理空间信息，2013，11（5）：131～135.
收稿日期：2018-5-11
作者简介：李艳博（1990-），男，甘肃兰州人，硕士研究生，从事铁路选线设计研究工作。