CASS格式下地籍数据自动生成界址线的方法研究

CASS格式下地籍数据 自动生成界址线的方法研究

姓 名： 周 永 丹

专 业：测绘工程

班 级： 测绘0341

指导教师： 姜 放

职 称：副 教 授

长 春 工 程 学 院摘 要

在地籍测量外业工作完成之后,则进入内业处理。内业处理包括宗地调查资料录入,生成宗地图，宗地图裁剪,宗地图整饰,打印宗地图五个主要阶段。第二个阶段是很关键而且是耗时很长的一个阶段，所以如何在保证质量的基础上尽量的缩短生成宗地图的时间，是我们面临的一个很棘手的问题。

本文针对这个问题，主要对CASS格式下地籍数据自动生成界址线的方法进行研究，并且给出其实现的程序设计的简要流程和程序代码。

在采集数据后，运用GIS数据处理软件将所得数据编辑处理，充分利用经过处理后的数据资源，使用AutoCAD二次开发工具VBA编程实现在CASS下自动生成界址线。解决了数字化地籍测量中自动生成界址线问题。避免了采用CASS展绘界址点后逐一界址点连线的繁琐工作，可以提高工作效率，更方便、快捷地生成美观、精确的地籍图。

关键词

界址线 ；CASS；VBA；AutoCAD二次开发；地籍测量

中图法分类号：P27Abstract:

After the outside work of cadastral measurement , enter the interior work . The interior work is dealt with including inputing survey materials , producing map, cutting out map , decorating map , typing map etc. five main stages. The second stage is a key and long stage consuming time, so trying our best on the basis of ensuring the quality of products to short time of producing a map is a very thorny problem what we face.

The text with the question CASS form by cadastral data automatically bornning boundary line carry on mainly research,and provide the brief procedure of design program of its realization and procedure code.

After gathering the data , usilize GIS data processing software to deal with the data editor of the income,fully utilize data resources after dealing with,use AutoCAD redevelopment instrument VBA programming realizations to automatically born boundary line automatically under CASS.It is solved the problem of digitized cadastral measurement automatically born boundary line , avoid the tedious work of adopting CASS exhibition boundary points to link one by one , improve working efficiency and grown into a beautiful and accurate cadastral map.

Keywords：boundary Line ; CASS ; VBA ; AutoCAD redevelopment ;database目录

毕业设计 (I)

摘 要 (II)

关键词 (II)

Abstract: (III)

目录 (IV)

1 前言 (1)

2 技术基础 (2)

2. 1 VBA 简介 (2)

2. 2 　 ActiveX Automation 技术 (2)

2. 3 AutoCAD 对象模型 (2)

3 数字地籍测量 (3)

3.1 地籍概述 (3)

3.1.1 地籍的概念 (3)

3.1.2 地籍的种类 (3)

3.1.3 地籍在土地管理中的应用 (4)

3.1.4 地籍测量的特点和内容 (4)

3.1.5 地籍图 (4)

3.1.6 宗地土图的绘制 (5)

3.2 数字地籍测量概述 (5)

3.3 GIS 在数字化地籍测量中的应用 (6)

4 CASS格式下用地籍数据自动生成界址线的方法 (7)

4.1 程序设计中地籍要素代码及扩展属性 (7)

4.1.1 地籍要素代码 (7)

4.1.2 地籍、地物扩展属性 (9)

4.1.3 属性数据的库结 (10)

4.2 地籍属性数据信息 (11)

4.3 自动生成界址线的编程思路及实现方法 (13)

4.3.1 提取地籍属性 (13)

4.3.2 扩展属性注册 (15)

4.3.3 生成界址点层、添加界址点属性、生成界址点注记层 (15)

4.3.4 生成宗地层、生成界宗地注册层 (17)

4.3.5 生成界址线层 (18)

4.4 程序设计运行的成果 (19)

5 结论 (19)

参考文献 (21)

谢 辞 (22)1 前言

《国土资源信息化“十五”规划(纲要)》中明确提出了以信息化建设带动国土资源信息技术跨越式发展和国土资源管理方式的根本转变。抓住国民经济和社会信息化的机遇, 加快国土资源管理的信息化, 以管理信息化带动管理科学化和服务社会化。因此, 传统的用图纸和表格等来记录存储土地信息的地籍管理方式已越来越不能适应现代化地籍管理的需要, 利用计算机技术对土地信息进行采集、管理、操作、分析、模拟、显示、统计、查询等, 实现地籍管理信息化和数字化已成为土地管理部门的工作重点。

地籍测量信息处理的主要工作是通过野外采集的平面图数据及权属调查草图等信息, 绘制出标准地籍分幅图、宗地图, 并生成相应的各宗地的面积量算表、各街坊界址点成果表和面积统计表、各级土地分类统计表等, 为提供精确的统计数字, 是土地管理部门进行管理、规划的科学依据[1]。宗地是一系列界址坐标点构成的封闭多边形, 宗地图是土地证上必须附有的

图件, 是土地使用者的重要依据, 面积是其主要属性, 通常具有法律意义。传统的宗地图绘制主要是从分幅地籍图上蒙绘, 其精度主要受分幅地籍图的精度及蒙绘的精度影响。而对于已经数字化的分幅地籍图, 宗地图的绘制则主要采用在计算机绘图系统中对分幅地籍图进行裁剪, 绘制界址线、生成界址点成果表, 注记界址边长、宗地面积、权利人、地类号等属性的方法来实现。蒙绘法的精度很低, 已不能适应现代地籍信息化管理的需要。而采用一般方法利用计算机来进行宗地图的绘制, 工作量大、重复性强、自动化程度低。

地籍测量是服务于地籍管理的一种专业测量。地籍测量也是为了满足地籍调查中对确定宗地的权属界线、位置、数量等地籍要素的水平投影的需要而进行的测量和面积计算工作。在地籍测量外业工作完成之后,则进入内业处理,内业处理包括宗地调查资料录入,生成宗地图，宗地图裁剪,宗地图整饰,打印宗地图五个主要阶段[5]。第二个阶段是很关键而且是耗时很长的一个阶段，所以如何在保证质量的基础上尽量的缩短生成宗地图的时间，是我们面临的一个很棘手的问题。

