一種CASS宗地屬性的自動化輸入輸出方法

摘 要：在地籍制圖處理過程中，傳統(tǒng)的CASS宗地屬性更新完善方法需要在圖形界面下逐一點(diǎn)擊宗地權(quán)屬線完成屬性信息錄入。該方法不僅效率低，還容易出現(xiàn)錯漏，不便于大量宗地信息的統(tǒng)一檢查，而且只能在圖形界面下完成。本文以分析不動產(chǎn)DXF圖形文件格式為例，提出了一種以電子表格記錄宗地屬性，并利用VB6.0編程實(shí)現(xiàn)的CASS宗地屬性自動化輸入輸出方法，擺脫了更新完善宗地屬性必須依賴制圖環(huán)境的制約，提高了制圖效率，降低了錯漏率，方便了大量宗地的統(tǒng)一檢查。

關(guān)鍵詞：宗地；CASS；DXF；自動化輸入輸出

中圖分類號：P 27" " " 文獻(xiàn)標(biāo)志碼：A

對帶有宗地屬性的權(quán)屬線進(jìn)行處理是不動產(chǎn)確權(quán)信息化處理的一項重要內(nèi)容。在南方CASS軟件中，由于CASS自己定義了擴(kuò)展代碼[1]，使宗地權(quán)屬線擁有豐富的屬性，利用這些屬性可以準(zhǔn)確表達(dá)宗地權(quán)利人、面積和用途等信息，為制作各類不動產(chǎn)圖件、報表提供了依據(jù)。對于CASS宗地屬性的更新完善，傳統(tǒng)方法需要在圖形界面逐一點(diǎn)擊宗地權(quán)屬線，在宗地屬性頁面對應(yīng)屬性項錄入相關(guān)信息。該方法工作量大，效率低，錯誤多[2]，不便于大量宗地的統(tǒng)一檢查，而且只能在圖形界面下完成。

為了擺脫更新完善宗地屬性必須依賴制圖環(huán)境的制約，提高制圖效率，降低錯漏率，必須進(jìn)行測量數(shù)據(jù)的轉(zhuǎn)換工作[3]，以方便大量宗地信息的統(tǒng)一檢查。本文探索了實(shí)現(xiàn)CASS宗地屬性輸入輸出自動化的方法，即利用VB6.0編程工具和電子表格，通過關(guān)鍵字段賦值[4]來輸入不動產(chǎn)DXF圖形文件宗地屬性，讀取不動產(chǎn)DXF圖形文件，并將宗地屬性輸出到電子表格。

1 不動產(chǎn)DXF圖形文件CASS宗地屬性分析

DXF文件是AutoCAD中用來進(jìn)行圖形信息交換的一種文件。DXF文件中存儲的每一個圖形元素均以成對的組碼和組值來表示[5]，每個組碼和值各占一行。南方CASS中的擴(kuò)展屬性數(shù)據(jù)是在圖形數(shù)據(jù)基礎(chǔ)上增加的、按一系列分類代碼組合而成的數(shù)據(jù)塊，其中組碼1001表示擴(kuò)展屬性數(shù)據(jù)的開始[6]。在DXF圖形文件中，圖形元素信息主要存儲在entities節(jié)，并定位到該節(jié)，根據(jù)CASS擴(kuò)展屬性值為30000的多段線找到宗地權(quán)屬線記錄段，發(fā)現(xiàn)每宗地CASS屬性起始位置均有以組碼“1001”開頭、次行內(nèi)容為“SOUTH”的特征符。宗地代碼、權(quán)利人和地類編碼是宗地的基本屬性，在CASS屬性起始特征符后，分別用4個組碼“1000”和次行內(nèi)容依次記錄宗地權(quán)屬線CASS實(shí)體編碼、宗地代碼、權(quán)利人和地類編碼，其記錄方式為每2行一個屬性項，示例和說明見表1。

