王保國

(蚌埠市勘測設(shè)計研究院，安徽 蚌埠 233000)

基于AutoCAD的地塊宗地成果快速輸出方法與實現(xiàn)

王保國*

(蚌埠市勘測設(shè)計研究院，安徽 蚌埠 233000)

采用AutoCAD作為農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記項目數(shù)據(jù)采集與制圖工具。為了準確快速獲取地塊宗地成果資料，本文嘗試運用AutoCAD VBA二次開發(fā)技術(shù)編制軟件工具予以實現(xiàn)。通過遍歷全部地塊對象，自動提取圖形要素，讀取其擴展屬性中地塊權(quán)屬數(shù)據(jù)，并逐地塊輸出到Word文檔中，從而實現(xiàn)地塊宗地成果資料的快速輸出，提高了工作效率，保證了數(shù)據(jù)的準確性。

AutoCAD；數(shù)據(jù)組織；擴展屬性；地塊權(quán)屬

1 引 言

農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記是推動農(nóng)村土地流轉(zhuǎn)，培育農(nóng)業(yè)新型經(jīng)營主體，發(fā)展農(nóng)業(yè)適度規(guī)模經(jīng)營的重要工程，關(guān)系廣大農(nóng)民切身的利益，因而備受社會廣泛關(guān)注。其主要工作包括獲取地塊信息，弄清、搞準農(nóng)戶承包地塊面積和地塊四至，完善農(nóng)村土地承包合同，建立農(nóng)村土地承包經(jīng)營權(quán)登記簿，頒發(fā)統(tǒng)一規(guī)范的農(nóng)村土地承包經(jīng)營權(quán)證書，并進行登記資料歸檔，將確權(quán)登記頒證成果納入信息化管理系統(tǒng)。作為一項復(fù)雜的系統(tǒng)工程，其涉及影像獲取、圖形數(shù)據(jù)獲取、權(quán)屬調(diào)查、屬性數(shù)據(jù)整理、資料整理建庫等多個環(huán)節(jié)。尤其在工程后期，包含多種文檔資料的整理，任務(wù)繁雜，人工完成，耗時耗力，且極易出錯。

AutoCAD作為一款功能齊全、應(yīng)用廣泛、操作友好的通用圖形軟件，具有強大的繪圖功能[1]。張帆[2]等對AutoCAD VBA二次開發(fā)技術(shù)進行了詳細的論述，通過多個實例程序貫通AutoCAD程序設(shè)計各個技術(shù)環(huán)節(jié)，系統(tǒng)介紹了VBA的豐富的開發(fā)接口。錢業(yè)宏[3]重點對AutoCAD VBA開發(fā)中的擴展屬性的應(yīng)用做了深入探討。

農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記項目中，常采用AutoCAD作為數(shù)據(jù)采集及制圖軟件。本文嘗試以AutoCAD VBA二次開發(fā)技術(shù)，開發(fā)實用工具，實現(xiàn)將采集到的地塊圖形及權(quán)屬信息輸出到Word文檔中，從而快速完成地塊宗地成果資料的生產(chǎn)整理工作。

2 技術(shù)路線

2.1 數(shù)據(jù)組織

在AutoCAD中，軟件本身只管理圖形數(shù)據(jù)，而不管理及存儲屬性數(shù)據(jù)。但留有擴展屬性數(shù)據(jù)接口，可以通過二次開發(fā)的方式實現(xiàn)對屬性數(shù)據(jù)的存儲及管理功能。AutoCAD擴展屬性采用組碼[4]的格式添加到圖形數(shù)據(jù)中，因此可以通過寫入、讀取圖形對象的擴展屬性，實現(xiàn)地塊權(quán)屬信息在AutoCAD中的存儲與管理。在AutoCAD VBA二次開發(fā)技術(shù)中，通過實體對象的SetXData和GetXData接口實現(xiàn)擴展屬性的寫入與讀取[5]。圖1，為一個地塊的權(quán)屬信息，主要包括行政區(qū)、行政區(qū)代碼、戶主、地塊編號、四至及土地性質(zhì)等。

圖1 地塊權(quán)屬信息

2.2 數(shù)據(jù)預(yù)處理

在進行地塊屬性數(shù)據(jù)輸出前，首先對成果數(shù)據(jù)進行檢查預(yù)處理，主要包括：

(1)屬性缺失檢查

屬性數(shù)據(jù)缺失檢查包括無屬性數(shù)據(jù)檢查和屬性數(shù)據(jù)個數(shù)缺失檢查兩方面。無屬性數(shù)據(jù)檢查是指檢查地塊對象是否含有擴展屬性，及所含擴展屬性是否為地塊權(quán)屬信息。屬性數(shù)據(jù)個數(shù)缺失檢查是檢查地塊對象所含權(quán)屬信息是否存在個數(shù)缺失等錯誤。

(2)屬性錯誤檢查

屬性錯誤檢查是對地塊的屬性信息的正確性進行檢查，包括權(quán)屬信息完整性、正確性等。

檢查完成后，對錯誤項或疑似錯誤項進行標注，提醒進行處理。

2.3 技術(shù)路線

按照農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記相關(guān)技術(shù)要求，確定需要輸出到地塊宗地資料文檔的屬性數(shù)據(jù)。遍歷AutoCAD文件中地塊對象，讀取要求輸出的屬性信息，并提取出地塊圖形數(shù)據(jù)。將提取的圖形文件(圖片)和屬性數(shù)據(jù)，按照要求格式輸出到Word文檔中。一個地塊輸出完成后，讀取下一個地塊，直至全部輸出完畢，實現(xiàn)地塊宗地成果資料的生產(chǎn)整理。