CASS是目前国内外最广泛使用的计算机辅助绘图和设计软件，它制图命令丰富、编辑功能强大，而且由于内嵌了VBA语言作为它的开发工具更使其制图趋于简化，本文正是采用这一工具充分利用各种资源信息而设计[3]。我国的地理信息产业在迅猛发展的今天，除了Arc/Info、Mapinfo等一批国外优秀地理信息系统软件的应用，也出现了一批自主版权的国产地理信息系统专业软件，如武汉瑞得公司RDMS地籍管理信息系统、武汉中地公司的MapGIS城镇地籍管理系统等。然而，由于生产基础地理信息数据的单位较多的采用以CASS为平台的数字测图软件或采集软件，在采集数据后，运用以上数据处理软件将所得数据编辑处理，充分利用经过处理后的数据资源在CASS下自动生成界址线，更方便、快捷、美观、精确的在CASS下生成地籍图形，是本论文主要解决的问题。

本文拟使用AutoCAD开发工具VBA设计程序来解决自动生成界址线问题。Visual Basic for Application（VBA）是由Visual Basic 发展起来的，用来自动执行任务的一个编程环境。它提供了一些用来创建图形用户界面的可拖拉工具和用来与AutoCAD对象交互的编程语言。使用VBA开发AutoCAD，用户可随意的定制AutoCAD应用程序。含有应用程序的VBA界面是通过应用程序的内部进行特殊的联接，只需要知道所包含的对象名就可以使用VBA代码获取函数。VBA可视化的变成环境、数据集成与共享、扩展的AutoCAD集成化用户工具的能力、可与其它Windows的应用软件方便的进行交互，使其较大的提高工作效率，提高创作的热情。

科技发展日新月异，随着我国新一轮的地籍调查工作的开展以及对工作效率要求的不断提高,需要我们在每一个细节中节省工作时间，所以在地籍数据生成宗地图的过程中,批量生成界址线的方法研究就变的尤为重要。充分利用CASS作图命令与VBA提供的图形开发功能以及最大限度地利用已有数据资源，使地籍图的制图速度有了飞跃般的提高。

2 技术基础

2. 1 VBA 简介

VBA 的全称是Visual Basic for Application ,它的针对性非常强,驻留在主程序的内部,使其结构精简且代码运行效率特别高。它是Microsoft公司提供给应用程序员的基于ActiveX 技术的面向对象的应用程序开发工具。目前许多流行的软件,像AutoCAD2000、Office97等都内置了VBA 开发工具,为各应用程序的二次开发提供了一个优秀的手段,同时也为实现各应用软件之间的通讯提供了方便。VBA 在集成开发环境中提供了高质量的用户化编程能力。它能够使得AutoCAD 数据与其它VBA 应用程序直接共享,如Microsoft word 软件。VBA 完全遵循VB语法,是一种新的形式, 支持ActiveX控制。AutoCAD VBA 程序是在AutoCAD 内部的控制器,提供更好的性能。AutoCAD 通过使用它们的对象库能够在其他应用程序中控制Automation。VBA 通过AutoCAD ActiveX Automation Interface 与AutoCAD通讯,VBA 是嵌入在AutoCAD 内部的,共享AutoCAD 的内存空间,可以更好地与AutoCAD 沟通。AutoCAD VBA 允许Visual Basic 与AutoCAD 同时运行,并通过ActiveX Automation Interface 提供程序控制[4]。

2. 2 　ActiveX Automation 技术

ActiveX Automation 是微软公司的一个标准,以前被称为OLE(对象链接与嵌入) ,同时它是一个AutoCAD 新的程序设计界面,用户能够使用它自定义AutoCAD 的功能,与其他应用程序共享图形文件。Automation 提供开发脚本、宏和第三方Automation 程序设计环境的应用程序手段,如VB。通过Automation ,AutoCAD 暴露可编程对象,使其能够被其他应用程序(如Visual Basic 和Excel) 创建、编辑和处理。ActiveX Automation 宗旨是在Windows 系统的统一管理下协调不同的应用程序,允许这些应用程序之间相互沟通、相互控制。ActiveX Automation通过在两个程序间安排对话,达到一个程序控制另一个程序的目的,但这个对话不是双向的也不是平等的。客户程序(Client) 是开始请求对话的应用程序,服务程序(Server) 是响应Client 的应用程序。ActiveX Automation 的代码在Client 上运行,而这个代码所控制的动作由Server 执行。AutoCAD ActiveX是将AutoCAD 的各种功能封装在对象中供应用程序通过编程来引用。

（1）图元(Entity) 类对象:直线,圆弧,多义线,文本,尺寸等类对象;

（2）样式设置(Style) 类对象:线型,尺寸样式等;

（3）组织结构(Organizing) 类对象:图层,组,图块等;

（4）图形显示(View) 类对象:视图,视窗;

（5）文档与应用程序(Document&Application) 类对象。

2. 3 AutoCAD 对象模型

(1) 将AutoCAD 程序与Application 对象链接，Application 对象是VBA 应用程序与AutoCAD

之间链接的关键。只有通过Application 对象才能获得Document 对象、ModelSpace 和PaperSpace 对象。将Application 对象与AutoCAD 链接是为AutoCAD 开发ActiveX Automation 应用程序的第一步工作。AutoCAD VBA 自动嵌入在AutoCAD 应用程序中,所以不必编程来建立与AutoCAD 的连接。

(2) 使用Document 对象

AutoCAD 属性的Document 对象是进行图形编辑的最高层对象。Application 对象ActiveDocument 返回一个Document 对象,它是当前正在编辑的图形。当得到Document 对象后就可以使用它的方法与属性。

(3) 图形对象

图形对象是ModelSpace 或PaperSpace 集合对象的子对象,因此在产生新的图形对象之前,必须获得一个ModelSpace或PaperSpace集合对象。这两个对象可分别由Document对象的属性ModelSpace 返回。利用ModelSpace 和PaperSpace 的AddEntity 方法,可产生一个新的图形对象,其Item方法返回一个图形对象。在AutoCAD VBA 中省去了VB 中对AutoCAD的调用,可以直接调用AutoCAD 中的命令,AutoCAD 应用程序暴露的对象很多。每一个暴露的对象都精确表达AutoCAD 应用程序的一部分，利用Set 语句和Document 集合的Add 方法来创建一个图层,然后利用ThisDrawing. Doc. Activelayer 语句来激活层,添加相关的信息

