農(nóng)村土地承包經(jīng)營權(quán)調(diào)查屬性快速注記方法的實現(xiàn)*

曹起銅，丁坦方，張景瑞

(1.浙江省測繪大隊，浙江 杭州 310030； 2.安吉新天地測繪有限公司，浙江 湖州 313300)

農(nóng)村土地承包經(jīng)營權(quán)調(diào)查屬性快速注記方法的實現(xiàn)*

曹起銅1，丁坦方2，張景瑞1

(1.浙江省測繪大隊，浙江 杭州 310030； 2.安吉新天地測繪有限公司，浙江 湖州 313300)

農(nóng)村土地承包經(jīng)營權(quán)調(diào)查屬性注記是鏈接圖形信息和數(shù)據(jù)庫的重要紐帶，是農(nóng)村土地承包經(jīng)營權(quán)調(diào)查的關(guān)鍵環(huán)節(jié)之一。傳統(tǒng)作業(yè)方法的屬性注記存在重復(fù)工作量大、容易出錯等眾多弊端。為此，文章在.net環(huán)境下開發(fā)了AutoCAD“屬性注記”插件，并將其應(yīng)用于杭州市富陽區(qū)農(nóng)經(jīng)權(quán)調(diào)查項目生產(chǎn)實踐，實踐證明成果數(shù)據(jù)完全符合規(guī)程規(guī)范和數(shù)據(jù)入庫的標(biāo)準(zhǔn)要求，既確保了成果質(zhì)量，又提高了作業(yè)效率。

農(nóng)村土地承包經(jīng)營權(quán)調(diào)查；AutoCAD；屬性注記；插件

Abstract：The annotation of attribution not only is an important joint between graphic information and database，but also is one of the key links in the investigation of rural land contract management rights.The traditional attribute annotation operating method has some disadvantages，such as repeated workload，easy mistakes and many other drawbacks.The author developed the AutoCAD “attribute annotation” plugin in .net，which was applied to the production practice of investigation project of the rural land contract management rights in Fuyang District，Hangzhou City.The pratice shows that the results are in full accord with the standard requirements of the regulations，standards and data storage rules.It can ensure the quality of the results，and improve the operation efficiency.

Keywords：investigation of rural land contract management rights；AutoCAD；attribute annotation；plugin

0 引言

農(nóng)村土地承包經(jīng)營權(quán)(簡稱“農(nóng)經(jīng)權(quán)”)調(diào)查數(shù)據(jù)主要分為地理信息數(shù)據(jù)和地塊屬性數(shù)據(jù)。地理信息數(shù)據(jù)包括基礎(chǔ)地理信息要素、農(nóng)村土地權(quán)屬要素和柵格數(shù)據(jù)；地塊權(quán)屬數(shù)據(jù)包括發(fā)包方、承包方、地塊信息、權(quán)屬來源、承包經(jīng)營權(quán)登記簿、承包經(jīng)營權(quán)證等[1]。調(diào)查數(shù)據(jù)主要通過外業(yè)采集方式獲取，并根據(jù)相關(guān)規(guī)程規(guī)范要求，須將地塊名稱、承包方代表、合同面積、實測面積、地塊調(diào)查記事、地塊編碼等屬性內(nèi)容注記到相對應(yīng)的地塊區(qū)域內(nèi)[2]，屬性注記之后再根據(jù)地塊編碼或承包方代表、合同面積將承包地塊與數(shù)據(jù)庫進(jìn)行掛接。

