基于VBA土地勘测定界信息系统开发.docVIP

基于VBA土地勘测定界信息系统开发 　　摘要： 本文利用VBA语言对AutoCAD进行二次开发，定制了菜单栏、工具栏、线型库及符号库；生成技术报告等勘测定界信息系统的主要功能。 　　关键词： 勘测定界；VBA；面积计算；分类统计 　　中图分类号：P271 文献标识码：A 文章编号：1006-4311（2015）09-0311-02 　　0 引言 　　土地测绘中的一项重要工作是勘测定界。其任务是根据规划红线圈定的范围在实地进行拨地钉桩，用解析法准确地测定各界址点的坐标，在计算机中成图，并计算出用地面积和土地分类面积。任何征拨土地的单位必须在界址线范围的土地内实施使用，不得越线，其作用不仅要满足用地单位对用地的需求，同时又能保证城市总体规划建设的要求。在土地制度从无偿转到有偿使用的市场经济形势下，土地的征用、划拨将频繁发生，勘测定界数据的计算处理非常烦琐。勘测定界从外业的数据采集到内业的数字成图、数据处理直至技术报告书的完成，工作量是非常大的。而其中的面积计算及分类面积统计又是勘界中任务量最大，最繁杂的作业过程。因此，土地勘测定界信息系统的开发势在必行。为了加强土地的利用管理，勘测定界一直是必须进行的工作。如果每块的面积计算都要先用“PLine”画出闭合区域，再用“Area”命令计算面积是相当麻烦的，工作量非常大。尤其是当图形调整改变后，相应的面积需要重新计算，面积分类统计也要相应的改变，当遇到时间紧、任务重的情况，单靠手工一一修改将变得不现实。而用VBA开发一个勘测定界信息系统将大大简化面积计算及分类统计的操作过程，提高工作效率。数据库的建立，数据记录与图形实体的联动也将使得数据的更新变得简单易行。目前已有的专门用于勘测定界的软件有Newmap和Cass勘测定界版，而它们都是面向国土部门的针对土地详查和土地勘界的专业数据处理软件，所以开发一个大众化的具有勘测定界基本的面积计算与分类统计功能的实用的土地勘测定界信息系统是非常必要的。 　　1 线型、符号的定制 　　1.1 线型定制 土地勘测定界图中绘制主要包括道路、河流水系、农村居民点、旱地、草地等各种地类及乡镇界、村界各种行政界线。AutoCAD线性库中没有提供专门的绘制此类地物的线型，为此需自定义需要的各种线型。各种地类还需要填充地类符号，为此还要制作符合要求的地类符号库。线型、符号的定制都要符合《1：500 1：1000 1：2000地形图图式》规定。AutoCAD的标准线型保存在acad.lin和acadiso.lin文件中，在标准线形中包括基本线型和复合线型2大类。基本线型格式简单，是由点、划线和空格组成，只能沿水平轴绘制线型。复合线型结构复杂，它不仅局限于点、划线和空格，还可以包含文本和图形。 　　1.2 符号定制 测绘中所指的面状符号特指一些填充符号， 即同类地物所组成的闭合区域， 如旱地、 草地、 沙地等，也就是在一定的闭合区域内按固定的间隔有规律地插入特定符号，以表示该范围内植被或土质的类型。面状符号的实现方法一般有填充图案法和插入法两种，本文采用的是填充图案法。 　　在绘图过程中， 经常需要在所绘图形的某一区域绘出某一图案，这一操作过程称为“填充图案”，填充图案目的是为了区分所绘对象的不同部分的形状，或区分构成所绘对象的不同材料。本文中地类符号的填充就是为了能直观地看出不同的土地类别。该方法是利用 Auto CAD的开放性， 将符号定义为填充图案， 存为* . pat文件，然后在程序中填充（Hatch）即可。在图案填充过程中，系统提供的图案并不能完全满足用户的要求，这时可以对图案库中的文件进行二次开发，修改原有图案或增加新的填充图案。另外，用户也可以自定图案文件。 　　2 勘测定界信息系统功能实现 　　在土地勘测定界中，测绘工作主要是提供准确的界址点坐标、农用土地征转建设用地的现状图以及土地三级分类面积和面积数据分类汇总，并形成报表输出。土地勘测定界中的主要工作量集中在土地三级分类和面积数据分类汇总、分类面积在勘测定界图中的标注。针对上述情况，本文设计了土地勘测定界信息系统的三大基本功能模块：数字成图，勘测定界，成果输出。 　　2.1 数字成图 数字成图功能模块主要包括展点、界址线绘制、权属界线绘制、地类绘制等主要功能。 　　展点要首先读取数据文件第一条数据，获得点名和坐标，把坐标数据赋值给xyh（）数组，新建Layer_Point图层并设为当前层，调用ModelSpace的AddPoint方法添加点，然后新建Layer_Num图层并设为当前层，调用ModelSpace的AddText方法添加点号注记，这样一个点添加完成，只要用循环语句继续读取数据，直到文件尾，展点完毕。 　　界址线绘制一般从左上角界址点开始作为J1，顺时针方向依次