3 数字地籍测量

3.1 地籍概述

3.1.1 地籍的概念

地籍是指由国家监管的、以土地权属为核心、以地块为基础的土地及其附着物的权属、位置、数量、质量和利用现状等土地基本信息的集合，用图、数、表等形式表示[6]。其含义如下

(1) 地籍是由国家建立和管理的。

（2）土地权属是地籍的核心。

（3）以地块为基础建立地籍。

（4）地籍必须描述地块内附着物的状况。

（5）地籍是土地基本信息的集合（简称土地清册）。

3.1.2 地籍的种类

（1）按地籍工作的目的和发展阶段可分为税收地籍、产权地籍和多用途地籍；

（2）按地籍的特点和任务可分为初始地籍和日常地籍；

（3）按城乡土地的不同特点划分，地籍可分为城镇地籍和农村地籍。

3.1.3 地籍在土地管理中的应用

现阶段的土地管理主要是国家为了保护和合理利用土地资源，制定并实施土地，运用各种手段对土地资源进行调查、规划和利用，对土地权属、生产的；利益关系进行计划、协调，协调处理土地纠纷，解决有关的土地问题等。为此，地籍在土地管理中的作用主要表现在以下四个方面：（1）制定的科学依据

（2）促进土地管理工作的开展

（3）保护土地产权不受侵害，避免纠纷

（4）为土地的经济活动提供参考

3.1.4 地籍测量的特点和内容

1）地籍测量的特点

地籍测量不同于普通测量。普通测量一般只是注重于技术手段和测量精度，而地籍测量是测量技术与土地法学的综合应用，即涉及土地及其附着物权利的测量，地籍测量有以下几个特点：（1）地籍测量是一项基础性的具有行为的测绘工作，是行使土地行政管理职能时具

有法律意义的行政性技术行为；

（2）地籍测量为土地管理提供了精确、可靠的地理信息系统；

（3）地籍测量是在地籍调查的基础上进行的。经过地籍调查后，可以选择不同的地籍测量技

术和方法；

（4）地籍测量具有勘验取证的法律特征；

（5）地籍测量工作有非常强的现势性；

（6）地籍测量技术标准必须符合土地法律的要求；

（7）地籍测量技术和方法的是对当今测绘技术和方法的应用集成；

（8）从事地籍测量的技术人员，不但要具备丰富的测绘知识，还应具有不动产法律知识和地

籍管理方面的知识。

2）地籍测绘的内容

地籍测绘是对地块权属界线的界址点坐标进行精确测定，并把地块及其附着物的位置、面积、权属关系和利用状况等要素准确地绘制在图纸上和记录在专门的表册中的测绘工作。地籍测量的成果包括数据集（控制点和界址点坐标等）、地籍图和地籍册。其具体内容如下：（1）地籍控制测量，测量地籍基本控制点和地籍图根控制点；

（2）界限测量，测定行政区划界线和土地权属界限界址点坐标；

（3）地籍图测绘，测绘分幅地籍图、土地利用现状图、房产图、宗地图等；

（4）面积测算，测算地块和宗地的面积，进行面积的平差和统计；

（5）进行土地信息的动态检测，进行地籍变更的测量，包括地籍图的修测、重测和地籍簿册

的修编，以保证地籍成果资料的现实性和正确性；

（6）根据土地整理、开发与规划的要求，进行有关的地籍测量工作；

同其他测量工作一样，地籍测量要遵循一般的测量原则，即先控制后碎部，由高级到低级，从整体到局部的原则。

3.1.5 地籍图

按照特定的投影方法、比例关系和专用符号把地籍要素及其有关的地物和地貌测绘在平面图纸上的图形称地籍图。地籍图、地籍数据和地籍表册通过特定的表示符号建立有序的对应关系，使地籍资料有机的联系在一起。地籍图具有国家基本图的特性，只能表示基本的地籍要素和地形要素[7]。

1）地籍图的种类：

按表示的内容可分为基本地籍图和专题地籍图；按城乡地域的差别可分为农村地籍图和城镇地籍图；按图的表达方式可分为模拟地籍图和数字地籍图；按用途分为税收地籍图、产权地籍图和多用途地籍图。

在地籍图集合中，我国现在主要测绘制作的有：城镇分幅地籍图、宗地图、农村居民地地籍图、土地利用现状图、土地权属所有图等。

为了满足土地登记和土地权属管理需要，目前我国城镇地籍调查需测绘的地籍图为：宗地草图、基本地籍图、宗地图。

2）地籍图的基本内容：

(1)地籍要

A 界址。包括各级行政界址和土地权属界址；

B地籍要素编号。包括街道号、街坊号、宗地号、房屋栋号、土地利用分类代码、土地等级等；

C土地坐落，由行政区名、街道名及门牌号组成；

D 土地权属主名称，选择较大宗地注记土地权属主名称。

(2)地物要素

(3)数学要素

3.1.6 宗地土图的绘制

1）宗地图的概念

宗地图是描述宗地位置、界址点线和相邻宗地关系的实地纪录。它是在地籍测量工作的后阶段，当对界址点的坐标进行检核后，确认准确无误，并且在其他的地籍资料也正确收集完毕的情况下依照一定的比例尺制作成的反映宗地实际位置和有关情况的一种图集。宗地图和分幅地籍图是地籍的组成部分，是宗地现状的直观描述。宗地图是以宗地为单位编绘的地籍图，分幅地籍图是以地图标准分幅为单位的地籍图。宗地图上表示的内容与地籍图上的内容必须统一。宗地图是土地证上的附图，经土地登记认可后，便成为具有法律效力的图件。

2）宗地图的内容

(1)宗地图所在图幅号、地籍区（街道）号、地籍子区（街坊）号、宗地号、界址点号、土地利用分类号、土地登记号、房屋栋号；

（2）本宗地用地面积和实量界址边长或反算得到的界址边长；

（3）邻宗地的宗地号及相邻宗地间的界址分隔示意线；

（4）紧靠宗地的地理名称；

（5）宗地内的建筑物、构筑物等附着物及宗地外紧靠界址点的附着物；

