mapgis供水信息系統(tǒng)測(cè)量數(shù)據(jù)自動(dòng)化處理

《mapgis供水信息系統(tǒng)測(cè)量數(shù)據(jù)自動(dòng)化處理》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、MAPGIS供水信息系統(tǒng)測(cè)量數(shù)據(jù)自動(dòng)化處理　　摘要:本文闡述了溫州市供水信息系統(tǒng)更新過(guò)程，海量的測(cè)量數(shù)據(jù)利用EXCEL自動(dòng)化的處理和AUTOCAD進(jìn)行直觀的檢錯(cuò)，保證了數(shù)據(jù)的準(zhǔn)確性和完整性；確實(shí)的提高了工作效率。關(guān)鍵詞：MAPGISVBA前期探測(cè)數(shù)據(jù)自動(dòng)化處理Abstract:thispaperexpoundsthewenzhoucitywatersupplyinformationsystemupdateprocess,hugeamountsofmeasurementdatabyusingEXCELautomationprocessingandAUTOCADforvisual

2、check,ensuretheaccuracyandcompletenessofthedata;Istoimprovetheworkingefficiency.Keywords:MAPGISVBAearlydetectiondataprocessingautomation中圖分類(lèi)號(hào)：TV674文獻(xiàn)標(biāo)識(shí)碼：A文章編號(hào)：2095-2104（2013）一、引言8溫州供水信息系統(tǒng)是采用武漢中地?cái)?shù)碼有限公司開(kāi)發(fā)的MAPGIS67，現(xiàn)系統(tǒng)有管線(xiàn)數(shù)據(jù)約2400萬(wàn)公里；數(shù)據(jù)更新源于實(shí)業(yè)公司測(cè)量分公司采用“物探+RTK+全站儀”測(cè)量取得地理空間數(shù)據(jù)，經(jīng)過(guò)一系列人工轉(zhuǎn)換合并和填充屬性得到相應(yīng)成果

3、表。由于MAPGIS軟件的設(shè)定；成果表必須包括本點(diǎn)號(hào)、上點(diǎn)號(hào)、橫坐標(biāo)、豎坐標(biāo)、點(diǎn)類(lèi)型、類(lèi)型等屬性。現(xiàn)實(shí)測(cè)量過(guò)程中，測(cè)量單位只對(duì)供水管線(xiàn)的空間數(shù)據(jù)進(jìn)行測(cè)量；而本點(diǎn)號(hào)、上點(diǎn)號(hào)、點(diǎn)類(lèi)型等信息屬性依靠?jī)?nèi)業(yè)處理時(shí)人工或者部分計(jì)算機(jī)生成；根據(jù)是日常工作中總結(jié)每月更新30公里需要約測(cè)量8000點(diǎn)，每個(gè)點(diǎn)需要填寫(xiě)約30項(xiàng)屬性，導(dǎo)致測(cè)量成果的內(nèi)業(yè)處理需要花費(fèi)大量的時(shí)間、繁瑣且極易出錯(cuò)。筆者在閱讀過(guò)《城鎮(zhèn)供水》2010年第六期中的《淺談綜合管線(xiàn)GIS系統(tǒng)前期探測(cè)數(shù)據(jù)的自動(dòng)化處理》后，發(fā)現(xiàn)了該方式進(jìn)行一定的改進(jìn)，不足的是僅僅對(duì)規(guī)律性的重復(fù)數(shù)據(jù)進(jìn)行自動(dòng)化填寫(xiě)；對(duì)測(cè)量的數(shù)據(jù)還是依靠人工進(jìn)行操作，制作成