經(jīng)分析可知，在CASS宗地權(quán)屬線的屬性項中，除宗地代碼、權(quán)利人和地類編碼3個基本宗地屬性項沒有賦予CASS字段名稱外，其余37個宗地擴(kuò)展屬性項均有特定的CASS字段名稱（見表2），其記錄方式為每4行一個宗地屬性項。第1行為組碼“1001”，第2行為宗地屬性項CASS字段名稱，第3行為組碼“1000”，第4行為宗地屬性項內(nèi)容，示例和說明見表3。

以南方CASS10.1軟件為例。宗地屬性頁一共有宗地屬性40項（見表3），在實(shí)施不動產(chǎn)統(tǒng)一確權(quán)資料處理過程中，農(nóng)村不動產(chǎn)確權(quán)較常用的宗地屬性只有20項（見表3序號1～20），其余20項宗地屬性項（見表3序號21～40）主要為國有宗地確權(quán)時使用。

觀察表3不難發(fā)現(xiàn)，除宗地代碼、權(quán)利人和地類編碼3項沒有CASS字段名稱的宗地基本屬性項以外，其余宗地屬性項名稱所對應(yīng)的CASS字段名稱均是其中文拼音全稱或?qū)傩皂椕Q每個字拼音首字母的串聯(lián)。在不動產(chǎn)DXF圖形文件中，宗地屬性項名稱及其對應(yīng)的CASS字段名稱保持不變，為程序批量化處理創(chuàng)造了條件。

2 模板表格的定制

電子表格具有優(yōu)秀的數(shù)據(jù)存儲管理功能，由于不動產(chǎn)權(quán)籍?dāng)?shù)據(jù)量和信息量較大，為使最終輸出成果表具有規(guī)范性、統(tǒng)一性和準(zhǔn)確性[7]，可以制作一個固定樣式的模板表格，同時用于宗地屬性的輸入和輸出。表格的每一列對應(yīng)宗地的一個權(quán)籍屬性項，可以將宗地的屬性項信息輸出到模板表格中去，同時也可以讀取模板表格中的數(shù)據(jù)，根據(jù)列標(biāo)與宗地屬性項、CASS字段名稱的對應(yīng)關(guān)系，輸入不動產(chǎn)DXF圖形文件的對應(yīng)宗地屬性中。模板表格起始行表頭字段可按表3的宗地屬性項順序，將序號1～40分別對應(yīng)模板表格的A～AN列。

與建立宗地及其定著物的關(guān)聯(lián)關(guān)系[8]類似，模板表格建立了宗地與其屬性的對應(yīng)關(guān)系，固定宗地屬性字段列位置可以確保數(shù)據(jù)源穩(wěn)定，方便程序讀取和寫入。

3 核心代碼設(shè)計

VB語言是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計語言。本文設(shè)計了簡潔的界面，實(shí)現(xiàn)了CASS宗地屬性的自動化輸入輸出。其核心代碼如下所示。

3.1 CASS宗地屬性輸入

CASS宗地屬性輸入需要先讀取不動產(chǎn)DXF圖形文件，識別宗地屬性項并記錄到數(shù)組中，代碼示例如下。

For i = 1 To n1

For j = qs1（i） + 3 To js1（i） Step 2

If a（j） = \"AREA\" And a（j+1） = \"1000\" Then

st（i， 16） = a（j + 2）" '宗地面積

End If

If a（j） = \"BLAREA\" And a（j + 1） = \"1000\" Then

st（i， 17） = a（j + 2）" '建筑占地面積

End If

Next

Next

代碼中，n1表示宗地線個數(shù)；qs1（i）和js1（i）分別表示第i宗地的屬性項在DXF文件中的起始行號和結(jié)束行號；a（j）表示讀取的DXF文件的第j行字符串；st（i，j）表示第i宗地第j個屬性項，j的數(shù)值與表3中的序號對應(yīng)。DXF宗地屬性項記錄到數(shù)組以后，創(chuàng)建表格對象，并激活工作表，讀取表格中的宗地屬性項字段值到數(shù)組中，代碼示例如下。

For i = 1 To 99999

If xlapp.ActiveSheet.Cells（i + 1， 1） = \" \"Then" " " " '宗地號為空結(jié)束信息讀取