屬性注記是農(nóng)經(jīng)權(quán)調(diào)查的一項重要工作，傳統(tǒng)作業(yè)方法無法批量處理，導(dǎo)致重復(fù)工作量大、出錯(注記錯誤、遺漏等)率高。筆者在Microsoft Visual Studios.net環(huán)境下采用Visual Basic、C#等語言二次開發(fā)了AutoCAD“屬性注記”插件，通過杭州市富陽區(qū)農(nóng)經(jīng)權(quán)調(diào)查項目生產(chǎn)實踐，結(jié)果表明屬性注記速度得到大大提高，生產(chǎn)的成果數(shù)據(jù)完全符合農(nóng)村土地承包經(jīng)營權(quán)確權(quán)調(diào)查規(guī)程規(guī)范和數(shù)據(jù)入庫的標(biāo)準(zhǔn)要求。

1 屬性注記基本要求

基于.net開發(fā)的AutoCAD“屬性注記”插件，須以農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記頒證的規(guī)程規(guī)范為依據(jù)，確保屬性信息錄入準(zhǔn)確無誤，基本要求如下：

1)根據(jù)農(nóng)業(yè)部下發(fā)的NY/T 2538—2014《農(nóng)村土地承包經(jīng)營權(quán)要素編碼規(guī)則》規(guī)定，發(fā)包方代碼由14位阿拉伯?dāng)?shù)字構(gòu)成共分為4部分，第1-6位、第7-9位、第10-12位、第13-14位分別表示縣級、鄉(xiāng)級、村級及組級代碼。

為減少發(fā)包方注記的工作量和重復(fù)執(zhí)行命令，每次輸入發(fā)包方編碼時，在地塊分布圖內(nèi)應(yīng)建“發(fā)包方編碼”圖層，并將相應(yīng)發(fā)包方編碼注記在本圖層。

2)承包地塊代碼由19位阿拉伯?dāng)?shù)字構(gòu)成共分為2部分，前一部分14位數(shù)字表示“發(fā)包方代碼”，后一部分5位數(shù)表示“順序號”[3-4]。

為了便于注記，作業(yè)人員往往會去掉順序碼前的“0”，所以在注記順序碼時，將順序碼前“添0”補(bǔ)足5位，再生成承包地塊代碼，以便于準(zhǔn)確查找承包地塊的相應(yīng)屬性信息。

3)為了便于數(shù)據(jù)庫鏈接，在地塊分布圖內(nèi)建“數(shù)據(jù)庫路徑”圖層，并將相應(yīng)數(shù)據(jù)庫文件的路徑注記在本圖層。

4)為保證注記的地塊屬性信息準(zhǔn)確無誤，要求在AutoCAD中建立以下標(biāo)準(zhǔn)圖層，這樣既可以保證注記屬性信息正確，也可以保證掛接時數(shù)據(jù)錄入的正確性。新建圖層如表1所示。

表1 AutoCAD新建標(biāo)準(zhǔn)圖層

5)每個承包地塊的實測面積以外業(yè)測繪面積為準(zhǔn)，并將面積單位由m2轉(zhuǎn)換為畝，保留3位小數(shù)。

6)地塊屬性文字注記位置，一般以地塊線的質(zhì)心為基點，根據(jù)注記文字大小，計算每一個注記的具體坐標(biāo)。

2 快速注記方法的實現(xiàn)

在Microsoft Visual Studios.net環(huán)境下二次開發(fā)AutoCAD“屬性注記”插件，研究的基本思路為：選擇“發(fā)包方編碼”圖層的所有注記，檢查是否唯一，若注記唯一則將注記賦值到發(fā)包方編碼字符串；再選擇“數(shù)據(jù)庫路徑”圖層的所有注記，檢查是否唯一，若注記唯一則將注記賦值到數(shù)據(jù)庫路徑字符串；選擇地塊線，用戶輸入此地塊的順序碼，軟件自動生成地塊編碼；根據(jù)地塊編碼，在數(shù)據(jù)庫查找相應(yīng)的字段代碼；計算地塊線的質(zhì)心，根據(jù)地塊質(zhì)心，計算相應(yīng)屬性字段的注記位置，再將字段代碼注記到相應(yīng)的地塊線內(nèi)。其運行流程，見圖1。

圖1 快速注記的運行流程圖Fig.1 Running flow of rapid attibute annotation