（6）本宗地界址点位置、界址线、地形地物的现状、界址点的坐标、权利人名称、用地性质、用地面积、测图日期、测点（放桩）日期、制图日期等；

（7）指北方向和比例尺；

（8）为保证宗地图的正确性，宗地图要有检核审查，宗地图的制图者、审核者均要在图上签名。

3.2 数字地籍测量概述

面对社会主义市场经济和信息社会，地籍应作为各信息系统空间定位的基础，因此，仅满足土地登记的地籍是不能满足社会需要的，在我国要建立的应是多用途的地籍系统。数字地籍测量是地籍测量中一种充分吸收整合GIS、GPS、RS和DE 等技术的综合技术和方法，实质上是一个融地籍测量外业、内业于一体的综合性作业系统，是计算机技术用于地籍管理的必然结果。它最大的优点是在完成地籍测量的同时可建立地籍图形数据库，从而为实现现代化地籍管理奠定基础。数字地籍测量模式有三种，它们分别是野外数字地籍测量模式、数字摄影地籍测量模式和内业扫描数字化地籍测量模式。这三种模式各有优缺点，它们互相补充，相辅相成，实现地籍信息的全覆盖采集。与模拟测图相比，数字地籍测量具有明显的优势和广阔的前景，其特点主要体现在自动化程度高、精度高、现势性强、整体性强、适应性强。但数字地籍测量也有缺点：一是技术要求高，一次性投入太大，成本高；二是利用全站型电子速测仪或G P S与电子手簿野外采集数据时，必须绘制草图，这在一定程度上会影响工作效率，增加野外工作人员的负担。 数字地籍测量是利

用数字化采集设备采集各种地籍信息数据，传输到计算机中，再利用相应的应用软件对采集的数据加以处理，最后输出并绘制各种所需要的地籍图件和表册的一种自动化的测绘技术和方法。其作业流程如图所示：

数据采集是在野外和室内电子测量与纪录仪器上获

些

计算机能够接受的和应用程序所规定的格式纪录。从地图数据，计算机程序，在人机交互方式下进行复杂坐标转就是数据处理阶段，地图数据的输两仪绘图；数字方式是数据的存储，建立数据库。

3.3 GIS 在数字化地籍测量中的应用

数字地籍测量软件是数字地籍测量系统的关键，一个完整的数字地籍测量软件应具有数据采集、数据输入、数据编辑处理、数据管理、整饰和数据输出功能，软件必须通用性强，稳定性好，数据的表示和编辑直观、间接，使用时应该尽可能为用户提供方便，采用菜单驱动方式和鼠标工作方式，并且对中文的支持也是必不可少的。处理后的结果可以列表方式、文件方式或以图件方式输出，绘制的图应符合国家标准图示。

GIS（geographical information system）是在计算机硬件和软件的支持下，运用地理信息科学和系统工程理论，科学管理和综合分析各种数据，提供管理、模拟、决策、规划、预测和预报等任务所需要的各种地理信息的技术系统。

在地籍测量中GIS 具有一下三个基本功能：

（1）地籍数据的采集功能

将地籍测量的各种数据，如权属界限、界址点坐标、地面附着的建筑物，通过输入设备输入计算机，成为地理信息系统能够操作格式的数据源。这个过程称之为地籍数据采集。常用的数据采集方法法有：计算机键盘数据采集、地图扫描数字化、实测数据输入、GPS数据采集。

（2）地籍数据的管理功能

地籍数据管理包括地籍属性数据管理和地籍空间数据管理，地籍属性数据管理的对象包括数据项属性数据纪录和属性文件；空间数据管理包括空间数据编辑修改和检索查询。

（3）地籍数据的处理功能

传输到计算机中的各种数据，可利用相应的软件对地籍数据加以处理，最后输出并绘制各种所需要的地籍图件和表册，供有关单位使用。目前开发的数字地籍测绘系统（digital cadastral surveying and mapping systam ,DCSM）是以计算机为核心，以GPS信号接受机、全站仪、数字化仪、立体坐标测量仪、解析测图仪等自动化测量一起为输入装置，以数控绘图仪、打印机为输出设备，再配以相应的数字地籍测绘软件，构成一个集数据采集、传输、数据处理及成果输出于一体的高度自动化的地籍测绘系统。

（4）数据库管理

为了便于今后地籍变更以及地籍信息的自动化管理，所采集的原始数据和经过处理的有关数据数据采集 数据处理

成果输出

数据库管理

数据采集数据处理

成果输出均加以存储，并建立地籍数据库，为地籍系统提供数据。在数字地籍测量中，数据处理过程是一个最复杂、同时也是最重要的环节，这表现为数据源的多样性和地籍（地形）要素的复杂性，因而数据处理的方法也是呈现其复杂性、多样性的特点，使软件的开发具有一定的难度。目前数字测绘技术已经基本成熟，并且越来越多的被应用到地籍测量中。显而易见，数字地籍测绘技术将成为实现地籍管理的现代化，加强土地管理的重要基础。

4 CASS格式下用地籍数据自动生成界址线的

方法

4.1 程序设计中地籍要素代码及扩展属性

地籍要素包括反映隶属关系的行政名称、地理名称和宗地名称，反映权属关系的界址点和界址线，反映土地利用现状的地物、现状地物，反映位置关系的定位坐标，反映数量关系的土地占有面积和土地利用面积，以及反映地物特征的某些说明、注记等。计算机只能识别数码，因此只能将地籍要素数字化。从地籍要素的图形特征和属性特征来分，地籍要素可分为两类信息：一类是图形信息，用平面直角、编码和连接信息表示；另一类是属性信息，用数码文字表示，这就涉及地籍信息编码。

地籍信息编码就是采用规定的代码表示一定的地籍信息，从而简化和方便对地籍信息的各种处理。在数字地籍测量中，地籍信息编码是一种有效的组织数据和管理数据的手段，它在数据采集、数据处理、数据库管理及成果输出的全过程中都起着重要的作用。

4.1.1 地籍要素代码

（1）界址线位置代码

界址线位置代码表 表1

代码 界址线位置

1内

2中

3外

（2）界址线类别代码

界址线类别代码表 表2

代码 界址线类别

1围墙2墙壁

3栅栏

4铁丝网

