亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

        Google Earth+Excel VBA在批量獲取鐵路拆遷面積中的應(yīng)用研究

        2018-01-01 00:00:00李艷博
        大科技·C版 2018年6期

        摘 要:鐵路建設(shè)不可避免要產(chǎn)生征地拆遷,在鐵路設(shè)計階段為了快速獲取鐵路沿線征地拆遷面積,利用Google Earth軟件獲取拆遷房屋坐標(biāo)數(shù)據(jù),之后利用Excel VBA編寫程序快速計算并整理征地拆遷面積。結(jié)果顯示:Google Earth+Excel VBA的模式能夠快速、準(zhǔn)確獲取征地拆遷面積,為鐵路設(shè)計節(jié)約成本。

        關(guān)鍵詞:Google Earth;Excel VBA;征地拆遷

        中圖分類號:TP393.0 文獻(xiàn)標(biāo)識碼:A 文章編號:1004-7344(2018)17-0170-02

        1 引 言

        鐵路征地拆遷是鐵路建設(shè)中不可避免的環(huán)節(jié),但由于拆遷補(bǔ)償、拆遷面積等問題成為延緩鐵路建設(shè)的問題,嚴(yán)重的還會引發(fā)上訪等不良社會問題[1],而拆遷量的大小往往會影響鐵路線路方案[2],需要在設(shè)計階段準(zhǔn)確獲取拆遷面積。在傳統(tǒng)鐵路設(shè)計中,設(shè)計人員需在設(shè)計階段到擬拆遷區(qū)域?qū)嵉卣{(diào)查拆遷面積。傳統(tǒng)方式不僅需要消耗大量人力進(jìn)行拆遷調(diào)查,而且需要當(dāng)?shù)卣浜希ぷ髁看笄艺{(diào)查周期長。Google Earth(GE)是谷歌公司開發(fā)的虛擬地球儀軟件,GE軟件由于其良好的界面及強(qiáng)大的功能,在鐵路地質(zhì)勘查、鐵路平面定線、面積測量中應(yīng)用廣泛[3~6]。GE具有量測面積、周長等功能,但GE只能導(dǎo)出坐標(biāo)數(shù)據(jù)無法導(dǎo)出大量面積量測數(shù)據(jù)。Excel VBA是Excel提供的程序語言,通過VBA程序,可以自動運行很多重復(fù)性操作[7]。本文提出一種利用GE軟件+Excel VBA的鐵路拆遷面積快速提取模式,以降低鐵路設(shè)計中拆遷調(diào)查的成本。

        2 提取拆遷面積思路

        2.1 GE軟件獲取沿線拆遷坐標(biāo)

        (1)在GE軟件中通過KML文件導(dǎo)入線路中線及拆遷范圍,見圖1。

        (2)在拆遷范圍內(nèi)利用“標(biāo)尺-多邊形”勾畫擬拆遷房屋面積,見圖2。

        (3)將新建拆遷面積保存為KML文件,利用“交通選線CAD”系統(tǒng)提取KML文件坐標(biāo)。

        2.2 面積計算原理

        多邊形面積可依據(jù)多邊形折點坐標(biāo)求出。若多邊形有n個頂點,各頂點坐標(biāo)為(x ,y ),(x ,y ),…,(x ,y ),其面積公式為:

        A= (x y -x y )

        2.3 Excel VBA快速計算面積

        VBA快速計算面積程序?qū)崿F(xiàn):

        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”系統(tǒng)提取KML拆遷文件坐標(biāo)數(shù)據(jù)導(dǎo)入Excel中,見圖3。

        利用面積計算程序輸出面積結(jié)果見表1。

        4 結(jié) 論

        (1)基于GE+Excel VBA的鐵路拆遷方法可以準(zhǔn)確提取鐵路沿線拆遷面積,該方法不受外部環(huán)境因素影響,降低鐵路設(shè)計中拆遷面積的調(diào)查成本。

        (2)基于GE+Excel VBA的鐵路拆遷方法提取1000組房屋拆遷面積只需要3.5s,該方法能夠快速提取拆遷面積,提升鐵路設(shè)計效率。

        參考文獻(xiàn)

        [1]譚慶輝.新建鐵路征地拆遷社會問題及對策研究[D].蘭州:蘭州交通大學(xué),2012.

        [2]雷松林,鄭用來.拆遷對鐵路線路方案的影響[J].石家莊鐵道學(xué)院學(xué)報,2006,19:227~228.

        [3]謝春平.基于Google Earth的面積快速測量法[J].湖北農(nóng)業(yè)科學(xué),2011,50(7):1470~1472.

        [4]王大帥.基于Google Earth數(shù)據(jù)源的鐵路選線設(shè)計的應(yīng)用研究[D].蘭州:蘭州交通大學(xué),2014.

        [5]楊新林.基于Google Earth的鐵路工程地質(zhì)勘察系統(tǒng)研究[D].長沙:中南大學(xué),2013.

        [6]蔣小軍.基于Google Earth數(shù)據(jù)源的平面自動定線技術(shù)研究[D].長沙:中南大學(xué),2011.

        [7]朱向榮.基于Excel VBA的常用測量計算問題解決方案[J].地理空間信息,2013,11(5):131~135.

        收稿日期:2018-5-11

        作者簡介:李艷博(1990-),男,甘肅蘭州人,碩士研究生,從事鐵路選線設(shè)計研究工作。

        尤物视频在线观看| 一区二区三区蜜桃av| 亚洲国产av无码精品无广告| 人妻少妇边接电话边娇喘| 伊人久久综在合线亚洲不卡| 久久精品国产亚洲一级二级| 中文字日产幕码三区国产| 无码av一区二区大桥久未| 日韩国产欧美视频| 西西少妇一区二区三区精品| 亚洲一区二区三区高清在线| 色偷偷噜噜噜亚洲男人| 精品无码AV无码免费专区| 亚洲女同性恋在线播放专区| 亚洲av无码国产精品色| 亚洲av无码专区电影在线观看| 福利视频一二区| 亚洲av一二三四五区在线| 成人a级视频在线播放| 国产露脸精品产三级国产av| 爱v天堂在线观看| 在线观看午夜视频国产| 国产精品久久久久9999赢消| 久久久久久人妻精品一区百度网盘| 日韩av最新在线地址| 香蕉久久一区二区不卡无毒影院| 三级在线看中文字幕完整版| 2020国产精品久久久久| 三级国产高清在线观看| 国产成人无码精品久久二区三区| 国产激情电影综合在线看| 国产一级黄片久久免费看| 人妻少妇看a偷人无码| 欧美性大战久久久久久久| 欧洲无码一级毛片无遮挡| 亚洲精品视频1区2区| 久久国内精品自在自线图片| 无码一区东京热| 一区二区高清免费日本| 天堂8在线天堂资源bt| 亚洲阿v天堂网2021|