基于VB.net 與CASS for CAD2008 的權(quán)籍調(diào)查軟件開發(fā)及應(yīng)用

陸貽豪

（廣州鴻鑫勘測技術(shù)有限公司，廣州 510000）

在權(quán)籍測繪工作中，對土地和房屋進行權(quán)屬測繪后，需要對所測繪的土地填寫宗地基本信息表、界址標(biāo)示表、界址簽章表、界址說明表、調(diào)查審核表和共有/共用宗地面積分攤表；對房屋填寫房屋基本信息調(diào)查表、建筑物區(qū)分所有權(quán)業(yè)主共有部分調(diào)查表。對以上表格的信息填寫和處理，作業(yè)員通常采取人工方式對權(quán)籍調(diào)查各項表格進行權(quán)屬信息的錄入和管理，通常在權(quán)屬調(diào)查類的工作中，數(shù)據(jù)量和信息量一般較大，這種利用純手工模式生產(chǎn)的，工作效率一般都是較為低下的，且此項工作如果涉及的宗地和房屋數(shù)量眾多時，對一樣的屬性、重復(fù)的信息和可循的內(nèi)容填寫顯得枯燥無味，工作也會十分煩瑣，耗時耗力。本文出發(fā)點主要是對權(quán)籍調(diào)查屬性信息快速錄入、存儲、管理、查詢及權(quán)籍調(diào)查表輸出進行探索和實踐。

1 權(quán)籍調(diào)查內(nèi)容及方法

權(quán)籍調(diào)查以地籍調(diào)查為基礎(chǔ)，以宗地為依托，以滿足不動產(chǎn)登記要求為出發(fā)點，充分利用已有不動產(chǎn)權(quán)籍調(diào)查、登記及前期審批、交易和竣工驗收等成果資料，采用已有集體土地所有權(quán)地籍圖、城鎮(zhèn)地籍圖、村莊地籍圖、海籍圖、地形圖和影像圖等圖件做工作底圖，通過內(nèi)外業(yè)核實、實地調(diào)查測量的方法，完成不動產(chǎn)權(quán)屬調(diào)查和不動產(chǎn)測量等工作[1]。

宗地信息：查清宗地的權(quán)利人、權(quán)利類型、權(quán)利性質(zhì)、土地用途、四至和面積等土地狀況[1]。

房屋等構(gòu)（建）筑物信息：查清房屋權(quán)利人、坐落、項目名稱、房屋性質(zhì)、構(gòu)（建）筑物類型、共有情況、用途、規(guī)劃用途、幢號、戶號、總套數(shù)、總層數(shù)、所在層次、建筑結(jié)構(gòu)、建成年份、建筑面積、專有建筑面積和分攤建筑面積等內(nèi)容。針對宗地內(nèi)的建筑物區(qū)分所有權(quán)的共有部分，還應(yīng)查清其權(quán)利人、構(gòu)（建）筑物名稱、構(gòu)（建）筑物數(shù)量或者面積、分攤土地面積等[1]。

權(quán)籍調(diào)查方法：權(quán)籍調(diào)查主要采用內(nèi)外業(yè)核實和實地調(diào)查相結(jié)合的方法開展權(quán)屬調(diào)查，查清不動產(chǎn)單元的權(quán)屬狀況、界址、用途和四至等內(nèi)容，確保不動產(chǎn)權(quán)屬清晰、界址清楚和空間相對位置關(guān)系明確。

2 權(quán)籍軟件開發(fā)

2.1 設(shè)計思路

在權(quán)籍測繪工作中，為了提高生產(chǎn)效率，用軟件完成權(quán)籍調(diào)查的內(nèi)業(yè)數(shù)據(jù)錄入、存儲和管理等工作，改變調(diào)查人員直接純手工填寫不動產(chǎn)權(quán)籍調(diào)查表作業(yè)方式，本文根據(jù)生產(chǎn)經(jīng)驗對權(quán)籍調(diào)查數(shù)據(jù)整理進行了探索和實踐，采用VB.net 的VisualBasic 語言開發(fā)成軟件（代碼將免費分享于百度硬盤中，有同行編程愛好者可以從文末鏈接下載），根據(jù)生產(chǎn)情況靈活調(diào)整數(shù)據(jù)樣板方式，直接導(dǎo)入同類型宗地完成權(quán)屬數(shù)據(jù)錄入；對界址標(biāo)示表可按地方習(xí)慣在代碼中固定輸出，界址簽章表根據(jù)選定的鄰宗信息和西至走向設(shè)置簽章行；界址點位說明采取拉選方式，通過右鍵單擊，自動匹配“點位說明.dt”文件，點位說明文件可以任意增減地物名稱或方位，如J1—J2 號界址點位于空地或J1—J2 號界址點位于本宗地西北角處，也可以采取地方習(xí)慣，如詳見宗地圖；主要權(quán)屬界線走向說明采取同一方位拉選方式，對選擇的起始點和終點進行方位計算來判斷權(quán)屬界線走向，如由J1 沿西北方向經(jīng)J2、J3、J4、…、J8、J9、J10 走向至J11。

權(quán)籍軟件設(shè)計字段內(nèi)容采用序列化和反序列化讀寫[2]，文件保存名稱與字段名保持一致，信息填寫時，采用同名稱匹配獲取字段內(nèi)容，通過右鍵選擇項來提升信息錄入速度；也可以隨意增減常用內(nèi)容；如果字段內(nèi)容在CAD 圖面上已有，如權(quán)利人名稱、落座地址和四至名稱等，可以通過拾取方式來獲取CAD 圖面上的文字。軟件設(shè)計思路如圖1 所示。