Exit For

End If

n3 = n3 + 1" " '基礎(chǔ)信息表記錄行數(shù)

For j = 1 To 40

r（n3， j）= xlapp.ActiveSheet.Cells（i + 1， j）" " "'讀取表格數(shù)據(jù)到數(shù)組

Next

Next

模板表格第一行為宗地屬性項表頭字段，有效的宗地屬性記錄是從i+1行開始的。表格宗地屬性項記錄到數(shù)組以后，將其與DXF宗地屬性項進(jìn)行匹配。如果匹配成功，就更新對應(yīng)值，代碼示例如下。

For k = 1 To n3

'匹配宗地更新信息

If st（nz， 1） = r（k， 1） Then

For p = 2 To 40

If r（k， p） lt;gt; \"\" Then

n4 = n4 + 1

st（nz， p） = r（k， p）

End If

Next

End If

Next

sr = Chr（13） + Chr（10）

s3 = \"1000\"

s4 = \"1001\"

sr1 = sr amp; s3 amp; sr

sr2 = sr amp; s4 amp; sr

jbzd（nz） = s3 amp; sr amp; st（nz， 1） amp; sr1 amp; st（nz， 2） amp; sr1 amp; st（nz， 3） _

amp; sr2 amp; \"TUFU\" amp; sr1 amp; st（nz， 4） amp; sr2 amp; \"PZTDYT\" _

amp; sr1 amp; st（nz， 5） amp; sr2 amp; \"QLRZJLX\" amp; sr1 amp; st（nz， 6） _

amp; sr2 amp; \"QLRZJBH\" amp; sr1 amp; st（nz， 7） amp; sr2 amp; \"QSLYZM\" _

amp; sr1 amp; st（nz， 8） amp; sr amp; s4 amp; sr amp; \"TXDZ\" amp; sr1 amp; st（nz， 9） _

amp; sr2 amp; \"TDZL\" amp; sr1 amp; st（nz， 10） amp; sr2 amp; \"DONGZHI\" _

amp; sr1 amp; st（nz， 11） amp; sr2 amp; \"NANZHI\" amp; sr1 amp; st（nz， 12） _

amp; sr2 amp; \"XIZHI\" amp; sr1 amp; st（nz， 13） amp; sr2 amp; \"BEIZHI\" _

amp; sr1 amp; st（nz， 14） amp; sr2 amp; \"TDZH\" amp; sr1 amp; st（nz， 15） _

amp; sr2 amp; \"AREA\" amp; sr1 amp; st（nz， 16） amp; sr2 amp; \"BLAREA\" _

amp; sr1 amp; st（nz， 17） amp; sr2 amp; \"JZMJ\" amp; sr1 amp; st（nz， 18） amp; sr2 _

amp; \"QSXZ\" amp; sr1 amp; st（nz， 19） amp; sr2 amp; \"SYQLX\" amp; sr1 amp; st（nz， 20）

Print #2， jbzd（nz）" " " '寫入宗地匹配屬性（基本屬性）

不動產(chǎn)DXF圖形文件中的某些記錄內(nèi)容與宗地屬性項無關(guān)，因此可先識別不動產(chǎn)DXF圖形文件的固定段，進(jìn)行宗地屬性輸入時，只需要在可變段中查找匹配并改變其中的對應(yīng)值即可。

3.2 CASS宗地屬性輸出

在DXF宗地屬性項記錄到數(shù)組以后，與CASS宗地屬性輸入相比，CASS宗地屬性輸出缺少讀取表格宗地屬性項和匹配更新的過程，以輸出宗地屬性項到表格的過程相取代。創(chuàng)建表格對象后直接創(chuàng)建新的表格工作簿文件，將宗地屬性字段名稱依次輸入表格第一行并將其作為表頭，示例代碼如下。

xlapp.ActiveSheet.Cells（1，1）=\"宗地編碼\"

xlapp.ActiveSheet.Cells（1，2）=\"權(quán)利人\"

xlapp.ActiveSheet.Cells（1，3）=\"地類編碼\"

