浅谈VB在漳州市土地勘测定界内业中的应用

张玉方

(漳州市测绘设计研究院,福建漳州 363000)

浅谈VB在漳州市土地勘测定界内业中的应用

张玉方∗

(漳州市测绘设计研究院,福建漳州 363000)

土地勘测定界工作是项目用地从立项到审批过程中的重要环节,是用地审批的重要依据。土地勘测定界在外业工作完成后,需要对外业成果进行整理,涉及很多表格,工作量大,枯燥乏味。本文阐述如何利用VB6.0开发勘测定界内业小工具,实现对坐标文件格式进行转换,自动生成界址点坐标对照表和界址点成果表,提高工作效率,减少了错误率。

勘测定界;界址点;格式转换

1 引 言

土地勘测定界是指根据土地征收、征用、划拨、出让、农用地转用、土地利用规划及土地开发、整理、复垦等工作的需要,实地界定土地使用范围、测定界址位置、调绘土地利用现状、计算用地面积,为国土资源行政部门用地审批和地籍管理等提供科学、准确的基础资料而进行的技术服务工作[1]。随着经济的快速发展,土地开发利用的速度也越来越快了。而土地勘测定界是地籍管理中用地审批工作的一项重要内容,是保证建设用地审批科学、合理、准确的手段。经审查合格的勘测定界成果可作为地籍调查和土地登记发证的基础资料和依据[2]。而在勘测定界成果资料中包含很多表格,漳州市测绘设计研究院传统做法是在Excel表格中设置好页面与格式,然后在Uedit32上采用复制的手段将坐标粘贴到Excel表格中,这样既费时又费力,工作量大,容易出错,效率低,特别是当用地范围大、地块多且图形不规则情况下,内业处理起来相当繁琐,工作量大。笔者结合院实际情况,编写了一个勘测定界内业表格自动生成程序,很好地解决了表格填写问题,方便又实用。

2 程序设计

2.1 平台的选择

Visual Basic 6.0(以下简称VB)是Microsoft推出的功能强大的集成式开发环境,它引入窗体和控件的概念,可以方便地进行可视化屏幕设计,大大地减少了设计用户界面的时间,从根本上改变了传统的程序设计模式,大大简化了Windows应用程序设计。它以其所见即所得的可视化界面设计风格和32位面向对象程序设计等特点,已广泛地应用于各个领域。因其简单易学,功能强大,效率高,因此很受广大工程技术人员的喜爱。

2.2 系统流程[3]

本软件主要用于勘测定界内业数据处理,功能包括格式转换、界址点成果表、坐标对照表等,系统设计流程图如图1所示。

图1 系统设计流程图

2.3 用户界面设计[4]

用户界面的设计要美观、大方,便于用户识别与交互信息,合理利用空间,保持界面简洁,在此使用了SSTab控件,主要设置生成表格必须的坐标文件、表格存放位置、作业人员、日期等信息。如图2为坐标对照表用户界面。

图2 坐标对照表用户界面

3 主要功能及关键技术

3.1 界址点成果表[5]

界址点成果表是勘测定界中经常要绘制的成果表之一,我院传统上使用Word和Excel这两种处理软件,制作好模板文件,然后手工输入坐标信息,这样工作效率低,容易出错。目前广州开思和南方CASS都有绘制界址点成果表的功能,但是不符合漳州地方标准。笔者首先在Excel中设置好模板文件,然后利用VB编程实现自动填充界址点坐标信息,以提高效率和正确性。图3为界址点成果表的用户界面,图4为漳州市采用的界址点成果表。

图3 界址点成果表用户界面

图4 界址点成果表

以下为填充坐标信息的部分代码:

For j=(i-1)∗37+2 To(i-1)∗37+36

If xlsheet.Cells(j,2).Value＜＞""Then ’如果点名不为空

searchdata(xlsheet.Cells(j,2).Value) ’查找界址点点名

xlsheet.Cells(j,3).Value=Round(Xcoor,3) ’填写纵坐标X

xlsheet.Cells(j,4).Value=Round(Ycoor,3) 填写横坐标Y

Else

xlsheet.Cells(j,3).Value=""

xlsheet.Cells(j,4).Value=""

End If

Next j

其中一个重要的函数searchdata(),其功能是查找坐标点并将其坐标提取出来,其代码如下:

Public Sub searchdata(str1 As String)

Dim i As Integer

Dim num As String

Dim j As Integer

Dim xz1()As String

Dim str As String

Dim s()As String

Open Form1.Text11.Text For Input As#1

Line Input#1,num

ReDim xz1(1 To Val(Trim(num)),1 To 3)

For i=1 To Val(Trim(num))

Line Input#1,str

s=Split(str,"")

For j=1 To 3

xz1(i,j)=s(j-1)

Next j

Next i

Close#1

For i=1 To Val(Trim(num))

If Trim(xz1(i,1))=str1 Then

Ycoor=Val(Trim(xz1(i,3)))

Xcoor=Val(Trim(xz1(i,2)))

Exit For

End If

Next i

If i＞Val(Trim(num))Then

MsgBox"没有此点号:"&str1

Xcoor=0

Ycoor=0

End If

End Sub

3.2 界址点格式转换

在勘测定界报告中,一般要提供3种～4种坐标系下的界址点成果表。南方CASS或广州开思提取的界址点坐标文件(竖向文件如图5)不能直接用于坐标转换(横向文件如图6),为此,特编写此功能供两种格式互相转换。其界面如图7所示。

图5 界址点坐标文件(竖向)

图6 自定义界址点坐标文件(横向)

图7 界址点格式转换界面

3.3 坐标对照表[6]

坐标对照表也是勘测定界成果中必不可少的资料,坐标对照表的样式如图8所示。以往提供给委托方的坐标最常见的为漳州地方坐标系、1954年北京坐标系和1980西安坐标系,最近应国土部门要求,新增了2000国家大地坐标系,个别单位只需漳州地方坐标系和西安坐标系。在程序实现时,编写了3个公共函数,分别用于生成两种、3种和4种坐标系下的坐标对照表,这样可避免程序冗长、难以维护和调试。生成两种坐标的函数定义如下,另外两个与其类似:

图8 坐标对照表

Public Sub MakeTable2(a As String,str1 As String,b As String,str2 As String,path1 As String)

a和b为坐标文件的路径,str1和str2为对应的坐标系名称,path1为生成的坐标对照表存放的路径。生成坐标对照表的程序流程如图9所示:

图9 坐标对照表流程图

4 结 语

本文利用VB语言对土地勘测定界中的一些重复,复杂的工作进行程序化,有效地减少技术人员工作强度,避免手工输入出错,加快了内业处理的速度,而且保证了产品的质量,提高了数据使用的可靠性。由于在业余时间编辑,代码还是显得有点冗余,有待进一步改进与优化。如果能将红线图与勘测定界表格相结合,使得图表联动,势必会进一步提高工作效率,这也是今后努力的方向。

[1] 严义强.浅谈土地勘测定界流程及技术要求[J].广东科技,2012(3):152～154.

[2] 吴兵生,张文斌.浅谈土地勘测定界的内业工作[J].江西煤炭科技,2011(3):72～73.

[3] 余剑.土地勘测定界系统的设计与实现[J].城市勘测, 2012(5):60～62.

[4] 高春艳,李俊民,刘彬彬.Visual Basic应用开发完全手册[M].北京:人民邮电出版社,2006:164～165.

[5] 辜寄蓉,韩光聪,张孟冬等.建设用地勘测定界功能探讨[J].测绘科学,2007,32(1):122～123,118.

[6] 黄海涛,尹言军,刘玉春.LISP和VBA程序在土地勘测定界内业处理中的应用分析[J].城市勘测,2008(3): 123～126.

Discussion on the Application of VB in Interior Work of Land Surveying and Demarcation in Zhangzhou

Zhang Yufang
(Zhangzhou Institute of Surveying and Mapping,Zhangzhou 363000,China)

Land surveying and Demarcation is an important step in the process of approval.It is an important approval.When completing the outside work,we need collect and sort out the achievements,which involve many forms.The work is so much and dull.This paper has developed some tools for the interior work of land surveying and demarcation based on VB6.0,which can convert the format of coordinate file and generate boundary point coordinates contrast table and boundary point result.It has improved the work efficiency and reduced the error.

surveying and demarcation;boundary point;format conversion

2014—02—26

张玉方(1981—),女,注册测绘师,工程师,主要从事城市规划测量工作。