4、果表，而且對(duì)飛點(diǎn)、異常點(diǎn)無(wú)法進(jìn)行直觀的判斷出。因此筆者想到了直接用Excel中的VBA讀取由全站儀導(dǎo)出的ASCⅡ文件，依據(jù)先關(guān)條件進(jìn)行必要的判斷、分類(lèi)直接生成符合MAPGIS系統(tǒng)導(dǎo)入的成果表。同時(shí)能利用VBA調(diào)用AUTOCAD進(jìn)行繪圖、標(biāo)注，用于直觀的內(nèi)業(yè)檢錯(cuò)。二、編程的基本思路及運(yùn)行的過(guò)程1、首先建立一個(gè)excel文件作為VBA的程序載體，將該文件命名為“測(cè)量數(shù)據(jù)內(nèi)業(yè)處理表.XLS”,在excel的菜單中選擇“工具—宏—visual8basic編輯器”也可以直接按“alt+F11”進(jìn)入VBA編輯器界面。按照自己的設(shè)想添加一個(gè)用戶(hù)窗并在窗體中放置若干按鈕，并編寫(xiě)各種控件的編碼

5、（參考下文）。程序運(yùn)行界面如圖1所示。（圖1）2、程序運(yùn)行介紹：每次打開(kāi)改文件就自動(dòng)運(yùn)行本程序，如上圖所示，點(diǎn)擊“生成成果表格式”鍵將生成為標(biāo)準(zhǔn)的MAPGIS成果表格格式（成果表格式見(jiàn)圖2），點(diǎn)擊“導(dǎo)入測(cè)量成果”健將全站儀導(dǎo)出的ASCⅡ類(lèi)型文件（常見(jiàn)的轉(zhuǎn)換為T(mén)XT文件）導(dǎo)入，然后根據(jù)預(yù)定的規(guī)則進(jìn)行分類(lèi)、填寫(xiě)。接下來(lái)可以點(diǎn)擊“生成成果表”或者“展點(diǎn)到CAD”分別進(jìn)行成果表和調(diào)用CAD進(jìn)行成圖。運(yùn)行結(jié)果如圖3和圖4所示。（圖2）3、功能實(shí)現(xiàn)：文件的讀取與VB的編程差不多，在這里就不贅述了；必須注意的是全站儀導(dǎo)出的數(shù)據(jù)文件（筆者使用的為拓普康全站儀），坐標(biāo)格式數(shù)據(jù)為PT、-、Y、X

6、、H排列；其中PT為點(diǎn)號(hào)，Y,X為坐標(biāo),H為高程（見(jiàn)圖5）。難點(diǎn)一是調(diào)用AUTOCAD并進(jìn)行展點(diǎn)連線(xiàn)，關(guān)于調(diào)用CAD的代碼很容易查到(注意要在VBA編輯器內(nèi)引用到AUTOCADTYPELIBRARY)，關(guān)鍵在于讀取數(shù)據(jù)后要逐點(diǎn)進(jìn)行展點(diǎn)、標(biāo)注點(diǎn)號(hào)、邊長(zhǎng)連線(xiàn)。8難點(diǎn)二是如何讓計(jì)算機(jī)如何自動(dòng)生成不重復(fù)的本點(diǎn)號(hào)、上點(diǎn)號(hào)。由于筆者的管網(wǎng)采用分區(qū)管理的辦法，所以測(cè)量后內(nèi)業(yè)處理時(shí)本點(diǎn)號(hào)、上點(diǎn)號(hào)的生成依據(jù)分區(qū)號(hào)+順序號(hào)，城市供水管線(xiàn)測(cè)量前一般都要進(jìn)行管位物探，以確定是否存在管道和確定管位；因此物探后必須建立相關(guān)的說(shuō)明文件來(lái)確定管線(xiàn)連接情況；而因此建立的TXT文件就成為我們判斷管線(xiàn)連接情況、管

7、點(diǎn)類(lèi)型的判斷依據(jù)。（(圖3）（圖4）（圖5）三、主要的程序代碼及注釋程序中的主要的幾處代碼列于下文（不包括若干的子函數(shù)），因代碼太長(zhǎng)故略有刪減，僅作參考。1、“生成成果表格式”按鍵對(duì)應(yīng)的代碼Range(“A1”).FormulaR1C1=“本點(diǎn)號(hào)”‘分別賦值為字段名，生成標(biāo)準(zhǔn)的MAPGIS成果表Range(“B1”).FormulaR1C1=“上點(diǎn)號(hào)”Range(“C1”).FormulaR1C1=“點(diǎn)類(lèi)型”Range(“D1”).FormulaR1C1=“類(lèi)型”Range(“E1”).FormulaR