宗地屬性字段輸入表格表頭后，采用循環(huán)，將每個宗地屬性項的值輸出到每宗地對應(yīng)位置的表格中，示例代碼如下。

For i = 1 To n

xlapp.ActiveSheet.Cells（i + 1， 8） = s8（i）" " " '權(quán)屬來源證明

xlapp.ActiveSheet.Cells（i + 1， 9） = s9（i）" " " '通信地址

xlapp.ActiveSheet.Cells（i + 1， 10） = s10（i）" " "'土地坐落

Next

為使輸出表格格式美觀，可以通過程序代碼設(shè)置單元格對齊方式、值類型、行高、列寬和保留小數(shù)位等。

4 運(yùn)行效果和改進(jìn)

程序?qū)崿F(xiàn)了CASS宗地屬性的自動化輸入輸出，便于檢查、修改宗地屬性，效率比逐宗點(diǎn)擊、查看和修改有大幅提高。本文所述方法可廣泛適用于不動產(chǎn)確權(quán)、耕地調(diào)查監(jiān)測以及自然資源確權(quán)等各類CASS宗地屬性的自動化輸入輸出。當(dāng)僅更新部分宗地時，一種方法是在數(shù)據(jù)源表格中只保留需要更新信息的宗地，另一種方法是保留全部宗地，但是屬性項只保留需要更新的項。

需要注意的是，宗地面積、建筑占地面積、建筑密度和容積率等4項宗地屬性項（表3序號后標(biāo)記“-”）與宗地權(quán)屬線關(guān)聯(lián)，嚴(yán)禁人為修改其值，以防止信息錯亂，同時應(yīng)確保標(biāo)定地價和申報地價（表3序號后標(biāo)記“*”）這2項宗地屬性項的值不為空，以免造成DXF文件無法打開。

5 結(jié)語

本文所實(shí)現(xiàn)的功能對地籍確權(quán)圖件、檔案資料的處理有重要意義，提供了一種確權(quán)CASS宗地屬性更新完善的新方法，擺脫了長期以來利用制圖環(huán)境進(jìn)行CASS宗地屬性更新完善的制約，提高了制圖效率，顯著降低了錯漏率，使宗地信息的統(tǒng)一檢查變得更簡單。在本文研究基礎(chǔ)上，可以進(jìn)一步實(shí)現(xiàn)地籍權(quán)籍調(diào)查表的批量自動生成，提高內(nèi)業(yè)效率，助力不動產(chǎn)、自然資源確權(quán)信息化和自動化。

參考文獻(xiàn)

[1]劉希雙，潘奕，王林.解析CASS擴(kuò)展屬性數(shù)據(jù)[J].測繪與空間地理信息，2009，32（6）：182-183，189.

[2]潘宸，陳文軍，林巧.村莊地籍調(diào)查之宗地自動編號的實(shí)現(xiàn)[J].測繪與空間地理信息，2012（9）：175-177.

[3]高麗，王小剛，張建輝.一體化數(shù)據(jù)庫在房地確權(quán)登記發(fā)證中的應(yīng)用[J].北京測繪，2019，33（7）：847-849.

[4]吳金豪，劉劍，易雅琴.一站式房地一體成圖建庫平臺搭建[J].地理空間信息，2022，20（10）：107-109，133.

[5]尹端，梅連輝.DXF格式數(shù)字地形圖坐標(biāo)轉(zhuǎn)換軟件開發(fā)研究[J].測繪地理信息，2014，39（5）：28-31.

[6]梁艷艷，張源.基于VBA的宗地批處理程序設(shè)計與實(shí)現(xiàn)[J].黑龍江科技信息，2017（1）：176-177.

[7]李琴，閆昶.農(nóng)村不動產(chǎn)權(quán)籍調(diào)查中的成果表輸出技術(shù)研究[J].江西測繪，2018（3）：54-57.

[8]裴蓮蓮，陳品祥，李金剛.基于GIS技術(shù)的不動產(chǎn)落宗方法研究與實(shí)踐[J].北京測繪，2017（增刊1）：228-231.