在流程圖中可以看到：本插件中有一關(guān)鍵的數(shù)學(xué)運算就是求地塊多邊形質(zhì)心，并根據(jù)質(zhì)心坐標(biāo)求屬性注記坐標(biāo)。如圖2所示，該多邊形代表某一承包地塊，P1、P2，…、Pn-1、Pn為多邊形的n個頂點。

圖2 多邊形圖Fig.2 Polygon

地塊質(zhì)心的坐標(biāo)計算公式為：

(1)

式中:n為多邊形頂點數(shù)目；Xi、Yi為第i個頂點的X、Y坐標(biāo)。

根據(jù)計算所得質(zhì)心，再以該質(zhì)心為基點，計算相應(yīng)文字的坐標(biāo)。在本插件中，文字高度一般為0.5，只需要將每個文字間隔設(shè)置為0.8。將前3個文字注記(承包人名稱、地塊名稱、合同面積)Y坐標(biāo)以基點為中心遞增0.8，后兩個文字注記(面積注記、地塊編碼)以基點為中心，遞減0.8，X坐標(biāo)不變即可。

根據(jù)圖3運行流程圖可以看出，本插件關(guān)鍵環(huán)節(jié)就是根據(jù)數(shù)據(jù)庫路徑建立的數(shù)據(jù)集，依次遍歷數(shù)據(jù)集，并從數(shù)據(jù)集中選定相應(yīng)的地塊屬性。然后將相應(yīng)屬性再注記到地塊的相應(yīng)位置[5-10]。其主要代碼如下：

；根據(jù)地塊編碼在數(shù)據(jù)庫內(nèi)查找相應(yīng)屬性

For intLoopVariable1 = 0 TointRowsLength - 1

strDKBM2 = objDataSet.Tables("DKSX").Rows(intLoopVariable1).Item(3)

If strDKBM = strDKBM2 Then

strCBFMC = objDataSet.Tables("DKSX").Rows(intLoopVariable1).Item(0)

strDKMC = objDataSet.Tables("DKSX").Rows(intLoopVariable1).Item(1)

strHTMJ = objDataSet.Tables("DKSX").Rows(intLoopVariable1).Item(2)

End If

Next

；注記地塊屬性

For intloopvariable3 = 0 To 6

Using acTrans2 As Transaction = acCurDB.TransactionManager.StartTransaction()

Dim acBlkTab As BlockTable = acTrans2.GetObject(acCurDB.BlockTableId，OpenMode.ForRead)'打開塊表

Dim acBlkTabRec As BlockTableRecord = acTrans2.GetObject(acBlkTab(BlockTableRecord.ModelSpace)，OpenMode.ForWrite)'打開塊表記錄

Dim acDBText As DBText = New DBText()

acDBText.TextString = arrZJWZ(intloopvariable3)

acDBText.Height = 0.5

acDBText.WidthFactor = arrWidthFactor(intloopvariable3)

acDBText.Position = arracPoint(intloopvariable3)

acDBText.Layer = arrLayer(intloopvariable3)

Dim acObjID As ObjectId = acBlkTabRec.AppendEntity(acDBText)圖形添加到塊表記錄，返回ObjectId

acTrans2.AddNewlyCreatedDBObject(acDBText，True)將文字添加到事務(wù)處理中

acTrans2.Commit()

End Using

Next

3 應(yīng)用實例

以杭州市富陽區(qū)農(nóng)經(jīng)權(quán)項目為例，使用AutoCAD “屬性注記”插件進(jìn)行作業(yè)，具體操作步驟為：在AutoCAD命令行中輸入“BMSX”命令后，選擇要注記的承包地塊線，然后輸入相應(yīng)的地塊編碼。程序會自動將地塊的相應(yīng)屬性內(nèi)容注記在地塊區(qū)域的質(zhì)心位置。注記效果，見圖3。

