【摘 要】本文阐述了CASS二次开发工具；分析了程序的开发流程；剖析了程序的部分典型代码。
【关键词】CASS；地形图；地籍图
为了科学准确地掌握我国土地利用状况，加强国土资源管理，科学合理地利用土地，更好地为经济宏观调控、政府决策和制定有关规划、计划，促进经济社会全面协调和可持续发展服务，地形图测量及地籍图制作成为一个紧要环节。
EGERIA
地籍图制作作业方法往往局限于一种，即传统的作图方法，速度慢，效率低，存在着人为的主观错误。本文结合生产中的实践经验阐述了基于CASS开发地形图自动生成地籍图。
1 CASS开发工具
CASS软件是广州南方测绘仪器有限公司基于CAD决战东北平台开发的一套集地形、地籍、空间数据建库、工程应用、土石方算量等功能为一体的软件系统。自CASS软件推出以来，已经成为
业内应用最广、使用最方便快捷的软件。CASS软件用户遍及全国各地，涵盖了测绘、国土、规划、房产、市政、环保、地质、交通、水利、电力、矿山及相关行业[1]。
基于CASS开发工具主要有VBA及LISP。本文使用VBA作为开发语言，VBA 是基于Visual Basic 发展而来的，它们具有相似的语言结构。掌握了VBA，可以发挥以下作用：1.规范用户的操作，控制用户的操作行为；2.操作界面人性化，方便用户的操作；3.多个步骤工操作通过执行VBA代码可以迅速的实现；4.实现一些VB无法实现的功能。5.google 学术用VBA制做EXCEL登录系统。6.利用VBA可以Excel内轻松开发出功能强大的自动化程序[2]。
2 地形图及地籍图
2.1 地形图
地形图（topographic map）指的是地表起伏形态和地理位置、形状在水平面上的投影图。具体来讲，将地面上的地物和地貌按水平投影的方法（沿铅垂线方向投影到水平面上），并按一定的比例尺缩绘到图纸上，这种图称为地形图。如图上只有地物，不表示地面起伏的图称为平面图。平面地形图又分为等高线地形图和分层设地形图。
地形图是详细表示地表上居民地、道路、水系、境界、土质、植被等基本地理要素且用等高线表示地面起伏的一种按统一规范生产的普通地图。
2.2 地籍图
地籍图是基本地籍图和宗地图的统称，是表示土地权属界线、面积和利用状况等地籍要素的地籍管理专业用图，是地籍调查的主要成果。
地籍图只能表示基本的地籍要素和地形要素。一张地籍图，并不能表示出所有应该要表示或描述的地籍要素。它主要直观地表达自然的或人造的地物和地貌，对应的地籍空间要素的属性在地籍图上只能用标识符来对此进行有限的表达，这些标识符与地籍数据和地籍表册建立了一种有序的对应关系，从而使地籍资料有机地联系在一起。这是因为地籍图一方面受到比例尺的限制，另一方面还应符合图的可读性和美学要求。
在地籍图上应表示的地籍要素包括：行政界线、界址点、界址线、地类号、地籍号、坐落、土地使用者或所有者及土地等级等。现分述如下：
（1）各级行政界线要素。省、自治区、直辖市界，自治州、地区、盟、地级市界，县、自
治县、旗、县级市及城市内的区界，乡、镇、国有农、林、牧、渔场界及城市内街道界。
（2）界址要素。宗地的界址点、界址线、地籍街坊界线、城乡结合部的集体土地所有权界线。在地籍图上界址点用直径0 .8mm 的红小圆圈表示，界址线用 0.3mm 的红线表示。
（3）地籍号。地籍号由区县编号、街道号、街坊号及宗地号组成。在地籍图上只注记街道号、街坊号及宗地号。街道号、街坊号注在图幅内有关街道、街坊区域的适中部位，宗地号注在宗地内。在地籍图上宗地号和地类号的注记以分式表示，分子表示宗地号，分母表示地类号。
（4）地类。在地籍图上按《全国土地分类》体系规定的土地利用类别码注记地类，地籍图上应注记地类的三级分类。对于宗地较小的住宅用地，可以省略不注记，其他各类用地码一律不得省略。道路用地，包括分割街坊的道路和街坊内的道、巷、通道的宗地，都应按《全国土地分类》体系的规定要求注记其相应的地类代码。
（5）坐落。宗地的坐落由行政区名、道路名 （ 或地名 ） 及门牌号组成，地籍图上应适当注记行政区名及道路名，宗地门牌号可以选择性注记。
（6）土地使用者或所有者。在地籍图上可选择性注记单位名称和集体土地所有者名称。因单位宗地较小，可以不在地籍图上注记单位名称。在地籍图上不需要注记个人用地的土地使用者名称。
（7）土地等级。对于已完成土地定级估价的城镇，在地籍图上绘出土地分级界线及相应的土地等级注记。
3 开发流程
基于CASS开发地形图自动生成地籍图流程图如图1所示：
图1 基于CASS开发地形图自动生成地籍图流程图
4 程序代码
4.1 目录模块
Private Sub CommandButton4_Click（）
Dim sFiles（） As String ：Dim strcopy As String
strcopy = copyText.Text
lstFile.Clear
TreeSearch strcopy， “*.dwg”， sFiles（）
Dim adText As AcadText
For i = 0 To lstFile.ListCount - 1
Call CheckTextHeight11（lstFile.List（i））
Next i End Sub
4.2 主程序模块
Dim strcopy As String
strpaste = pasteText.Text
strcopy = copyText.Text河南徐益勤
Dim road2 As String
road2 = Replace（road， strcopy， strpaste）
objDBX.Open road
For Each ent（0） In objDBX.ModelSpace ‘ThisDrawing.Layers.Item（”TK”）
If ent（0）.Layer “TK” Then
objDBX.CopyObjects ent， objDBX22.ModelSpace
End If Next
5 结束语
本文分析了基于CASS开发地形图自动生成地籍图，实践表明，该程序大大提高了生产效率。
参考文献：
多媒体光盘制作
[1]周虹.AutoCAD2006基础应用与工程开发[M].北京：国防工业出版社，2006，
[2]老虎工作室.VBA开发AutoCAD2000应用教程[M].北京：人民邮电出版社，2002.
mla
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议