亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

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

        2022-09-07 06:38:10陸貽豪
        科技創(chuàng)新與應(yīng)用 2022年25期
        關(guān)鍵詞:權(quán)籍宗地界址

        陸貽豪

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

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

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

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

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

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

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

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

        2.1 設(shè)計(jì)思路

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

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

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

        2.2 程序設(shè)計(jì)

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

        2.2.1 關(guān)聯(lián)CAD(啟動(dòng)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 個(gè)方位描述界址走向。

        求解方位角: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 查詢(通過獲取宗地的擴(kuò)展屬性查詢)[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

        獲取擴(kuò)展屬性:MDBObjGetXData[4]。

        Dim dType As Object(寫入擴(kuò)展采用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ù)庫:首次時(shí)需創(chuàng)建一個(gè)空的MDB。

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

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

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

        (5)界址說明:主要涉及界址點(diǎn)說明和界址走向說明,如圖4 所示。

        圖4 界址說明

        (6)FC 編輯:主要對房屋信息進(jìn)行編輯,與宗地共用的信息可能通過繼承來預(yù)錄入。

        (7)查詢:通查拾取CAD 宗地線獲取擴(kuò)展屬性預(yù)編號,與DataGridView 進(jìn)行匹配查詢。

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

        3 實(shí)例應(yīng)用

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

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

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

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

        黎溪鎮(zhèn)全域土地綜合整治試點(diǎn)鐵溪村片區(qū)權(quán)屬調(diào)查項(xiàng)目工作任務(wù)確定實(shí)施綜合整治區(qū)域內(nèi)集體(經(jīng)濟(jì)合作社)、農(nóng)戶的土地所有權(quán)、使用權(quán)及房屋所有權(quán)情況,全面查清宅基地、集體建設(shè)用地、農(nóng)用地等的基本情況,掌握真實(shí)的土地基礎(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ǔ)擴(kuò)展屬性信息,由CASS 批量完成輸出;宗地草圖由程序根據(jù)宗地設(shè)定一定比例尺的標(biāo)準(zhǔn)宗地草圖模版批量輸出。通過英德市黎溪鎮(zhèn)全域土地綜合整治試點(diǎn)鐵溪村片區(qū)權(quán)屬調(diào)查——以福龍圍組為例,展示權(quán)屬信息效果如圖6 所示,在項(xiàng)目中,程序有效快速地實(shí)現(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ā),具有一定的實(shí)用性,且功能強(qiáng)大,能滿足日常測繪開發(fā)的需要。軟件采取與CAD、EXCEL2010關(guān)聯(lián),經(jīng)過應(yīng)用于實(shí)際權(quán)籍調(diào)查工作,生產(chǎn)效率得到了很大的提高,宗地和房屋信息、權(quán)利人信息錄入到數(shù)據(jù)庫(MDB)后,日常的不動(dòng)產(chǎn)數(shù)據(jù)也得到了很好的管理,日后通過對權(quán)屬數(shù)據(jù)加以存儲和利用,簡易管理和查詢也能達(dá)到圖形數(shù)據(jù)庫的功效。

        (代 碼 共 享 鏈 接:https://pan.baidu.com/s/1gRlgx-CJFQ9nwny8PFlCQXg,提取碼:ZDFC,密碼:3)

        猜你喜歡
        權(quán)籍宗地界址
        兩只小兔移界址
        兩只小兔移界址
        淺談不動(dòng)產(chǎn)權(quán)籍調(diào)查工作重要性
        CASS地籍圖中界址信息批量轉(zhuǎn)出方法研究
        不動(dòng)產(chǎn)權(quán)籍調(diào)查與數(shù)據(jù)庫建設(shè)
        農(nóng)村房地一體權(quán)籍?dāng)?shù)據(jù)庫質(zhì)量控制與檢查方法研究
        不動(dòng)產(chǎn)權(quán)籍調(diào)查與數(shù)據(jù)庫建設(shè)
        基于歷史歸檔的宗地查詢系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)
        河南科技(2014年22期)2014-02-27 14:18:03
        地籍宗地時(shí)空數(shù)據(jù)庫中的變化檢測
        基于多色圖的宗地信息歷史回溯模型及實(shí)現(xiàn)
        射精区-区区三区| 国产成人福利av一区二区三区| 国产精品丝袜美女久久| 亚洲中文字幕午夜精品| av人摸人人人澡人人超碰妓女| 国产精品一区高清在线观看| av东京热一区二区三区| 国产乱人精品视频av麻豆网站| 人妻无码中文字幕| 中文字幕福利视频| 亚洲精品日本久久久中文字幕| 亚洲国产精品中文字幕久久| 48久久国产精品性色aⅴ人妻 | 人人妻人人澡人人爽人人dvd| 免费国产裸体美女视频全黄| 正在播放淫亚洲| 亚洲天堂av在线观看免费 | 风韵多水的老熟妇| 国产成人啪精品| 亚洲一区久久久狠婷婷| 精品一区二区三区芒果| 天天影视性色香欲综合网| 天天躁日日操狠狠操欧美老妇 | 国产欧美日韩va另类在线播放| 亚洲av男人的天堂在线观看| 欧美激情国产一区在线不卡| 久久99人妖视频国产| 久久青青草原精品国产app| 美女胸又www又黄的网站| 岛国av一区二区三区| 中文字幕一区二区三区久久网| 国产午夜精品理论片| 黑人巨大精品欧美在线观看| 久久久大少妇免费高潮特黄| 午夜免费啪视频| 亚洲一级毛片免费在线观看| 日本成年少妇人妻中文字幕| 疯狂三人交性欧美| 免费无码成人av在线播| 美女一区二区三区在线观看视频 | 国产一区二区三区在线观看蜜桃|