农村土地承包经营权调查属性快速注记方法的实现*

曹起铜，丁坦方，张景瑞

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

农村土地承包经营权调查属性快速注记方法的实现*

曹起铜1，丁坦方2，张景瑞1

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

农村土地承包经营权调查属性注记是链接图形信息和数据库的重要纽带，是农村土地承包经营权调查的关键环节之一。传统作业方法的属性注记存在重复工作量大、容易出错等众多弊端。为此，文章在.net环境下开发了AutoCAD“属性注记”插件，并将其应用于杭州市富阳区农经权调查项目生产实践，实践证明成果数据完全符合规程规范和数据入库的标准要求，既确保了成果质量，又提高了作业效率。

农村土地承包经营权调查；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 引言

农村土地承包经营权(简称“农经权”)调查数据主要分为地理信息数据和地块属性数据。地理信息数据包括基础地理信息要素、农村土地权属要素和栅格数据；地块权属数据包括发包方、承包方、地块信息、权属来源、承包经营权登记簿、承包经营权证等[1]。调查数据主要通过外业采集方式获取，并根据相关规程规范要求，须将地块名称、承包方代表、合同面积、实测面积、地块调查记事、地块编码等属性内容注记到相对应的地块区域内[2]，属性注记之后再根据地块编码或承包方代表、合同面积将承包地块与数据库进行挂接。

属性注记是农经权调查的一项重要工作，传统作业方法无法批量处理，导致重复工作量大、出错(注记错误、遗漏等)率高。笔者在Microsoft Visual Studios.net环境下采用Visual Basic、C#等语言二次开发了AutoCAD“属性注记”插件，通过杭州市富阳区农经权调查项目生产实践，结果表明属性注记速度得到大大提高，生产的成果数据完全符合农村土地承包经营权确权调查规程规范和数据入库的标准要求。

1 属性注记基本要求

基于.net开发的AutoCAD“属性注记”插件，须以农村土地承包经营权确权登记颁证的规程规范为依据，确保属性信息录入准确无误，基本要求如下：

1)根据农业部下发的NY/T 2538—2014《农村土地承包经营权要素编码规则》规定，发包方代码由14位阿拉伯数字构成共分为4部分，第1-6位、第7-9位、第10-12位、第13-14位分别表示县级、乡级、村级及组级代码。

为减少发包方注记的工作量和重复执行命令，每次输入发包方编码时，在地块分布图内应建“发包方编码”图层，并将相应发包方编码注记在本图层。

2)承包地块代码由19位阿拉伯数字构成共分为2部分，前一部分14位数字表示“发包方代码”，后一部分5位数表示“顺序号”[3-4]。

为了便于注记，作业人员往往会去掉顺序码前的“0”，所以在注记顺序码时，将顺序码前“添0”补足5位，再生成承包地块代码，以便于准确查找承包地块的相应属性信息。

3)为了便于数据库链接，在地块分布图内建“数据库路径”图层，并将相应数据库文件的路径注记在本图层。

4)为保证注记的地块属性信息准确无误，要求在AutoCAD中建立以下标准图层，这样既可以保证注记属性信息正确，也可以保证挂接时数据录入的正确性。新建图层如表1所示。

表1 AutoCAD新建标准图层

5)每个承包地块的实测面积以外业测绘面积为准，并将面积单位由m2转换为亩，保留3位小数。

6)地块属性文字注记位置，一般以地块线的质心为基点，根据注记文字大小，计算每一个注记的具体坐标。

2 快速注记方法的实现

在Microsoft Visual Studios.net环境下二次开发AutoCAD“属性注记”插件，研究的基本思路为：选择“发包方编码”图层的所有注记，检查是否唯一，若注记唯一则将注记赋值到发包方编码字符串；再选择“数据库路径”图层的所有注记，检查是否唯一，若注记唯一则将注记赋值到数据库路径字符串；选择地块线，用户输入此地块的顺序码，软件自动生成地块编码；根据地块编码，在数据库查找相应的字段代码；计算地块线的质心，根据地块质心，计算相应属性字段的注记位置，再将字段代码注记到相应的地块线内。其运行流程，见图1。

