張玉方

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

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

張玉方?

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

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

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

1 引 言

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

2 程序設(shè)計(jì)

2.1 平臺(tái)的選擇

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

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

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

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

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

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

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

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

3.1 界址點(diǎn)成果表[5]

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

圖3 界址點(diǎn)成果表用戶界面

圖4 界址點(diǎn)成果表

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

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

If xlsheet.Cells(j,2).Value＜＞""Then ’如果點(diǎn)名不為空

searchdata(xlsheet.Cells(j,2).Value) ’查找界址點(diǎn)點(diǎn)名

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

其中一個(gè)重要的函數(shù)searchdata(),其功能是查找坐標(biāo)點(diǎn)并將其坐標(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"沒有此點(diǎn)號(hào):"&str1

Xcoor=0

Ycoor=0

End If

End Sub

3.2 界址點(diǎn)格式轉(zhuǎn)換

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

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

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

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

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

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

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

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

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

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

4 結(jié) 語

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

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

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

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

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

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

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