5滴水线

6路涯线

7两点连线

8其它

（3）界线性质代码

界线性质代码表 表3

代码 界线性质

1确定界

2未定界

3争议界

4临时界

5其他

（4）界标类型代码

界标类型代码表 表4

代码 界标类型

1钢钉

2水泥桩

3石灰桩

4喷涂

5瓷标志

6无标志

7其他

（5）界址点类型代码

界址点类型代码表 表5

代码 界址点类型

1解析界址点

2图解界址点

3航测界址点

4其他

4.1.2 地籍、地物扩展属性

（1）界址线属性表结构见表6

属性表名：JZX 表6

序号字段名称字段代码字段类型字段长度小数位说明

1目标标识码MBBSM Int10由系统自动产生目标ID号2要素代码YSDM Char6

3本宗地籍号BZDJH Char20

4邻宗地籍号LZDJH Char20

5起点号QDH Char20统编界址点号

6止点号ZDH Char20统编界址点号

7界址边长JZBC Float82野外勘丈边长

8界址线类别JZXLB Char2

9界址线位置JZXWZ Char2

10界线性质JXXZ Char2

11本宗地指界人BZZJR Char30

12邻宗地指界人LZZJR Char30

注：本表有关内容的解释参见《土地登记规则》。

（2）界址点属性表结构见表7

属性表名：JZD 表7

序号字段名称字段代码字段类型字段长度小数位说明

1目标标识码MBBSM Int10由系统自动产生目标ID号2要素代码YSDM Char6

3界址点号JZDH Char6

4界标类型JBLX Char10参见表4

5界址点类型JZDLX Char1参见表5

6X坐标值XZBZ Float134

7Y坐标值YZBZ Float134

（3）注记属性表结构见表8

属性表名称：ZJ 表8

序号字段名称字段代码字段类型字段长度小数位说明

1目标标识码MBBSM Int10由系统自动产生目标ID 2要素代码YSDM Char4

3注记内容ZJNR Char304字体ZT Char4

5颜色YC Char12

6磅数BS Int4

7形状XZ Char1

8下划线XHX Char1

9宽度KD Float62 10高度GD Float62 11注记点X坐标ZJDX Float134 12注记点Y坐标ZJDY Float134

13注记方向ZJFX Float106采用数学坐标系，单位

为弧度

4.1.3 属性数据的库结

（1）界址点的库结构见表9

DataBase Structure of Boundary Point 表9

字段名说明类型

ObjectID图形对象标识码Object ID

Shape对象图形信息Geometry(Point)

Fcode编码文本（10位）

PointNo本宗地内编号文本（4位）

DoorID所在宗地地籍号文本（30位）

TerType界标种类文本（20位）

MissionID测量任务号Long integer（2）界址线的库结构见表10

Database structure of boundary line 表10

字段名说明类型

ObjiectID图形对象标识码ObjiectID

Shape对象图形信息Geometry(Line)

Shape-Length对象图形信息Double

Fcode编码文本（10位）

DoorlineNo所在宗地内编号文本（4位）

Door ID所在宗地地籍号文本（30位）

FirstNo界址点1序号文本（4位）

SecondNo界址点2序号文本（4位）

TerDistance界址间距Double

DoorlineType界址线类别文本（20位）

DoorlinePlace界址线位置文本（4位）

DoorlineValid指界情况文本（50位）

AdjoinDoorID邻宗地地籍号文本（30位）

AdDrValter邻宗地指界人文本（16位）

DrValter本宗地指界人文本（16位）

ValteData指界日期Date

MissionID测量任务号Long integer

4.2 地籍属性数据信息

（1）属性数据类型

属性数据按不同的实体类型可分为：宗地属性、界址点属性、界址线属性.

宗地属性信息包括行政区号、地籍号、土地坐落、宗地四至、土地用途、土地权属性质、宗地面积、所在图号、使用期限、土地使用者名称、单位性质、上级主管部门、通讯地址、法人代表、共有使用权、宗地上附属物的信息等，主要描述土地的人文特征；界址点信息包括界址点号、界标种类等；界址线信息有测量长度、类型等.

（2）属性数据的存储

从地籍管理系统的发展看，属性数据的存储主要分为两大类：A、属性数据与空间数据分别在不同的文件中，通过内部标志码联系，也称作属性外挂，采用这种方式的地籍管理系统主要是基于A RC/INFO或GEN AMA P的，还有是早期自行开发的一些很简单的系统.B、属性数据与空间数据两者合一存放于一个文件中。这两种方式各有所长，属性外挂查询编辑方便，数据共享也很方便，但当空间数据变更时，与空间特性紧密相关的属性数据变更就不方便，需特别维护。属性数据与空间数据合一，便于维持空间数据与属性数据的统一，查询编辑快捷，但数据共享时需专门输出属性数据，而且一般数据较大时单个文件会很大。MAPGIS结合了这二者的优点，既可以属性外挂也可以把属性数据和空间数据放在一个文件中[9]。

（3）属性数据结构

按照[8]定义的属性表结构及相应的扩展属性表结构进行描述。

例如：

CLKZD，9

MBBSM，Int，10

YSDM，Char，6

.

.

.

XZBZ，Float，15，3

YZBZ，Float，15，3

ZZBZ，Float，15，3

DZJ，Char，60

.

.

.

MZDW,9

MBBSM，Int，10

YSDM，Char，6

.

.

.

MBJFHMC,Char,30

MZDW-FWSX,16

MBBSM，Int，10

LSZD，Char，20

.

.

.

ZDMJ,Float,12,3

MZDW-FWSX-GYR,4

MBBSM，Int，10

GYR,Char,30

.

.

.

GYCQZH,Char,20

.

.

.

ZJ,13

MBBSM，Int，10

YSDM，Char，6

.

.

.

ZJFX,Float,10,6

MBBSM ：即目标标识码，由系统产生的标识某一要素的唯一代码。 （4）属性编辑

属性编辑是指对宗地、界址点、界址线进行编辑，如宗地号、宗地权属的变更输入等，乃至所有宗地的属性结构的变更。运用地理信息技术的地籍管理系统能自动维护图形数据与属性数据的统一，图形数据有所变化时属性数据也及时变更，反之亦然，如界址点的坐标为实际测量值，在属性数据中也存储了一份，当变更属性中界址点的X 、Y 坐标时，界址点的位置、界址线的长度、宗地的面积等所有与此相关的空间数据相应发生变化。

