基于VB.net 与CASS for CAD2008 的权籍调查软件开发及应用

陆贻豪

（广州鸿鑫勘测技术有限公司，广州 510000）

在权籍测绘工作中，对土地和房屋进行权属测绘后，需要对所测绘的土地填写宗地基本信息表、界址标示表、界址签章表、界址说明表、调查审核表和共有/共用宗地面积分摊表；对房屋填写房屋基本信息调查表、建筑物区分所有权业主共有部分调查表。对以上表格的信息填写和处理，作业员通常采取人工方式对权籍调查各项表格进行权属信息的录入和管理，通常在权属调查类的工作中，数据量和信息量一般较大，这种利用纯手工模式生产的，工作效率一般都是较为低下的，且此项工作如果涉及的宗地和房屋数量众多时，对一样的属性、重复的信息和可循的内容填写显得枯燥无味，工作也会十分烦琐，耗时耗力。本文出发点主要是对权籍调查属性信息快速录入、存储、管理、查询及权籍调查表输出进行探索和实践。

1 权籍调查内容及方法

权籍调查以地籍调查为基础，以宗地为依托，以满足不动产登记要求为出发点，充分利用已有不动产权籍调查、登记及前期审批、交易和竣工验收等成果资料，采用已有集体土地所有权地籍图、城镇地籍图、村庄地籍图、海籍图、地形图和影像图等图件做工作底图，通过内外业核实、实地调查测量的方法，完成不动产权属调查和不动产测量等工作[1]。

宗地信息：查清宗地的权利人、权利类型、权利性质、土地用途、四至和面积等土地状况[1]。

房屋等构（建）筑物信息：查清房屋权利人、坐落、项目名称、房屋性质、构（建）筑物类型、共有情况、用途、规划用途、幢号、户号、总套数、总层数、所在层次、建筑结构、建成年份、建筑面积、专有建筑面积和分摊建筑面积等内容。针对宗地内的建筑物区分所有权的共有部分，还应查清其权利人、构（建）筑物名称、构（建）筑物数量或者面积、分摊土地面积等[1]。

权籍调查方法：权籍调查主要采用内外业核实和实地调查相结合的方法开展权属调查，查清不动产单元的权属状况、界址、用途和四至等内容，确保不动产权属清晰、界址清楚和空间相对位置关系明确。

2 权籍软件开发

2.1 设计思路

在权籍测绘工作中，为了提高生产效率，用软件完成权籍调查的内业数据录入、存储和管理等工作，改变调查人员直接纯手工填写不动产权籍调查表作业方式，本文根据生产经验对权籍调查数据整理进行了探索和实践，采用VB.net 的VisualBasic 语言开发成软件（代码将免费分享于百度硬盘中，有同行编程爱好者可以从文末链接下载），根据生产情况灵活调整数据样板方式，直接导入同类型宗地完成权属数据录入；对界址标示表可按地方习惯在代码中固定输出，界址签章表根据选定的邻宗信息和西至走向设置签章行；界址点位说明采取拉选方式，通过右键单击，自动匹配“点位说明.dt”文件，点位说明文件可以任意增减地物名称或方位，如J1—J2 号界址点位于空地或J1—J2 号界址点位于本宗地西北角处，也可以采取地方习惯，如详见宗地图；主要权属界线走向说明采取同一方位拉选方式，对选择的起始点和终点进行方位计算来判断权属界线走向，如由J1 沿西北方向经J2、J3、J4、…、J8、J9、J10 走向至J11。

权籍软件设计字段内容采用序列化和反序列化读写[2]，文件保存名称与字段名保持一致，信息填写时，采用同名称匹配获取字段内容，通过右键选择项来提升信息录入速度；也可以随意增减常用内容；如果字段内容在CAD 图面上已有，如权利人名称、落座地址和四至名称等，可以通过拾取方式来获取CAD 图面上的文字。软件设计思路如图1 所示。

图1 软件设计思路

2.2 程序设计

程序主要使用VB.net 的VisualBasic 语言进行开发，程序设计部分代码如下。

2.2.1 关联CAD（启动CAD 模块.vb）[3]

Public AcadApp As AcadApplication、Public Sub lyhcad（）

AcadApp = GetObject（，"AutoCAD.Application.17"）......AcadApp.Visible = True、End Sub

2.2.2 创建MDB（根据图2 txt 字段创建）[4]

图2 txt 字段

Dim DataTxt（）As String = IO.File.ReadAllLines（Dpaty & "DataPacket 字 段 设 置.txt"，System.Text.Encoding.Default）

Dim DCi As Integer、Do Until DCi = DataTxt.Count

Dim DCn、DCn = DataTxt（DCi）.Split（"，"）

Dim DCobj As Object = DCn（0）'字段名称

If DCn（1）= "Integer" Then

lyhDataTable.Columns.Append（DCobj ，Data -TypeEnum.adInteger）

lyhDataTable.Columns（DCobj）.Attributes =ColumnAttributesEnum.adColNullable

......（"Single"、"Char"、"Double"、"Date"、"Boolean"、"Binary"等）

End If、DCi += 1、Loop

2.2.3 界址线说明

界址线说明主要是求解方位角后采用8 个方位描述界址走向。

求解方位角：FangWeiJiao。