图1 快速注记的运行流程图Fig.1 Running flow of rapid attibute annotation

在流程图中可以看到：本插件中有一关键的数学运算就是求地块多边形质心，并根据质心坐标求属性注记坐标。如图2所示，该多边形代表某一承包地块，P1、P2，…、Pn-1、Pn为多边形的n个顶点。

图2 多边形图Fig.2 Polygon

地块质心的坐标计算公式为：

(1)

式中:n为多边形顶点数目；Xi、Yi为第i个顶点的X、Y坐标。

根据计算所得质心，再以该质心为基点，计算相应文字的坐标。在本插件中，文字高度一般为0.5，只需要将每个文字间隔设置为0.8。将前3个文字注记(承包人名称、地块名称、合同面积)Y坐标以基点为中心递增0.8，后两个文字注记(面积注记、地块编码)以基点为中心，递减0.8，X坐标不变即可。

根据图3运行流程图可以看出，本插件关键环节就是根据数据库路径建立的数据集，依次遍历数据集，并从数据集中选定相应的地块属性。然后将相应属性再注记到地块的相应位置[5-10]。其主要代码如下：

；根据地块编码在数据库内查找相应属性

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)将文字添加到事务处理中

acTrans2.Commit()

End Using

Next

3 应用实例

以杭州市富阳区农经权项目为例，使用AutoCAD “属性注记”插件进行作业，具体操作步骤为：在AutoCAD命令行中输入“BMSX”命令后，选择要注记的承包地块线，然后输入相应的地块编码。程序会自动将地块的相应属性内容注记在地块区域的质心位置。注记效果，见图3。

图3 地块属性注记成果图Fig.3 Effect of attribute annotation for land parcel

本案例中每个村地块数量达到上千块，经统计采用传统的属性注记方法，因注记错误而无法挂接的地块达到10%以上，而采用AutoCAD “属性注记”插件通过批量处理进行属性注记，将此类错误率降到0.1%以下。说明此插件能有效提高了作业效率，而且注记准确、美观，确保了成果质量。

4 结束语

实践证明，利用本文所述的AutoCAD“属性注记”插件进行生产作业，产品成果完全满足农村土地承包经营权确权调查规程规范要求，而且从根本上解决了人为输入的错误，同时地块属

性注记作业速度提高了数十倍。此“属性注记”插件也可以为地理国情普查、不动产调查、农林普查等其它测绘调查类项目提供使用或借鉴。

[1] 农业部.NT/T 2539—2014农村土地承包经营权确权登记数据库规范[S].北京：中国农业出版社，2014.

[2] 农业部.NT/T 2537—2014农村土地承包经营权调查规程[S].北京：中国农业出版社，2014.

[3] 农业部.NT/T 2538—2014农村土地承包经营权要素编码规则[S].北京：中国农业出版社，2014.

[4] 农业部.规划设计研究院农村土地承包经营权确权登记颁证技术教程[M].北京：中国农业出版社，2015.

[5] 张权，郭天娇.SQL查询的艺术[M].北京：人民邮电出版社，2014.

[6] 雷景生，叶文珺，楼越焕.数据库原理与应用[M].2版.北京：清华大学出版社，2015.

[7] Thearon Willis，Bryan Newsome.Visual Basic 2010入门经典[M].吴传敏，李周芳，译.6版.北京：清华大学出版社，2011.

[8] 张帆，朱文俊.AutoCAD ObjectARX(VC)开发基础与实例教程[M].北京：中国电力出版社，2014.

[9] 曾洪飞，卢择临，张帆.AutoCAD VBA&VB.NET 开发基础与实例教程(C#版)[M].北京：中国电力出版社，2013.

[10] 周明，董仁扬.Visual LISP程序设计及其应用教程[M].上海：上海科学技术文献出版社，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～)，男，湖南衡阳人，硕士，高级工程师，注册测绘师，现主要从事工程测量、不动产调查等方面的生产和管理工作。