4.3 自动生成界址线的编程思路及实现方法

地籍测量外业结束后，所获得的地籍数据包括空间数据和属性数据，采用MAPGIS 及相应数据库软件将地籍数据入库，得到数据库文件，本论文主要解决的问题：设计程序，运用数据库文件在CASS 下批量生成界址线。生成的界址线中包含宗地、界址线以及界址点的属性信息。CASS 下实现地籍数据批量生成界址线的流程如下：

本文用VBA 设计程序，加

载

程序后点击

运行，只需将所需的数据库文件

选中，点击“生成界址线”命令按钮就可以在CASS 图形界面中显示生成的界址线图形。 窗体抓图如下：

4.3.1 提取地籍属性

本文采用ACCESS 数据库（.MDB ），其中ACCESS 数据库中包含表格文件JZD 、JZX 、ZD 和ZJYS 等集合即数据集。这些数据集里包含了宗地的基本信息。

ZJX（界址线）数据集包含的信息如图：

ZD（宗地）数据集包含的属性数据信息如图：

ZJYS（注记要素）数据集包含的属性数据信息如图：

以上是MAPGIS内部数据表文件（.WB）JZD、JZX、ZN、ZJYS的截图。选择MAPGIS属性数据库，在菜单栏“文件”，选择“导出”（或“批量导出”），将MAPGIS内部数据导出到其它的数据源，利用相应的数据库软件，将这些数据入库，形成数据库文件，即本文程序设计所

需要的数据文件。

4.3.2 扩展属性注册

地籍数据库支持图形与属性关联，地籍数据库根据系统设计确定。

如采用DXF格式，图形与属性关联方式采取DXF图形基本字段关联法：土地利用要素图形实体的“Thickness”字段存储“目标标识码”，相应地通过实体编码和属性表关联。土地利用要素图形实体的坐标值“Z”字段存储“要素子类代码”。扩展码1001存储“父要素目标标识码”，存在两种适用此字段的情况：一是多边形存在“岛“的情况，子多边形纪录父多边形目标标识码；二是复合要素通过多个图形要素进行表达，各组成部分纪录复合要素目标标识码。

目标标识码指某类要素实体的唯一编码，为数字型字符串，系统自动产生。目标标识码的名称根据建库系统确定，如在SDE中为FeatureID，但在交换文件中严格按照标准规定确定字段中、英文名称。通过扩展属性表的方式存储所输入地籍图的属性。“符号类型”（FHLX Char 100）；注记层共有字段包括：“注记内容”（TEXT Char 100）。

扩展属性注册主要包括：界址点扩展属性注册、界址线扩展属性注册、和宗地扩展属性注册。本文主要解决的是界址线的自动生成问题，所以，在注册时只选择其中部分扩展属性（1）界址点扩展属性注册

选择注册的扩展属性有：

“YSDM”——要素代码、“GDDH”——共点点号、“QYXZ”——区域性质、“JBLX”——界标类型、“JZDLX”——界址点类型

（2）界址线扩展属性注册

选择注册的扩展属性有：

“JXXZ”——界线性质、“QYXZ”——区域性质、“QDH”——起点号、“ZDH”——止点号，“JZXLB”——界址线类别、“JZXWZ”——界址线位置、“BZZJR”——本宗指界人、“LZZJR”——临宗指界人

(3) 宗地扩展属性注册：

“QSD M”——权属代码、“ZDH”——宗地号、“ZDXZ”——宗地性质、“DLD M”——地类代码

属性数据注册设计程序代码如下：

Dim RegAppColl As AcadRegisteredApplications

Set RegAppColl = ThisDrawing.RegisteredApplications

以界址点扩展属性注册为例：

Dim RegAppObj As AcadRegisteredApplication

Set RegAppObj = RegAppColl.Add("ID")

Set RegAppObj = RegAppColl.Add("YSDM")

Set RegAppObj = RegAppColl.Add("GDDH")

Set RegAppObj = RegAppColl.Add("QYXZ")

Set RegAppObj = RegAppColl.Add("JBLX")

Set RegAppObj = RegAppColl.Add("JZDLX")

4.3.3 生成界址点层、添加界址点属性、生成界址点注记层

界址是土地权属的界限，界址点则是土地权属界限的拐点。一块宗地周围的界址点确定下来了，则这块宗地的位置、形状、面积、权属界限也将随着确定下来。

界址点应按统一的规定，以宗地为单位编号，从宗地西北角的界址点算起，沿顺时针的方向依次用阿拉伯数字编号。

程序设计思路及程序设计代码如下：（1）生成界址点层

SET tbbookjzd=dbbook.OpenRecordset("T_JZBDB") 'dbbook——数据库文件

'T_JZBSB ——数据库文件中的表格文件，文件名为JZBSB xjzdname = 0'界址点类型

For I = 0 To dbbook.TableDefs.Count - 1’表格字段循环，如果字段名为"Xjzd"

If dbbook.TableDefs(I).Name = "Xjzd" Then

xjzdname = 1

End If

Next I

If xjzdname = 1 Then

jfh = Left(tbbookjzd("zdbh"), 8) ’生成街坊号

Set tbbookjzdzb = dbbook.OpenRecordset("L_QSJXGD500") ’在数据库文件中打开权属界限共点

For I = 0 To tbbookjzdzb.RecordCount - 1

tbbookjzdzb.Delete ’如果符合要求，则将共点删除

tbbookjzdzb.MoveNext ’继续检查下一个

Next I

tbbookjzdzb.Close ’删除完共点后将此集合关闭

For I = 0 To tbbookjzd.RecordCount - 1

ThisDrawing.ActiveLayer = layerQSJXGD '生成界址点层

设计循环，寻找到界址点的起点，生成界址点的起点的图形和位置（即起始界址点的坐标）If tbbookjzd("xh") = 1 Then

startpoint(0) = tcxzb(tbbookjzd("jzdtbh"))

startpoint(1) = tcyzb(tbbookjzd("jzdtbh"))

startpoint(2) = 0

End If

center(0) = tcxzb(tbbookjzd("jzdtbh"))

