土地利用變化圖斑調查內業處理程序的開發

王濤，張大鵬，朱建偉，徐瑩

(1.天津市測繪院，天津 300381； 2.天津市東麗區地籍管理中心，天津 300300)

土地利用變化圖斑調查內業處理程序的開發

王濤1?，張大鵬2，朱建偉1，徐瑩1

(1.天津市測繪院，天津 300381； 2.天津市東麗區地籍管理中心，天津 300300)

土地利用遙感監測的一項基礎性工作是變化圖斑外業調查及內業處理，外業調查過程瑣碎且易出錯，內業處理人工工作量大，因而考慮開發一套自動化處理程序，用于減少工作量，提高效率并避免人工誤操作。該程序基于標準化的地類編碼表，實現了照片自動整理、自動判定變化圖斑坐落、調查表的自動填寫等功能，應用于實際生產并取得了明顯效益。

變化圖斑；外業調查；自動化處理程序；標準化

1 引 言

土地利用遙感動態監測是國土資源大調查的重要組成部分，其目標是以全國土地利用遙感體系為依托，以3S技術為主要手段，及時、準確掌握土地利用狀況，為各級政府決策提供科學依據。天津市地籍管理中心的土地利用遙感監測體系中的一項重要工作是土地利用變化圖斑外業調查及制表。變化圖斑的外業調查是對遙感影像變化檢測提取的變化圖斑的外業實地核實，為土地變更及違法建設監察等工作提供準確、翔實的資料，外業調查成果的好壞直接影響到天津市土地利用變更管理系統的質量。

2 外業調查及內業處理工作內容

變化圖斑外業調查的工作內容包括:①確定新增建設用地圖斑的真偽和范圍；②確定變化圖斑的坐落及鄰近的重要地理要素(道路和水系)；③實地拍攝地塊的多角度照片；④調查新增建設用地圖斑的地類、現場情況描述；⑤調查新增建設用地的用地單位名稱；⑥測量新增道路、管道等線狀地物的寬度。

內業處理則是完成圖斑照片的整理和電子版調查記錄表的填寫。規程要求將照片存放到以圖斑號命名的文件夾中，并按拍攝順序將照片命名為圖斑號-a、圖斑號-b、……的樣式。調查記錄表的主要內容如表1所示。

變化圖斑外業調查記錄表 表1

外業調查所采用的資料為2.5m SPOT 5彩色影像、變化圖斑矢量數據，相關數據包括:調查區的村界矢量數據、道路矢量數據、水系矢量數據。

該工作的流程如圖1所示。

圖1 外業調查及內業處理流程

3 內業自動化處理程序

內業處理包括照片整理和電子版調查表的填寫，工作量大且易發生手工操作失誤，有時還會因人員習慣的差異造成內容的不一致。針對此情況，本文在對記錄表各項內容邏輯分析的基礎上，運用程序實現對調查記錄表的自動填寫，同時利用程序自動處理照片整理問題。

本程序基于VB.NET 2005平臺開發，圖2為其界面。該程序的功能有:①圖斑照片自動整理；②運用空間分析方法自動判定圖斑坐落；③自動填寫調查表。

使用前須建立工程目錄，工程目錄的內容包括:①照片目錄，存放全部原始照片；②數據目錄，包括待填寫的調查表，調查區的變化圖斑shapefile文件、村界shapefile文件、道路及水系shapefile文件。

圖2 土地利用變化圖斑內業處理程序

3.1 圖斑照片整理