3 程序?qū)崿F(xiàn)

本文所述輸出方法的實現(xiàn)，主要包括三個技術(shù)環(huán)節(jié)：地塊圖形的圖片輸出、地塊屬性數(shù)據(jù)的讀取及地塊宗地成果資料的生成。

3.1 地塊圖形的圖片輸出

農(nóng)村土地承包經(jīng)營權(quán)權(quán)屬調(diào)查成果之一，是由帶權(quán)屬信息且互不重疊的地塊多邊形組成的AutoCAD文件。如圖2所示，為某村的地塊成果圖，共有10 819個地塊對象。要將大量的地塊圖形逐個輸出到Word文檔中，人工操作顯然難以完成。本文采用VBA二次開發(fā)技術(shù)，通過文檔布局的PlotToFile方法來實現(xiàn)地塊圖形的提取與輸出工作。首先，讀取當(dāng)前地塊，然后將地塊對象復(fù)制到新建文檔中，再用PlotToFile方法將地塊輸出為圖片。以某個地塊對象為例，輸出圖片為“d：1.jpg”的主要程序代碼為：

Dim objPlot As AcadPlot ’定義布局對象

objPlot.PlotToFile "d：1.jpg"，"PublishToWeb JPG.pc3"

圖2 地塊成果圖

3.2 地塊屬性的讀取

按照相關(guān)技術(shù)要求，本文制作的實用工具主要讀取地塊權(quán)屬信息中的地塊編號、地塊名稱、實測面積及四至數(shù)據(jù)。AutoCAD擴展屬性的讀取采用實體對象的GetXData方法，并將讀取的當(dāng)前地塊權(quán)屬數(shù)據(jù)存儲在自定義結(jié)構(gòu)中。

3.3 地塊宗地成果資料的生成

地塊宗地成果資料要求為Word格式，包含地塊圖形及相關(guān)權(quán)屬信息。將AutoCAD數(shù)據(jù)輸出到Word中，首先要獲取Word對象，并啟動Word應(yīng)用程序。在AutuoCAD VBA二次技術(shù)中，啟動Word程序，并新建一個文檔文件的主要代碼如下：

Dim objWord As Word.Application

Dim objWordDocument As Word.Document

Set objWord=New Word.Application

Set objWordDocument=objWord.Documents.Add

objWord.Visible=True

然后通過在Word中按照要求添加表格，并將之前提取的地塊圖形圖片和讀取的屬性數(shù)據(jù)輸出到指定位置表格中。遍歷所有地塊對象，從而完成地塊權(quán)屬信息的輸出工作，如圖3所示為部分地塊輸出后的文檔資料成果。

圖3 地塊信息表

4 結(jié) 論

地塊宗地成果資料是農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記工程的重要成果之一，工作量巨大。本文所述方法開發(fā)的自制工具，操作簡單，能夠快速批量的提取地塊權(quán)屬信息并將之輸出到Word文檔中。整個輸出過程自動化程度高，具有高效率、高準確性的特點。在農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記工程地塊宗地成果資料輸出的實際生產(chǎn)中，提高工作效率和經(jīng)濟效益。

[1] 崔洪波，李井杰，賀智. 城市大比例尺CAD數(shù)據(jù)到GIS數(shù)據(jù)的轉(zhuǎn)換[J]. 測繪與空間地理信息，2011(2).

[2] 張帆. AutoCAD+VBA二次開發(fā)教程[M]. 北京：清華大學(xué)出版社.

[3] 錢業(yè)宏，花向紅. AutoCAD擴展數(shù)據(jù)在地形圖建庫中的應(yīng)用[J]. 城市勘測，2008(1)：118～119.

[4] 王建設(shè)，時東玉，禇喆等. AutoCAD二次開發(fā)解決二調(diào)中數(shù)據(jù)采集中的問題[J]. 現(xiàn)代測繪，2008(6)：44～46.

[5] 劉賀明. AutoCAD在工程測量中的應(yīng)用[J]. 測繪與空間地理信息，2011(4)：231～232.

[6] 覃茂運，龍保呈，何一明. 基于地理信息服務(wù)的AutoCAD設(shè)計模式探討[J]. 城市勘測，2011(4)：82～85.

[7] 李胤，楊武年，李麗等. MAPGIS與AutoCAD在礦產(chǎn)資源利用現(xiàn)狀調(diào)查中的應(yīng)用[J]. 金屬礦山，2011(8)：116～118.

[8] 李金朋，劉化冰，李新雙. 基于插件式GIS實現(xiàn)CAD數(shù)據(jù)到GIS數(shù)據(jù)的轉(zhuǎn)換[J]. 測繪；2011(4)：168～170.

Rapid Output Method and Implementation of Parcel Land Parcel Production Based on AutoCAD

Wang Baoguo

(Bengbu Geotechnical Engineering and Surveying Institue，Bengbu 233000，China)

AutoCAD is used as the data acquisition and mapping tool for the registration of rural land contractual management right. In order to obtain accurate and rapid land parcel production data，this paper attempts to use AutoCAD VBA two development techniques to prepare software tools to achieve. By traversing all plots，automatic extraction of graphic elements，read the expansion of land ownership data attributes，and each block is output to the Word document，so as to realize the fast output data of land parcel achievements，improve work efficiency，ensure the accuracy of the data.

AutoCAD；data organization；extended attribute；land ownership

1672-8262(2017)04-122-03

P209

B

2017—06—07

王保國(1979—)，男，高級工程師，注冊測繪師，主要從事測繪技術(shù)與管理工作。