1、中国新技术新产品2024 NO.4（下）-43-信 息 技 术对带有宗地属性的权属线进行处理是不动产确权信息化处理的一项重要内容。在南方 CASS 软件中，由于CASS 自己定义了扩展代码1，使宗地权属线拥有丰富的属性，利用这些属性可以准确表达宗地权利人、面积和用途等信息，为制作各类不动产图件、报表提供了依据。对于CASS 宗地属性的更新完善，传统方法需要在图形界面逐一点击宗地权属线，在宗地属性页面对应属性项录入相关信息。该方法工作量大，效率低，错误多2，不便于大量宗地的统一检查，而且只能在图形界面下完成。为了摆脱更新完善宗地属性必须依赖制图环境的制约，提高制图效率，降低错漏率，必须进行测量数
2、据的转换工作3，以方便大量宗地信息的统一检查。本文探索了实现 CASS 宗地属性输入输出自动化的方法，即利用 VB6.0编程工具和电子表格，通过关键字段赋值4来输入不动产DXF 图形文件宗地属性，读取不动产 DXF 图形文件，并将宗地属性输出到电子表格。1 不动产 DXF 图形文件 CASS 宗地属性分析DXF 文件是 AutoCAD 中用来进行图形信息交换的一种文件。DXF 文件中存储的每一个图形元素均以成对的组码和组值来表示5，每个组码和值各占一行。南方 CASS中的扩展属性数据是在图形数据基础上增加的、按一系列分类代码组合而成的数据块，其中组码 1001 表示扩展属性数据的开始6。在 D
3、XF 图形文件中，图形元素信息主要存储在 entities 节，并定位到该节，根据 CASS 扩展属性值为 30000 的多段线找到宗地权属线记录段，发现每宗地CASS 属性起始位置均有以组码“1001”开头、次行内容为“SOUTH”的特征符。宗地代码、权利人和地类编码是宗地的基本属性，在 CASS 属性起始特征符后，分别用 4个组码“1000”和次行内容依次记录宗地权属线 CASS 实体编码、宗地代码、权利人和地类编码，其记录方式为每2 行一个属性项，示例和说明见表 1。经分析可知，在 CASS 宗地权属线的属性项中，除宗地代码、权利人和地类编码 3 个基本宗地属性项没有赋予CASS 字段名
4、称外，其余 37 个宗地扩展属性项均有特定的CASS 字段名称（见表 2），其记录方式为每 4 行一个宗地属性项。第 1 行为组码“1001”，第 2 行为宗地属性项 CASS字段名称，第 3 行为组码“1000”，第 4 行为宗地属性项内容，示例和说明见表 3。以南方CASS10.1软件为例。宗地属性页一共有宗地属性 40 项（见表 3），在实施不动产统一确权资料处理过程中，农村不动产确权较常用的宗地属性只有 20 项（见表 3序号 120），其余 20 项宗地属性项（见表 3 序号 2140）主要为国有宗地确权时使用。观察表 3 不难发现，除宗地代码、权利人和地类编码3 项没有 CASS
5、字段名称的宗地基本属性项以外，其余宗地属性项名称所对应的 CASS 字段名称均是其中文拼音全称或属性项名称每个字拼音首字母的串联。在不动产 DXF图形文件中，宗地属性项名称及其对应的 CASS 字段名称保持不变，为程序批量化处理创造了条件。2 模板表格的定制电子表格具有优秀的数据存储管理功能，由于不动产权籍数据量和信息量较大，为使最终输出成果表具有规范性、统一性和准确性7，可以制作一个固定样式的模板表格，同时用于宗地属性的输入和输出。表格的每一列对应宗地的一个权籍属性项，可以将宗地的属性项信息输出到模板表格中去，同时也可以读取模板表格中的数据，根据列标与宗地属性项、CASS 字段名称的对应关系
6、，输入不一种CASS宗地属性的自动化输入输出方法毛承逆1林元军1袁亚明2（1.四川省地质调查研究院测绘地理信息中心，四川 成都 610072；2.自然资源部耕地资源调查监测与保护利用重点实验室，四川 成都 610045）摘 要：在地籍制图处理过程中，传统的 CASS 宗地属性更新完善方法需要在图形界面下逐一点击宗地权属线完成属性信息录入。该方法不仅效率低，还容易出现错漏，不便于大量宗地信息的统一检查，而且只能在图形界面下完成。本文以分析不动产 DXF 图形文件格式为例，提出了一种以电子表格记录宗地属性，并利用VB6.0编程实现的 CASS 宗地属性自动化输入输出方法，摆脱了更新完善宗地属性必须
7、依赖制图环境的制约，提高了制图效率，降低了错漏率，方便了大量宗地的统一检查。关键词：宗地；CASS；DXF；自动化输入输出中图分类号：P27文献标志码：A表 1 DXF 文件中的 CASS 宗地基本属性DXF记录值格式说明宗地属性项1001DXF组码SOUTHCASS属性起始特征符1000DXF组码300000宗地线CASS实体编码1000DXF组码宗地代码51JC宗地属性项内容1000DXF组码权利人张三宗地属性项内容1000DXF组码地类编码0702宗地属性项内容中国新技术新产品2024 NO.4（下）-44-信 息 技 术动产 DXF 图形文件的对应宗地属性中。模板表格起始行表头字段可按
8、表 3 的宗地属性项顺序，将序号 140 分别对应模板表格的 AAN 列。与建立宗地及其定着物的关联关系8类似，模板表格建立了宗地与其属性的对应关系，固定宗地属性字段列位置可以确保数据源稳定，方便程序读取和写入。3 核心代码设计VB 语言是一种面向对象的可视化程序设计语言。本文设计了简洁的界面，实现了 CASS 宗地属性的自动化输入输出。其核心代码如下所示。3.1 CASS 宗地属性输入CASS 宗地属性输入需要先读取不动产 DXF 图形文件，识别宗地属性项并记录到数组中，代码示例如下。For i=1 To n1For j=qs1(i)+3 To js1(i)Step 2If a(j)=ARE
9、A 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 NextNext代码中，n1 表示宗地线个数；qs1（i）和 js1（i）分别表示第 i 宗地的属性项在 DXF 文件中的起始行号和结束行号；a（j）表示读取的 DXF 文件的第 j 行字符串；st（i，j）表示第 i 宗地第 j 个属性项，j 的数值与表 3 中的序号对应。DXF 宗地属性项记录到数组以后，创建表格对象，并激活工作表，读取表格中的宗地属性项字段值到数
10、组中，代码示例如下。For i=1 To 99999 If xlapp.ActiveSheet.Cells（i+1，1）=Then 宗地号为空结束信息读取 Exit For End If n3=n3+1 基础信息表记录行数 For j=1 To 40 r(n3，j)=xlapp.ActiveSheet.Cells(i+1,j)读取表格数据到数组 NextNext模板表格第一行为宗地属性项表头字段，有效的宗地属性记录是从i+1行开始的。表格宗地属性项记录到数组以后，将其与 DXF 宗地属性项进行匹配。如果匹配成功，就更新对应值，代码示例如下。For k=1 To n3 匹配宗地更新信息表 2 C
11、ASS 宗地属性项和对应字段名称序号宗地属性项名称CASS字段名称列标1宗地代码A2权利人B3地类编码C4图幅号TUFUD5批准土地用途PZTDYTE6权利人证件类型QLRZJLXF7权利人证件编号QLRZJBHG8权属来源证明QSLYZMH9通信地址TXDZI10土地坐落TDZLJ11东至DONGZHIK12南至NANZHIL13西至XIZHIM14北至BEIZHIN15土地证号TDZHO16宗地面积AREAP17建筑占地面积BLAREAQ18建筑面积JZMJR19土地权属性质QSXZS20使用权类型SYQLXT21预编宗地代码（地籍号）YBDJHU22主管部门SJZGBMV23法人代表姓名
12、FRDBXMW24法人代表证件类型FRDBZJLXX25法人代表证件编号FRDBZMSY26法人代表电话FRDBDHZ27代理人姓名DLRXMAA28代理人证件类型DLRZJLXAB29代理人证件编号DLRSFZAC30代理人电话DLRDHAD31*标定地价BDDJAE32*申报地价SBDJAF33申报建筑物权属SBJZWQSAG34-建筑密度JZMDAH35-容积率RJLAI36单位性质DWXZAJ37国民经济行业分类代码GMJJHYFLDMAK38土地等级TDDJAL39起始日期QSRQAM40终止日期ZZRQAN表 3 DXF 文件中的 CASS 宗地扩展属性DXF记录值格式说明宗地属性
13、项1001DXF组码批准土地用途PZTDYTCASS字段名称1000DXF组码0702农村宅基地宗地属性项内容1001DXF组码权利人证件类型QLRZJLXCASS字段名称1000DXF组码1身份证宗地属性项内容1001DXF组码权利人证件编号QLRZJBHCASS字段名称1000DXF组码51宗地属性项内容中国新技术新产品2024 NO.4（下）-45-信 息 技 术 If st(nz,1)=r(k,1)Then For p=2 To 40 If r(k,p)Then n4=n4+1 st(nz,p)=r(k,p)End If Next End IfNextsr=Chr(13)+Chr(10
14、)s3=1000s4=1001sr1=sr&s3&srsr2=sr&s4&srjbzd(nz)=s3&sr&st(nz,1)&sr1&st(nz,2)&sr1&st(nz,3)_&sr2&TUFU&sr1&st(nz,4)&sr2&PZTDYT _&sr1&st(nz,5)&sr2&QLRZJLX&sr1&st(nz,6)_&sr2&QLRZJBH&sr1&st(nz,7)&sr2&QSLYZM _&sr1&st(nz,8)&sr&s4&sr&TXDZ&sr1&st(nz,9)_&sr2&TDZL&sr1&st(nz,10)&sr2&DONGZHI _&sr1&st(nz,11)&sr2&NA
15、NZHI&sr1&st(nz,12)_&sr2&XIZHI&sr1&st(nz,13)&sr2&BEIZHI _&sr1&st(nz,14)&sr2&TDZH&sr1&st(nz,15)_&sr2&AREA&sr1&st(nz,16)&sr2&BLAREA _&sr1&st(nz,17)&sr2&JZMJ&sr1&st(nz,18)&sr2 _&QSXZ&sr1&st(nz,19)&sr2&SYQLX&sr1&st(nz,20)Print#2,jbzd(nz)写入宗地匹配属性（基本属性）不动产 DXF 图形文件中的某些记录内容与宗地属性项无关，因此可先识别不动产 DXF 图形文件的固定段，进行
16、宗地属性输入时，只需要在可变段中查找匹配并改变其中的对应值即可。3.2 CASS 宗地属性输出在 DXF 宗地属性项记录到数组以后，与 CASS 宗地属性输入相比，CASS 宗地属性输出缺少读取表格宗地属性项和匹配更新的过程，以输出宗地属性项到表格的过程相取代。创建表格对象后直接创建新的表格工作簿文件，将宗地属性字段名称依次输入表格第一行并将其作为表头，示例代码如下。xlapp.ActiveSheet.Cells(1,1)=宗地编码 xlapp.ActiveSheet.Cells(1,2)=权利人 xlapp.ActiveSheet.Cells(1,3)=地类编码 宗地属性字段输入表格表头后，
17、采用循环，将每个宗地属性项的值输出到每宗地对应位置的表格中，示例代码如下。For i=1 To n xlapp.ActiveSheet.Cells(i+1,8)=s8(i)权属来源证明 xlapp.ActiveSheet.Cells(i+1,9)=s9(i)通信地址 xlapp.ActiveSheet.Cells(i+1,10)=s10(i)土地坐落Next为使输出表格格式美观，可以通过程序代码设置单元格对齐方式、值类型、行高、列宽和保留小数位等。4 运行效果和改进程序实现了 CASS 宗地属性的自动化输入输出，便于检查、修改宗地属性，效率比逐宗点击、查看和修改有大幅提高。本文所述方法可广泛适
18、用于不动产确权、耕地调查监测以及自然资源确权等各类 CASS 宗地属性的自动化输入输出。当仅更新部分宗地时，一种方法是在数据源表格中只保留需要更新信息的宗地，另一种方法是保留全部宗地，但是属性项只保留需要更新的项。需要注意的是，宗地面积、建筑占地面积、建筑密度和容积率等 4 项宗地属性项（表 3 序号后标记“-”）与宗地权属线关联，严禁人为修改其值，以防止信息错乱，同时应确保标定地价和申报地价（表 3 序号后标记“*”）这 2 项宗地属性项的值不为空，以免造成 DXF 文件无法打开。5 结语本文所实现的功能对地籍确权图件、档案资料的处理有重要意义，提供了一种确权 CASS 宗地属性更新完善的新
19、方法，摆脱了长期以来利用制图环境进行 CASS 宗地属性更新完善的制约，提高了制图效率，显著降低了错漏率，使宗地信息的统一检查变得更简单。在本文研究基础上，可以进一步实现地籍权籍调查表的批量自动生成，提高内业效率，助力不动产、自然资源确权信息化和自动化。参考文献1 刘希双，潘奕，王林.解析 CASS 扩展属性数据 J.测绘与空间地理信息，2009，32（6）：182-183，189.2 潘宸，陈文军，林巧.村庄地籍调查之宗地自动编号的实现 J.测绘与空间地理信息，2012（9）：175-177.3 高丽，王小刚，张建辉.一体化数据库在房地确权登记发证中的应用 J.北京测绘，2019，33（7）：847-849.4 吴金豪，刘剑，易雅琴.一站式房地一体成图建库平台搭建 J.地理空间信息，2022，20（10）：107-109，133.5 尹端，梅连辉.DXF 格式数字地形图坐标转换软件开发研究 J.测绘地理信息，2014，39（5）：28-31.6 梁艳艳，张源.基于 VBA 的宗地批处理程序设计与实现 J.黑龙江科技信息，2017（1）：176-177.7 李琴，闫昶.农村不动产权籍调查中的成果表输出技术研究 J.江西测绘，2018（3）：54-57.8 裴莲莲，陈品祥，李金刚.基于 GIS 技术的不动产落宗方法研究与实践 J.北京测绘，2017（增刊1）：228-231.