外業調查人員在拍攝圖斑照片時，須在外業調查表上依次記錄每個圖斑的照片數量。內業處理時，根據拍照記錄人工制作Excel文件格式的圖斑照片索引表。程序的圖斑照片整理功能讀取照片索引表內容(如圖3所示)，首先根據序號及圖斑號，在工程目錄下依次建立圖斑號命名的照片文件夾；因照片的拍照順序與圖斑號在時間上是連續對應的，且每個圖斑包含的照片數量也已知，因而從時間邏輯上依據照片文件的拍照時間可判定每張照片歸屬于哪個圖斑照片文件夾，依據此原理程序自動從存放全部原始照片的目錄中將應有的照片復制到圖斑照片文件夾中，并依據照片文件的拍照時間先后將其改名為圖斑號-a.JPG、圖斑號-b.JPG、……的樣式，如圖4所示。這樣圖斑照片整理的工作全部完成，其全部由程序實現而無需人工處理照片數量，在工程目錄下自動建立圖斑號命名的照片文件夾，將其應有的照片全部復制到該文件夾內并按要求改名。本功能完全替代了內業人工操作，且避免了外業拍照時的照片編號和記錄。

圖3 照片索引表

圖4 自動創建的照片目錄

3.2 自動判定圖斑位置

調查表中的一項重要內容為判定圖斑坐落，即準確填寫圖斑所在行政村村名及四向位置(即村的東、南、西、北方位)，若圖斑周圍50m內有道路或河流經過，還須填寫道路或河流的名稱及方位。本程序運用ArcObject提供的矢量數據空間分析接口，運用疊置分析自動判定圖斑所在行政村坐落，運用緩沖區分析判定圖斑附近的道路或河流要素。圖斑矢量與村界矢量空間疊置分析如圖5所示，其中紅線所框為變化圖斑，黃線則代表村界。疊置分析判定圖斑坐落的代碼如下。

'村界矢量與圖斑矢量進行求交運算，生成新的交集矢量文件

Dim pNewwsName As IWorkspaceName

pNewwsName=New WorkspaceName

pNewwsName.WorkspaceFactoryProgID="esriData-SourcesFile.ShapefileWorkspaceFactory"

pNewwsName.PathName=strPathTB

Dim pDatasetName As IDatasetName

pDatasetName=pFeatClassName

pDatasetName.Name="Intersect"

pDatasetName.WorkspaceName=pNewwsName

Dim tol As Double=0.1

'調用IBasicGeoprocessor接口進行矢量求交運算

Dim pBGP As IBasicGeoprocessor

pBGP=New BasicGeoprocessor

Dim pFeatClassOut As IFeatureClass

pFeatClassOut=pBGP.Intersect(pTableTB，False，pT-ableCJ，False，tol，pFeatClassName)

'從交集矢量文件中提取出圖斑號與村名的對應關系，寫入到臨時TXT文件中

GetMappingFromFeatOut()

'從TXT文件中提取出映射關系，寫入到調查表的“圖斑坐落”項

FillTBZB2Blank()

圖5 圖斑矢量與村界矢量的疊置分析

3.3 自動填寫調查表

該程序的自動填寫功能可完成調查表中絕大多項內容的填寫。如表1所示，“線狀地物寬度”、“備注”等項須人工輸入，“圖斑位置”上步已填寫完成，剩下“現場情況描述”、“變化后國標地類”、“變化后國標歸并地類”三項是相關的。依據“現場情況描述”可判定“變化后國標地類”和“變化后國標歸并地類”，則可編制程序實現此三項的自動填寫，其實現包括兩個步驟:

(1)首先須建立地類標準編碼表，如表2所示，以編碼來表示現場情況描述，該表還建立了現場情況編碼與變化后國標地類、變化后國標歸并地類2項內容的對應關系。另一方面，外業調查人員只需在調查草表內填寫其編碼而無須繁瑣地填寫文字版的“現場情況描述”項，這樣既避免了手寫誤差，也提高了外業的工作效率。

(2)內業處理時，作業人員手工輸入“現場情況描述”項編碼，程序依照編碼表判定出“變化后國標地類”、“變化后國標歸并地類”的編碼。接著，程序自動填寫“變化后國標地類”、“變化后國標歸并地類”2項并將“現場情況描述”項轉化為文字描述，同時還可實現“用地單位”項的半自動填寫。

