淺談VB在漳州市土地勘測定界內(nèi)業(yè)中的應(yīng)用

張玉方

(漳州市測繪設(shè)計研究院,福建漳州 363000)

淺談VB在漳州市土地勘測定界內(nèi)業(yè)中的應(yīng)用

張玉方?

(漳州市測繪設(shè)計研究院,福建漳州 363000)

土地勘測定界工作是項目用地從立項到審批過程中的重要環(huán)節(jié),是用地審批的重要依據(jù)。土地勘測定界在外業(yè)工作完成后,需要對外業(yè)成果進(jìn)行整理,涉及很多表格,工作量大,枯燥乏味。本文闡述如何利用VB6.0開發(fā)勘測定界內(nèi)業(yè)小工具,實現(xiàn)對坐標(biāo)文件格式進(jìn)行轉(zhuǎn)換,自動生成界址點坐標(biāo)對照表和界址點成果表,提高工作效率,減少了錯誤率。

勘測定界;界址點;格式轉(zhuǎn)換

1 引 言

土地勘測定界是指根據(jù)土地征收、征用、劃撥、出讓、農(nóng)用地轉(zhuǎn)用、土地利用規(guī)劃及土地開發(fā)、整理、復(fù)墾等工作的需要,實地界定土地使用范圍、測定界址位置、調(diào)繪土地利用現(xiàn)狀、計算用地面積,為國土資源行政部門用地審批和地籍管理等提供科學(xué)、準(zhǔn)確的基礎(chǔ)資料而進(jìn)行的技術(shù)服務(wù)工作[1]。隨著經(jīng)濟(jì)的快速發(fā)展,土地開發(fā)利用的速度也越來越快了。而土地勘測定界是地籍管理中用地審批工作的一項重要內(nèi)容,是保證建設(shè)用地審批科學(xué)、合理、準(zhǔn)確的手段。經(jīng)審查合格的勘測定界成果可作為地籍調(diào)查和土地登記發(fā)證的基礎(chǔ)資料和依據(jù)[2]。而在勘測定界成果資料中包含很多表格,漳州市測繪設(shè)計研究院傳統(tǒng)做法是在Excel表格中設(shè)置好頁面與格式,然后在Uedit32上采用復(fù)制的手段將坐標(biāo)粘貼到Excel表格中,這樣既費時又費力,工作量大,容易出錯,效率低,特別是當(dāng)用地范圍大、地塊多且圖形不規(guī)則情況下,內(nèi)業(yè)處理起來相當(dāng)繁瑣,工作量大。筆者結(jié)合院實際情況,編寫了一個勘測定界內(nèi)業(yè)表格自動生成程序,很好地解決了表格填寫問題,方便又實用。

2 程序設(shè)計

2.1 平臺的選擇

Visual Basic 6.0(以下簡稱VB)是Microsoft推出的功能強大的集成式開發(fā)環(huán)境,它引入窗體和控件的概念,可以方便地進(jìn)行可視化屏幕設(shè)計,大大地減少了設(shè)計用戶界面的時間,從根本上改變了傳統(tǒng)的程序設(shè)計模式,大大簡化了Windows應(yīng)用程序設(shè)計。它以其所見即所得的可視化界面設(shè)計風(fēng)格和32位面向?qū)ο蟪绦蛟O(shè)計等特點,已廣泛地應(yīng)用于各個領(lǐng)域。因其簡單易學(xué),功能強大,效率高,因此很受廣大工程技術(shù)人員的喜愛。

2.2 系統(tǒng)流程[3]

本軟件主要用于勘測定界內(nèi)業(yè)數(shù)據(jù)處理,功能包括格式轉(zhuǎn)換、界址點成果表、坐標(biāo)對照表等,系統(tǒng)設(shè)計流程圖如圖1所示。

圖1 系統(tǒng)設(shè)計流程圖

2.3 用戶界面設(shè)計[4]

用戶界面的設(shè)計要美觀、大方,便于用戶識別與交互信息,合理利用空間,保持界面簡潔,在此使用了SSTab控件,主要設(shè)置生成表格必須的坐標(biāo)文件、表格存放位置、作業(yè)人員、日期等信息。如圖2為坐標(biāo)對照表用戶界面。

圖2 坐標(biāo)對照表用戶界面

3 主要功能及關(guān)鍵技術(shù)

3.1 界址點成果表[5]