圖1 軟件設(shè)計思路

2.2 程序設(shè)計

程序主要使用VB.net 的VisualBasic 語言進行開發(fā)，程序設(shè)計部分代碼如下。

2.2.1 關(guān)聯(lián)CAD（啟動CAD 模塊.vb）[3]

Public AcadApp As AcadApplication、Public Sub lyhcad（）

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

2.2.2 創(chuàng)建MDB（根據(jù)圖2 txt 字段創(chuàng)建）[4]

圖2 txt 字段

Dim DataTxt（）As String = IO.File.ReadAllLines（Dpaty & "DataPacket 字 段 設(shè) 置.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 & "沿南向北經(jīng)" & 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 權(quán)籍?dāng)?shù)據(jù)獲取流程

（1）數(shù)據(jù)準(zhǔn)備：宗地和房屋界線、權(quán)屬證明材料和身份證明材料等。

（2）連接數(shù)據(jù)庫：首次時需創(chuàng)建一個空的MDB。

（3）CAD 錄入數(shù)據(jù)庫：通過CAD 視圖選取宗地對象。

（4）宗地數(shù)據(jù)錄入：通過圖面拾取、右鍵選取、雙擊標(biāo)題和導(dǎo)入模版等方式來完成，如圖3 所示。

圖3 數(shù)據(jù)錄入方式

（5）界址說明：主要涉及界址點說明和界址走向說明，如圖4 所示。

圖4 界址說明

（6）FC 編輯：主要對房屋信息進行編輯，與宗地共用的信息可能通過繼承來預(yù)錄入。

（7）查詢：通查拾取CAD 宗地線獲取擴展屬性預(yù)編號，與DataGridView 進行匹配查詢。

（8）成果輸出：主要導(dǎo)出不動產(chǎn)權(quán)籍調(diào)查表。

3 實例應(yīng)用

3.1 單宗不動產(chǎn)測繪

權(quán)利人對土地或房屋進行辦證換證等工作時，在不動產(chǎn)登記中心申請登記后，由測量單位開展不動產(chǎn)測繪工作，并對權(quán)利人的宗地及房屋出宗地圖和房產(chǎn)平面圖及填寫不動產(chǎn)權(quán)籍調(diào)查表，圖件和權(quán)籍調(diào)查表經(jīng)本宗地權(quán)利人、鄰宗權(quán)利人簽字，以及村委會蓋章確認，成形數(shù)據(jù)包，上傳至不動產(chǎn)權(quán)籍系統(tǒng)。以中山市石岐區(qū)XXX 路236 號為例，有效快速實現(xiàn)內(nèi)業(yè)數(shù)據(jù)整理和權(quán)籍表格輸出，通過加載CAD 圖形界面與軟件相融合[5]，完成視圖上的交互處理，通過拾取宗地界線和房屋基底線獲取坐標(biāo)值和面積大??；權(quán)利人信息、權(quán)屬信息通過右鍵選取或通過導(dǎo)入常用樣例信息完成，也可以通過拾取圖面信息進行錄入。本文軟件在單宗權(quán)籍調(diào)查的應(yīng)用，如圖5 所示。

圖5 單宗不動產(chǎn)測繪

3.2 權(quán)屬調(diào)查

黎溪鎮(zhèn)全域土地綜合整治試點鐵溪村片區(qū)權(quán)屬調(diào)查項目工作任務(wù)確定實施綜合整治區(qū)域內(nèi)集體（經(jīng)濟合作社）、農(nóng)戶的土地所有權(quán)、使用權(quán)及房屋所有權(quán)情況，全面查清宅基地、集體建設(shè)用地、農(nóng)用地等的基本情況，掌握真實的土地基礎(chǔ)數(shù)據(jù)，形成權(quán)屬數(shù)據(jù)、圖件和表冊等調(diào)查成果。其中宅基地、集體建設(shè)用地采用本文程序完成土地、房屋數(shù)據(jù)輸入，圖件輸出；權(quán)利人信息輸入通過匹配農(nóng)經(jīng)權(quán)戶籍信息表完成數(shù)據(jù)整理；宗地基本信息可以通過導(dǎo)入調(diào)查人員登記的“宗地房屋信息表.xls”完成；宗地圖是通過寫入宗地的基礎(chǔ)擴展屬性信息，由CASS 批量完成輸出；宗地草圖由程序根據(jù)宗地設(shè)定一定比例尺的標(biāo)準(zhǔn)宗地草圖模版批量輸出。通過英德市黎溪鎮(zhèn)全域土地綜合整治試點鐵溪村片區(qū)權(quán)屬調(diào)查——以福龍圍組為例，展示權(quán)屬信息效果如圖6 所示，在項目中，程序有效快速地實現(xiàn)了內(nèi)業(yè)數(shù)據(jù)整理和權(quán)籍表格輸出。

圖6 權(quán)屬調(diào)查

4 結(jié)束語

利用VB.net 和CASS for CAD2008 在權(quán)籍調(diào)查的應(yīng)用開發(fā)，具有一定的實用性，且功能強大，能滿足日常測繪開發(fā)的需要。軟件采取與CAD、EXCEL2010關(guān)聯(lián)，經(jīng)過應(yīng)用于實際權(quán)籍調(diào)查工作，生產(chǎn)效率得到了很大的提高，宗地和房屋信息、權(quán)利人信息錄入到數(shù)據(jù)庫（MDB）后，日常的不動產(chǎn)數(shù)據(jù)也得到了很好的管理，日后通過對權(quán)屬數(shù)據(jù)加以存儲和利用，簡易管理和查詢也能達到圖形數(shù)據(jù)庫的功效。

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