自動填寫的調查表如表3所示。調查表自動填寫的代碼如下所示。

'打開EXCEL格式的調查表

Dim excelApp As Object:Dim excelBook As Object: Dim excelSheet As Object

excelApp=CreateObject("Excel.Application")

excelBook=excelApp.Workbooks.Open(strXLS)

excelSheet=excelBook.Sheets(1)

Dim nRows As Integer，nCols As Integer

nRows=excelSheet.UsedRange.Rows.Count-3

For i=1 To nRows '首先根據現場描述，填寫兩個地類碼

Dim strXCMSAs String

strXCMS=excelSheet.Cells(i+3，11).Value

Dim strTBCode0 As String="000"

Dim strTBCode1 As String="000"

If strXCMS＜＞""Then

DetemineTBCodeThroughXCMS(strXCMS，strTBCode0，strTBCode1)

End If

excelSheet.Cells(i+3，7).NumberFormat="＠"

excelSheet.Cells(i+3，7).Value=strTBCode0

excelSheet.Cells(i+3，8).NumberFormat="＠"

excelSheet.Cells(i+3，8).Value=strTBCode1

'將現場描述由代碼轉換為實際文字

Dim strXCMSTXT As String=String.Empty

ConvertXCMS2Text(strXCMS，strXCMSTXT)

excelSheet.Cells(i+3，11)=strXCMSTXT

'接著根據圖斑坐落，補充填寫用地單位

FillYDDWAAccordingTBZL()

Next

excelBook.Close()

excelApp.Quit()

excelSheet=Nothing:excelBook=Nothing:excelApp=Nothing

地類編碼表 表2

自動填寫完的調查表 表3

4 結 語

土地利用變化圖斑外業調查工作較為瑣碎，內外業處理上都存在改善之處。本程序基于上述情況考慮，既改變了內業靠繁重手工輸入的模式，實現了自動化處理，也一定程度上減輕了外業工作的復雜度，降低了人力成本，在實際生產中取得了明顯效益，獲得項目工作人員的認可。該程序的應用不僅提高了工作效率，而且還體現了信息化測繪的特點。

[1] GB/T21010-2007.土地利用現狀分類[S].

[2] TD/T1014-2007.第二次全國土地調查技術規程[S].

[3] TD/T1010-1999.土地利用動態遙感監測規程[S].

[4] 周榮軍，李秀鳳.全國“一張圖”工程建設省級外業調查技術方法探討[J].國土資源，2009(11):20～21.

[5] 劉連勝.土地利用動態遙感監測外業調查技術研究[J].廣東土地科學，2010(3).

[6] 王德保，陳寶行，崔淑文.土地利用動態遙感監測應用研究[J].測繪通報，2004(2).

[7] 蘭小機，劉德兒.ArcObjects GIS應用開發——基于C#. NET[M].南昌:江西理工大學出版社，2006.

Development of Indoor Process Program for Field Investigation of Land Use Changing Spot

Wang Tao1，Zhang Dapeng2，Zhu Jianwei1，Xu Ying1
(1.Tianjin Institute of Surveying and Mapping，Tianjin 300381，China；2.Tianjin Dongli District Cadastral Management Center，Tianjin 300300，China)

Investigation of changing spot is a basework of land use remote sensingmonitor system.Field investigation is cockamamie and fallible and indoor process is heavy，so this paper discusses an automatic process program to reduce workload and avoid factitious fault.This program is based on a standardlized code table，and its functions include automaticly neatening of photoes，automaticly determining of changing spot and automaticly filling in of questionary.This program is applied in actual work and it obtains obvious benefit.

changing spot；field investigatio；automatic process program；standard

1672-8262(2013)04-119-03

P237

B

2012—09—27

王濤(1983—)，男，工程師，注冊測繪師，研究方向為城市管線GIS開發及信息化測繪研發。