基于VBA二次开发房产测绘系统设计与研究.docVIP

基于VBA二次开发房产测绘系统设计与研究 　　[摘 要] VBA是Visual Basic for Applications的英文缩写,它是一个功能强大的开发工具,利用VBA二次开发可以成倍甚至成百、成万倍提高工作效率。本文基于VBA对房产测绘系统进行了设计,并同步管理了测绘中控制点成果。 　　[关键词] VBA 测绘系统 土地测量 　　 　　一、VBA在房产测绘中的应用概述 　　Visual Basic for Applications(vba)是由Microsoft创建的,用来自动执行任务的一个编程环境,它提供了一些用来创建图形用户界面(GUI)的可拖拉工具。使用VBA我们可以随意的定制各类应用程序。在工程测绘时,控制网点的布设是具体细部测量的基础,它具有传递点位坐标的作用,VBA为进行地籍调查及土地测量提供了有效的技术手段。当我们用全站仪或者GPS获得测量点后,我们可以采用VBA来实现各坐标数据。具体程序如下: 　　Private Sub 展入测量点() 　　Dim sj,a,b,dh As String 　　Dim x, y As Double 　　Dim p(0 To 2) As Double 　　Open “c:\测量点.txt” For Input As #1 　　Do 　　If EOF(1) Then 　　Exit Do 　　End If 　　Line Input #1, sj 　　flag=1 　　b= 　　For i=1 To Len(sj) 　　a=Mid(sj,i,1) 　　If a=, Then 　　flag=flag+1 　　If flag=Then 　　dh=b 　　End If 　　If flag=3 Then 　　x=b 　　End If 　　If flag=4 Then 　　y=b 　　End If 　　b= 　　Else 　　b=b+a 　　End If 　　Next i 　　On Error Resume Next 　　p(0)=x 　　p(1)=y 　　p(2)=0 　　Call ThisDrawing.ModelSpace.AddPoint(p) 　　Call ThisDrawing.ModelSpace.AddText(dh, p, 2) 　　Loop Until EOF(1) 　　Close #1 　　End Sub 　　二、房产测绘系统的数据平台选择 　　1、数据库的选择 　　房产测绘数据主要包括:图形数据和属性数据。如何统一存储、管理海量数据,确保数据安全稳定,并能使数据得到有效重复利用,建立基于GIS的房产空间数据库,数据库平台的选择是解决问题的关键。ORACLE无疑是最佳选择,其具有无范式要求的特点,可根据实际系统需求构造数据库;采用标准的SQL结构化查询语言,具有丰富的开发工具,覆盖开发周期的各阶段;支持大型数据库,数据类型支持数字、字符、大至4GB的二进制数据,为数据库的面向存储提供数据支持;具有字符界面和图形界面,易于开发;通过SQL*DBA控制用户权限,提供数据保护功能,监控数据库的运行状态,调整数据缓冲区的大小;支持多种系统平台;数据安全保护措施:没有读锁,采取快照SNAP方式完全消除了分布读写冲突。 　　2、开发平台的选择 　　基于VBA二次开发的房产测绘系统拥有:(1)具有完善的图形绘制功能。(2)具有强大的图形编辑功能。(3)可以采用多种方式进行二次开发或用户定制。(4)可以进行多种图形格式的转换,具有较强的数据交换能力。(5)支持多种硬件设备。(6)支持多种操作平台。(7)具有通用性、易用性,适用于各类用户的特点,笔者认为选择成熟完善的AUTO CAD作为房产测绘系统的开发平台能够满足应用的需要。 　　三、基于VBA二次开发的房产测绘系统设计 　　VBA二次开发能够在房产测绘中得到很好的应用,本文只对其在房产测绘控制网点的管理及测量点的展入做了具体的研究,即查询、修改等,我们采用VBA对其管理。具体实现功能为:当我们需要进行房产测绘时,我们找到测区附近的已知控制点后,只需根据该点点位能够查找出该点的点之记、坐标等。当我们要对控制点进行修改时,只需在文件中添加、修改等,其相应的记录也进行了修改。 　　第一步:我们需要引用其相应的对象库,如Microsoft Excel 12.0 object Library。 　　第二步:编制程序 　　查找控制点 　　Sub 查询控制点() 　　Dim p As Variant 　　Dim p1 As Variant 　　Dim p2(0 To 2) As Double 　　Dim s As String