基于CASS开发宗地四至属性的自动生成探讨

基于CASS开发宗地四至属性的自动生成探讨

摘要：本文讲述了基于CASS开发宗地四至属性的自动生成的必要性；概述了宗地图的制作原理；分析了CASS软件的选进性及开发模式；讨论了程序设计的具体流程；具体分析了程序各模块的实现及典型模块程序代码；在现阶段具有一定的理论与实践意义。

关键词：CASS，宗地，VBA，四至属性

土地登记工作中一个很重要的内容就是宗地图的制作，而宗地图四至属性的标注是宗地图制作的一项重要内容。依据传统的做法，四至属性的标注需要查阅每一宗地的实际位置，手工录入到宗地属性或是标注在宗地图上，依据笔者实践生产经验，这项工作所需技术含量不高，但比较繁琐，需花费大量的人力、物力。而基于CASS开发宗地四至属性的自动生成程序可以把大量人力、物力从繁琐的劳动中解脱出来，因此基于CASS开发宗地四至属性的自动生成程序在宗地图的制作中变得举足重要。

南方CASS是目前国内广泛使用的宗地图制作成图软件，因其功能强大，通俗易懂，便于操作且能与其他地籍相关软件进行数据无缝接口，被广泛应用于宗地图制作。本文结合自身参与的集体土地所有权发证项目，探讨基于CASS开发宗地四至属性的自动生成，希望能给广大同行起到抛砖引玉的作用[1]。

1 宗地图概述

宗地图是描述宗地位置、界址点线关系、相邻宗地编号的分宗地籍图，用来作为该宗土地产权证书和地籍档案的附图。宗地图中包括[2]：

(1)图幅号、地籍号、坐落

(2)单位名称、宗地号、地类号和占地面积单位名称、宗地号、地类号和占地面积标注在宗地图的中部。例如，某宗地的使用权属第六中学，宗地号为7，地类号为083(按城镇土地分类083为科教用地)，占地面积1 165．6㎡。

(3)界址点、点号、界址线和界址边长

界址点以直径0．8mm的小圆圈表示，包含与邻宗地公用的界址点，从宗地左上角沿顺时针方向以1开始顺序编号，连接各界址点形成界址线，两相邻界址点之间的距离即为界址边长。

(4)宗地内建筑物和构筑物

若宗地内有房屋和围墙，应注明房屋和围墙的边长。

(5)邻宗地宗地号及界址线

应在宗地图中画出与本宗地有共同界址点的邻宗地界址线，并在邻宗地范围内注明它的宗地号。

(6)相邻道路、街巷及名称

宗地图中应画出与该宗地相邻的道路及街巷，并注明道路和街巷的名称。此外，宗地图中还应标出指北针方向，注明所选比例，还应有绘图员和审核员的签名以及宗地图的绘制日期。宗地图要求必须按比例真实绘制，比例尺一般为l：500或大于1：500，通常采用32开、16开、8开大小的图纸。

2 CASS及开发模式

CASS软件是广州南方测绘仪器有限公司基于CAD平台开发的一套集地形、地籍、空间数据建库、工程应用、土石方算量等功能为一体的软件系统。CASS 打破以制图为核心的传统模式，结合在成图和入库数据整理领域的丰富经验，真正实现了数据成图建库一体化，同时满足地形地籍专业制图和GIS建库的需要，减少重复劳动。数据生产、图形处理、数据建库一步到位。

CASS采用全球公认的最优秀图形与设计平台CASS，跟随和应用CASS的最新技术成果并积累了丰富的开发经验，CASS2008提供三个安装台，支持CASS2002至CASS2008版本，图式依照最新标准GB/T20257.1-2007，满足不同客户的需求。主要的开发模式有几下几种[3]：

（1）LISP语言

AutoLISP语言是一种运行在CASS环境下的LISP编程语言，或称为CASS 的一种嵌入式语言。它采用了与CommandLISP（一种通用的LISP语言版本）相近的语法及习惯约定，并吸收了LISP语言的主要函数，同时增加了针对CASS 特点的许多功能，如：可以把AutoLISP和CASS的绘图命令透明地结合起来，使设计和绘图完全融为一体。利用AutoLISP语言编程可以实现对CASS当前图形数据库进行直接访问和修改。

在LISP语言中，最基本的数据类型是符号表达式。LISP语言的特点是程序和数据都采用符号表达式的形式，即一个LISP程序可以把另一个LISP程序作为它的数据进行处理。因此使用LISP语言编程十分灵活，看起来是一个一个的函数调用。支持递归定义也是Auto LISP语言的重要特性。

AutoLISP语言是提供给用户的主要二次开发工具之一。用AutoLISP语言编写应用程序，可以为CASS增加新的命令或修改CASS，以适应用户的特殊需要。

(2)VBA语言

VBA是新一代标准宏语言，是基于Visual Basic for Windows 发展而来的。它与传统的宏语言不同，传统的宏语言不具有高级语言的特征，没有面向对象的程序设计概念和方法。而VBA 提供了面向对象的程序设计方法，提供了相当完整的程序设计语言。VBA 易于学习掌握，可以使用宏记录器记录用户的各种操作并将其转换为VBA 程序代码。这样用户可以容易地将日常工作转换为VBA 程序代码，使工作自动化[3]。

因此，对于在工作中需要经常使用CASS套装软件的用户，学用VBA 有助于使工作自动化，提高工作效率。另外，由于VBA 可以直接应用CASS 套装软件的各项强大功能，所以对于程序设计人员的程序设计和开发更加方便快捷。

3 程序设计

基于CASS开发宗地四至属性的自动生成程序设计流程图如图1所示：

图1 基于CASS开发宗地四至属性的自动生成程序设计流程图

4 程序实现

4.1 属性读取

CASS的宗地属性存储于软件的内部MDB数据库中，可以通过对CASS内部MDB数据库的读取，实现CASS宗地属性的读取，该模块程序的部分典型代码如下：

Private Sub droplayer(ByVal road As String)

On Error Resume Next

If Err.Number = -2147352567 Then

Err.Clear

Exit Sub

End If