center(1) = tcyzb(tbbookjzd("jzdtbh"))

center(2) = 0

Set point1 = ThisDrawing.modelspace.AddPoint(center)

Set ciRcle1 = ThisDrawing.modelspace.AddCircle(center, 0.2)

（2）添加加界址点属性

jzdsxDataType(0) = 1001: jzdsxData(0) = "ID"

jzdsxDataType(1) = 1000: jzdsxData(1) = ""

jzdsxDataType(2) = 1001: jzdsxData(2) = "YSDM"

jzdsxDataType(3) = 1000: jzdsxData(3) = "2800000"

┆┆

┆┆

ciRcle1.SetXData jzdsxDataType, jzdsxData

ciRcle1.Layer = "scscjzd" ’ciRcle1 as Acadcircle 生成界址点层

point1.SetXData jzdsxDataType, jzdsxData

（3）生成界址点注记层

ThisDrawing.ActiveLayer = layerjzdzj ’在CASS里自动添加界址点注记层

Set textstyle1 = ThisDrawing.ActiveTextStyle ’设置为图形的文本

textstyle1.BigFontFile = "hzdx.shx" ’设置文本的字体类型

Set text1 = ThisDrawing.modelspace.AddText(jzdh, center, 0.75)

’生成界址点的圆圈4.3.4 生成宗地层、生成界宗地注册层

（1）生成宗地层

打开数据库文件中的表格文件“DJDCB”，设计循环，如果在表格文件中，字段名为“ZDBH”，将其所有的数据形成一个集合，命名为ZDH，将次集合设为一个新的实体，设计循环计算界址点的总数，如果总数为零，则不能生成新的实体。如果总数不为零时，形成新的实体后，计算宗地的位置，根据界址线的类别属性数据和界址线位置的属性数据，添加宗地属性数据，生成宗地层。

Set tbbookzd = dbbook.OpenRecordset("T_DJDCB")

For I = 0 To tbbookzd.RecordCount - 1

ZDH = Trim(tbbookzd("ZDBH"))

① 生成宗地的位置（图斑的X值）

zdpoint((LSJzd("XH") - 1) * 3) = tcxzb(LSJzd("jzdtbh"))

pzx = pzx + zdpoint((LSJzd("XH") - 1) * 3)

② 生成宗地的位置（图斑的Y值）

zdpoint(((LSJzd("XH") - 1) * 3) + 1) = tcyzb(LSJzd("jzdtbh"))

pzy = pzy + zdpoint(((LSJzd("XH") - 1) * 3) + 1)

zdpoint(((LSJzd("XH") - 1) * 3) + 2) = 0

zddh((LSJzd("XH") - 1)) = LSJzd("jzdtbh")

③ 生成界址线类别

Select Case LSJzd("jzXLB")

Case "围墙"

JZXLBARRAY(N) = 1

Case "墙壁"

JZXLBARRAY(N) = 2

Case "栅栏"

JZXLBARRAY(N) = 3

┆

End Select

④ 生成界址线位置

Select Case LSJzd("jzXwz")

Case "内"

JZXwzARRAY(N) = 1

Case "中"

JZXwzARRAY(N) = 2

Case Else

JZXwzARRAY(N) = 3

End Select

LSJzd.MoveNext

Next N ’生成" & tbbookzd("zdbh") & "的宗地图"

ThisDrawing.ActiveLayer = layerZD ’设宗地层

Set line2 = ThisDrawing.modelspace.AddPolyline(zdpoint)

line2.Closed = True ’界址线闭合

If IsNull(tbbookzd("TDYTDM")) Then

KK1 = ""

Else

KK1 = tbbookzd("TDYTDM")

End If

⑤ 添加宗地属性数据ZDsxDataType(0) = 1001: ZdsxData(0) = "ID"

ZDsxDataType(1) = 1000: ZdsxData(1) = ""

ZDsxDataType(2) = 1001: ZdsxData(2) = "YSDM"

ZDsxDataType(3) = 1000: ZdsxData(3) = "2511007"

┆

┆

line2.SetXData ZDsxDataType, ZdsxData

（2）生成界宗地注记层

城镇地籍调查外业结束后取得了大量坐标数据以及各种信息通过对面积量算与原图装绘后形成了两种资源一种是数据资源，一种是铅笔原图。资源信息中包含了宗地类别编号名称，根据宗地位置进行标注，从而使最后编辑工作量大大减少[11]。

宗地编号由“基本宗地号 + 宗地支号|使用权宗地号”组成。宗地支号指在基本宗地号所指宗 地发生分割而产生子宗地的编号，如果宗地无支号，则宗地支号为“000”；使用权宗地号指农村集体土地使用权宗地的编号，如果集体土地所有权宗地中不区分集体土地使用权，则使用权宗地号为“000”。上述情况，宗地编号可用5位基本宗地号表示。图面上地籍号只标注宗地编号。ThisDrawing.ActiveLayer = layerZDZJ ’在CASS图层里自动生成ZDZJ层

pointzj(0) = pzx / jzdshu ’设计生成注记的位置

pointzj(1) = pzy / jzdshu

pointzj(2) = 0

polarPnt3=ThisDrawing.Application.ActiveDocument.Utility.PolarPoint(pointzj, 0, 2)

生成注记宗地编号和地类号中间的线

Set line3 = ThisDrawing.modelspace.AddLine(pointzj, polarPnt3)

pointzj(0) = pzx / jzdshu

pointzj(1) = pzy / jzdshu + 0.2

pointzj(2) = 0

polarPnt3= ThisDrawing.Application.ActiveDocument.Utility.PolarPoint(pointzj, 0, 0)

Set text1 = ThisDrawing.modelspace.AddText(Str(Val(Right(tbbookzd("ZDBH"), 4))), polarPnt3, 0.75) ’设计生成宗地编号注记文本

ThisDrawing.ActiveLayer = layerdlZJ ’在CASS图层中自动添加DLZJ

pointzj(0) = pzx / jzdshu ’设计生成地类注记的位置

pointzj(1) = pzy / jzdshu - 1

pointzj(2) = 0

polarPnt3=ThisDrawing.Application.ActiveDocument.Utility.PolarPoint(pointzj, 0, 0)

If Len(tbbookzd("TDYTDM")) <> 0 Then