If Bxy（0）- Axy（0）> 0 And Bxy（1）- Axy（1）>0 Then、FangWeiJiao = Math.Atan（（Bxy（0）- Axy（0）） /（Bxy（1） - Axy（1）））、ElseIf Bxy（0） - Axy（0）> 0 And Bxy（1）- Axy（1）< 0 Then、FangWei－Jiao = Pi + Math.Atan（（Bxy（0） - Axy（0）） /（Bxy（1）- Axy（1）））、ElseIf Bxy（0） - Axy（0） < 0 And Bxy（1）- Axy（1）< 0 Then 、FangWeiJiao = Pi +Math.Atan（（Bxy（0） - Axy（0）） / （Bxy（1） - Axy（1）））、ElseIf Bxy（0） - Axy（0） < 0 And Bxy（1） -Axy（1）> 0 Then 、FangWeiJiao = 2 * Pi + Math.Atan（（Bxy（0） - Axy（0）） /（Bxy（1） - Axy（1）））、End If

界址走向说明：DianWeiZouXiangSM。

DWZXSM = DH_J & Ji & "-" & DH_J & Jj & "，由" & DH_J & Ji & "沿南向北经" & Jn & "走向至" & DH_J & Jj

2.2.4 查询（通过获取宗地的扩展属性查询）[4]

AcadApp.Application.ActiveDocument.Utility.GetEntity（lyhEntity，lyhpnt，"选择对象..."）

Call MDBObjGetXData（lyhEntity）、YBBH = Microsoft.VisualBasic.Right（YBBH，6）

For i = 0 To n Step 1、If Me.DataGridView1.Item（1，i）.Value = YBBH Then

Me.DataGridView1.CurrentCell = Me.DataGrid－View1.Rows（i）.Cells（0）......、End if、Next

获取扩展属性：MDBObjGetXData[4]。

Dim dType As Object（写入扩展采用Int16 类型），dData As Object、Dim Obj1 As AcadEntity =Obj、Obj1.GetXData （""， dType， dData）、Do Until DataGV1_i > XDataN、If dData（DataGV1_i）.ToString ="SOUTH" Then、YBBH = dData （DataGV1_i + 2）.ToString、QLR = dData（DataGV1_i + 3）.ToString Go－To GetXend1、End If、DataGV1_i += 1、Loop

2.3 权籍数据获取流程

（1）数据准备：宗地和房屋界线、权属证明材料和身份证明材料等。

（2）连接数据库：首次时需创建一个空的MDB。

（3）CAD 录入数据库：通过CAD 视图选取宗地对象。

（4）宗地数据录入：通过图面拾取、右键选取、双击标题和导入模版等方式来完成，如图3 所示。

图3 数据录入方式

（5）界址说明：主要涉及界址点说明和界址走向说明，如图4 所示。

图4 界址说明

（6）FC 编辑：主要对房屋信息进行编辑，与宗地共用的信息可能通过继承来预录入。

（7）查询：通查拾取CAD 宗地线获取扩展属性预编号，与DataGridView 进行匹配查询。

（8）成果输出：主要导出不动产权籍调查表。

3 实例应用

3.1 单宗不动产测绘

权利人对土地或房屋进行办证换证等工作时，在不动产登记中心申请登记后，由测量单位开展不动产测绘工作，并对权利人的宗地及房屋出宗地图和房产平面图及填写不动产权籍调查表，图件和权籍调查表经本宗地权利人、邻宗权利人签字，以及村委会盖章确认，成形数据包，上传至不动产权籍系统。以中山市石岐区XXX 路236 号为例，有效快速实现内业数据整理和权籍表格输出，通过加载CAD 图形界面与软件相融合[5]，完成视图上的交互处理，通过拾取宗地界线和房屋基底线获取坐标值和面积大小；权利人信息、权属信息通过右键选取或通过导入常用样例信息完成，也可以通过拾取图面信息进行录入。本文软件在单宗权籍调查的应用，如图5 所示。

图5 单宗不动产测绘

3.2 权属调查

黎溪镇全域土地综合整治试点铁溪村片区权属调查项目工作任务确定实施综合整治区域内集体（经济合作社）、农户的土地所有权、使用权及房屋所有权情况，全面查清宅基地、集体建设用地、农用地等的基本情况，掌握真实的土地基础数据，形成权属数据、图件和表册等调查成果。其中宅基地、集体建设用地采用本文程序完成土地、房屋数据输入，图件输出；权利人信息输入通过匹配农经权户籍信息表完成数据整理；宗地基本信息可以通过导入调查人员登记的“宗地房屋信息表.xls”完成；宗地图是通过写入宗地的基础扩展属性信息，由CASS 批量完成输出；宗地草图由程序根据宗地设定一定比例尺的标准宗地草图模版批量输出。通过英德市黎溪镇全域土地综合整治试点铁溪村片区权属调查——以福龙围组为例，展示权属信息效果如图6 所示，在项目中，程序有效快速地实现了内业数据整理和权籍表格输出。

图6 权属调查

4 结束语

利用VB.net 和CASS for CAD2008 在权籍调查的应用开发，具有一定的实用性，且功能强大，能满足日常测绘开发的需要。软件采取与CAD、EXCEL2010关联，经过应用于实际权籍调查工作，生产效率得到了很大的提高，宗地和房屋信息、权利人信息录入到数据库（MDB）后，日常的不动产数据也得到了很好的管理，日后通过对权属数据加以存储和利用，简易管理和查询也能达到图形数据库的功效。

（代 码 共 享 链 接：https：//pan.baidu.com/s/1gRlgx－CJFQ9nwny8PFlCQXg，提取码：ZDFC，密码：3）