圖3 地塊屬性注記成果圖Fig.3 Effect of attribute annotation for land parcel

本案例中每個村地塊數(shù)量達(dá)到上千塊，經(jīng)統(tǒng)計采用傳統(tǒng)的屬性注記方法，因注記錯誤而無法掛接的地塊達(dá)到10%以上，而采用AutoCAD “屬性注記”插件通過批量處理進(jìn)行屬性注記，將此類錯誤率降到0.1%以下。說明此插件能有效提高了作業(yè)效率，而且注記準(zhǔn)確、美觀，確保了成果質(zhì)量。

4 結(jié)束語

實踐證明，利用本文所述的AutoCAD“屬性注記”插件進(jìn)行生產(chǎn)作業(yè)，產(chǎn)品成果完全滿足農(nóng)村土地承包經(jīng)營權(quán)確權(quán)調(diào)查規(guī)程規(guī)范要求，而且從根本上解決了人為輸入的錯誤，同時地塊屬

性注記作業(yè)速度提高了數(shù)十倍。此“屬性注記”插件也可以為地理國情普查、不動產(chǎn)調(diào)查、農(nóng)林普查等其它測繪調(diào)查類項目提供使用或借鑒。

[1] 農(nóng)業(yè)部.NT/T 2539—2014農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記數(shù)據(jù)庫規(guī)范[S].北京：中國農(nóng)業(yè)出版社，2014.

[2] 農(nóng)業(yè)部.NT/T 2537—2014農(nóng)村土地承包經(jīng)營權(quán)調(diào)查規(guī)程[S].北京：中國農(nóng)業(yè)出版社，2014.

[3] 農(nóng)業(yè)部.NT/T 2538—2014農(nóng)村土地承包經(jīng)營權(quán)要素編碼規(guī)則[S].北京：中國農(nóng)業(yè)出版社，2014.

[4] 農(nóng)業(yè)部.規(guī)劃設(shè)計研究院農(nóng)村土地承包經(jīng)營權(quán)確權(quán)登記頒證技術(shù)教程[M].北京：中國農(nóng)業(yè)出版社，2015.

[5] 張權(quán)，郭天嬌.SQL查詢的藝術(shù)[M].北京：人民郵電出版社，2014.

[6] 雷景生，葉文珺，樓越煥.數(shù)據(jù)庫原理與應(yīng)用[M].2版.北京：清華大學(xué)出版社，2015.

[7] Thearon Willis，Bryan Newsome.Visual Basic 2010入門經(jīng)典[M].吳傳敏，李周芳，譯.6版.北京：清華大學(xué)出版社，2011.

[8] 張帆，朱文俊.AutoCAD ObjectARX(VC)開發(fā)基礎(chǔ)與實例教程[M].北京：中國電力出版社，2014.

[9] 曾洪飛，盧擇臨，張帆.AutoCAD VBA&VB.NET 開發(fā)基礎(chǔ)與實例教程(C#版)[M].北京：中國電力出版社，2013.

[10] 周明，董仁揚.Visual LISP程序設(shè)計及其應(yīng)用教程[M].上海：上?？茖W(xué)技術(shù)文獻(xiàn)出版社，2008.

RealizationonMethodofRapidAttributeAnnotationinInvestigationof
RuralLandContractManagementRight

CAO Qi-tong1，DING Tan-fang2，ZHANG Jing-rui1

(1.ZhejiangBrigadeofSurveyingandMapping，HangzhouZhejiang310030，China； 2.AnjiNewWorldSurveyingandMappingCo.，Ltd.，HuzhouZhejiang313300，China)

2017-07-10

P 272； P 208

B

1007-9394(2017)03-0047-03

曹起銅(1975～)，男，湖南衡陽人，碩士，高級工程師，注冊測繪師，現(xiàn)主要從事工程測量、不動產(chǎn)調(diào)查等方面的生產(chǎn)和管理工作。