Set text1 = ThisDrawing.modelspace.AddText(tbbookzd("TDYTDM"), polarPnt3, 0.75)

’设计生成地类注记文本

4.3.5 生成界址线层

For N = 0 To jzdshu - 2

ThisDrawing.ActiveLayer = layerQSJX 在CASS图层中添加“QSJX”层

设置界址线的起点位置和终点位置

startpoint(0) = zdpoint(N * 3)

startpoint(1) = zdpoint(N * 3 + 1)

startpoint(2) = 0

endpoint(0) = zdpoint((N + 1) * 3)

endpoint(1) = zdpoint((N + 1) * 3 + 1)

endpoint(2)=0 Angle1=ThisDrawing.Application.ActiveDocument.Utility.AngleFromXAxis(startpoint,endpoint) polarPnt1=ThisDrawing.Application.ActiveDocument.Utility.PolarPoint(startpoint, angle1, 0.2)points(0) = polarPnt1(0)

points(1) = polarPnt1(1)

points(2) = polarPnt1(2)

points(3) = polarPnt2(0)

points(4) = polarPnt2(1)

points(5) = polarPnt2(2)

Set LINE1 = ThisDrawing.modelspace.AddPolyline(points) '生成界址线

LINE1.ConstantWidth = 0.15 ’设置线

添加界址线的属性数据

jzxsxDataType(0) = 1001: jzxsxData(0) = "ID"

jzxsxDataType(1) = 1000: jzxsxData(1) = ""

jzxsxDataType(2) = 1001: jzxsxData(2) = "YSDM"

jzxsxDataType(3) = 1000: jzxsxData(3) = "2714004"

┆

LINE1.SetXData jzxsxDataType, jzxsxData

4.4 程序设计运行的成果

本文采用*.Mdb格式的Access数据库的地籍属性数据文件，设计程序，输出界址线图形文件，图形文件中，可点击查看宗地，界址点，界址线，注记的属性数据信息。

程序运行结果如下图所示：

5 结论

本文主要分析研究并设计程序解决CASS格式下地籍数据自动生成界址线的问题。采用以CASS 为平台的数字测图软件或采集软件，在采集数据后，运用以上数据处理软件将所得数据编辑处理，充分利用经过处理后的数据资源在CASS下自动生成界址线，更方便、快捷、美观、精确的生成地籍图。

随着时代的发展,人们对土地的利用率越来越高,而土地变更也越来越频繁,因此传统的地籍测量资料的处理方法已经不能满足信息时代的发展,利用计算机实现其自动化处理已取代了传统的手工方式[12]。本文以 VBA 语言为工具,直接调用CASS中的命令来绘制宗地界址线,充分利用了数据资源,节省了运行时间,提高地籍图质量,从而适应了时代的发展,为地籍工作提供了一种更加可靠和快捷的服务。

参考文献

数字化地籍的易方法[J].测绘通报.2000年第七期.

仰文，王.基于AutoCAD图测绘的简易方法

[1]乔晓辉

通.2003年第10 期.

基于地形的宗地自生成方案的与[J].测绘报

肖平,刘美春.图的宗地图自动生成方案的设计与实现

[2]剑平

技装.2001年3卷2期.

的地籍形信息系研制[J].测绘术装备

[3]郑礼金，王列平.基于AutoCAD图图形信息系统研制

宁波高等科学校学.2000,12.VOL.12,NO.4.

[4]张藏慧.AutoCAD测定界中的应用

在土地勘定界中的用[N].专科学校学报

在地籍数据理中的用[J].测绘

浅VBA 处理中的应用

四川.2002.

保.谈

[5]宋金玲,肖寒,赵红

地籍量学.——2版[M].汉：武汉大学出版社，

武：武大学出版社，2005.

詹根，唐祥云，刘著.测量学

[6]长根，唐祥云，刘丽编著

代地籍量[M].北京：科学出版社，2004.

李天文，友.现测量

[7]张友顺

国土源部国土源中心

城地籍数据准GX1999003－2001.资源部国土资源中心

[8]国土管理部地籍信息司管理中心.镇地籍数据库标准

南大学

的数字化宗地自制用研究.华热带农业

雪.基于CASS 图自动绘制应用研究

[9]栾乔林，陈路良，王芳，董强，陈姗

学.2006 年3月.

报

地籍量系的研究与践.测绘报

通.2001年第5期.

史波.测量绘图系统的研究与实践

朱武, 贵波

[10]晓武

数字化技在地籍管理系建中的用[J].苏省国土资源

江省国土源于金羽林江瑞，成.测绘技术在地籍管理系统建设中的应用

[11]马继成

电子期刊网.2005年第2期.

[12]张广斌著.最佳Visual LISP 及VBA for AutoCAD2000程序123例[M].北京：北京航空航天大学出版社，1999.

[13] LUO De’an，LIAO Liqiong. A CADASTRAL SPATIAL DA TA STORAGE STRUCTURE BASED ON RELATIONAL DATABASE[J].Geo- spatial Information ScienceV ol. 4 ,No. 3 ,p. 15～20 Sept . 2001.

[14] Gao wen xiu,ZHUANG yan,LIU lang .MAGENMENTMENT OF SPATIO-TEMPORAL DATA OF CADASTRAL INFORMATION SYSTEM IN CHINA[J].Geo- spatial Information ScienceV ol. 2 ,No. 1 ,p. 90～95 DEC . 1999谢 辞

在这四年的大学生活里，我受到各位老师的精心培养，让我学到了很多课内、课外知识，使我更加成熟，在此向各位老师致以诚挚的问候。

在毕业设计的整个过程中，我的指导教师姜放老师从总体到局部给了我大量的指导，让我受益匪浅，在此向姜老师表示最真挚的感谢。

同时感谢山东正元地理信息工程有限责任公司淄博分公司聂工在我的毕业设计过程其中对我毕业设计的大力支持，对我莫大鼓励与帮助。

此外我还要感谢四年的学习生活中，不断给我支持与帮助的同学们，祝他们以后的工作或者学习能够蒸蒸日上、前程似锦。

由于本人专业知识有限，实践方面比较欠缺,时间仓促，文中难免有考虑不周之处，敬请个位老师批评指正。

谢谢大家！