界址點成果表是勘測定界中經(jīng)常要繪制的成果表之一,我院傳統(tǒng)上使用Word和Excel這兩種處理軟件,制作好模板文件,然后手工輸入坐標(biāo)信息,這樣工作效率低,容易出錯。目前廣州開思和南方CASS都有繪制界址點成果表的功能,但是不符合漳州地方標(biāo)準(zhǔn)。筆者首先在Excel中設(shè)置好模板文件,然后利用VB編程實現(xiàn)自動填充界址點坐標(biāo)信息,以提高效率和正確性。圖3為界址點成果表的用戶界面,圖4為漳州市采用的界址點成果表。

圖3 界址點成果表用戶界面

圖4 界址點成果表

以下為填充坐標(biāo)信息的部分代碼:

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) ’填寫縱坐標(biāo)X

xlsheet.Cells(j,4).Value=Round(Ycoor,3) 填寫橫坐標(biāo)Y

Else

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

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

End If

Next j

其中一個重要的函數(shù)searchdata(),其功能是查找坐標(biāo)點并將其坐標(biāo)提取出來,其代碼如下:

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 界址點格式轉(zhuǎn)換

在勘測定界報告中,一般要提供3種～4種坐標(biāo)系下的界址點成果表。南方CASS或廣州開思提取的界址點坐標(biāo)文件(豎向文件如圖5)不能直接用于坐標(biāo)轉(zhuǎn)換(橫向文件如圖6),為此,特編寫此功能供兩種格式互相轉(zhuǎn)換。其界面如圖7所示。

圖5 界址點坐標(biāo)文件(豎向)

圖6 自定義界址點坐標(biāo)文件(橫向)

圖7 界址點格式轉(zhuǎn)換界面

3.3 坐標(biāo)對照表[6]

坐標(biāo)對照表也是勘測定界成果中必不可少的資料,坐標(biāo)對照表的樣式如圖8所示。以往提供給委托方的坐標(biāo)最常見的為漳州地方坐標(biāo)系、1954年北京坐標(biāo)系和1980西安坐標(biāo)系,最近應(yīng)國土部門要求,新增了2000國家大地坐標(biāo)系,個別單位只需漳州地方坐標(biāo)系和西安坐標(biāo)系。在程序?qū)崿F(xiàn)時,編寫了3個公共函數(shù),分別用于生成兩種、3種和4種坐標(biāo)系下的坐標(biāo)對照表,這樣可避免程序冗長、難以維護(hù)和調(diào)試。生成兩種坐標(biāo)的函數(shù)定義如下,另外兩個與其類似:

圖8 坐標(biāo)對照表

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

a和b為坐標(biāo)文件的路徑,str1和str2為對應(yīng)的坐標(biāo)系名稱,path1為生成的坐標(biāo)對照表存放的路徑。生成坐標(biāo)對照表的程序流程如圖9所示:

圖9 坐標(biāo)對照表流程圖

4 結(jié) 語

本文利用VB語言對土地勘測定界中的一些重復(fù),復(fù)雜的工作進(jìn)行程序化,有效地減少技術(shù)人員工作強度,避免手工輸入出錯,加快了內(nèi)業(yè)處理的速度,而且保證了產(chǎn)品的質(zhì)量,提高了數(shù)據(jù)使用的可靠性。由于在業(yè)余時間編輯,代碼還是顯得有點冗余,有待進(jìn)一步改進(jìn)與優(yōu)化。如果能將紅線圖與勘測定界表格相結(jié)合,使得圖表聯(lián)動,勢必會進(jìn)一步提高工作效率,這也是今后努力的方向。

[1] 嚴(yán)義強.淺談土地勘測定界流程及技術(shù)要求[J].廣東科技,2012(3):152～154.

[2] 吳兵生,張文斌.淺談土地勘測定界的內(nèi)業(yè)工作[J].江西煤炭科技,2011(3):72～73.

[3] 余劍.土地勘測定界系統(tǒng)的設(shè)計與實現(xiàn)[J].城市勘測, 2012(5):60～62.

[4] 高春艷,李俊民,劉彬彬.Visual Basic應(yīng)用開發(fā)完全手冊[M].北京:人民郵電出版社,2006:164～165.

[5] 辜寄蓉,韓光聰,張孟冬等.建設(shè)用地勘測定界功能探討[J].測繪科學(xué),2007,32(1):122～123,118.

[6] 黃海濤,尹言軍,劉玉春.LISP和VBA程序在土地勘測定界內(nèi)業(yè)處理中的應(yīng)用分析[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—),女,注冊測繪師,工程師,主要從事城市規(guī)劃測量工作。