利用VB編程完善MAPGIS圖框制作功能

1、利用VB 編程完善MAP GIS 圖框制作功能鐘華(華東有色地質(zhì)勘查局814隊(duì),江蘇鎮(zhèn)江212005摘要:介紹了如何利用VB 編制一個應(yīng)用程序,生成MAPGIS 能識別的具有一定數(shù)據(jù)格式的明碼文件,以便利用MAPGIS 制作出適合本單位行業(yè)特點(diǎn)的圖框。關(guān)鍵詞:VB ;MAPGIS ;明碼文件;圖框中圖分類號:TP31;P631文獻(xiàn)標(biāo)識碼:A 文章編號:1000-8918(200206-0475-03隨著MAP GIS 地理信息系統(tǒng)軟件的日益完善,越來越多的部門、行業(yè),都把MAP GIS 作為必備的軟件服務(wù)于本單位。以前,我隊(duì)一直使用Surfer6.0及G eosoft 作地質(zhì)、物化探圖件,難以

2、有效地將地質(zhì)與物化探圖件疊合在一起,而MAP GIS 軟件能很好地解決這個問題。MAP GIS 軟件是面對眾多行業(yè)開發(fā)的,而針對某一特定專業(yè),由于其行業(yè)規(guī)范的要求不一樣,從而所需圖件的版式不盡一致 。在使用MAP GIS 的過程中,根據(jù)我單位的行業(yè)要求,利用VB 編程編輯了一些適用軟件, 有效地解決了上述問題?，F(xiàn)就“繪制任意矩形圖框”的問題介紹如下。1簡介MAP GIS 生成的圖框樣式(圖1與我們常用的圖框樣式(圖2(都為1:100000圖框在坐標(biāo)的標(biāo)注上有很大的差異,為此,不得不將MAPGIS 形成圖框的點(diǎn)、線文件進(jìn)行修改,既費(fèi)時又費(fèi)力,而且每次修改得到的圖框點(diǎn)、線屬性,尤其是點(diǎn)的位置難以保

3、持一致,造成在同一個項(xiàng)目中各個圖框顯得不協(xié)調(diào)。為解決這個問題,我們利用VB6.0制作了1個圖框點(diǎn)、線明碼文件(.wat 、.wal 生成程序,再利用MAP GIS 的明碼格式數(shù)據(jù)轉(zhuǎn)換接口,將其轉(zhuǎn)換成點(diǎn)、線(.wt 、.wl 文件。2界面設(shè)計(jì)我們設(shè)計(jì)出的界面(圖3與MAP GIS 投影變換系統(tǒng)中制作圖框的界面相似,只是功能單一,僅用作“繪制十字公里線”的圖框。在界面上,目前用到的控件有:“圖廓參數(shù)”、圖1MAPGIS 生成的圖框樣式圖2經(jīng)過改進(jìn)的圖框樣式“圖廓內(nèi)網(wǎng)線參數(shù)”內(nèi)的各標(biāo)簽及文本框;“比例尺”、“十字線長”、“圖廊間距離”標(biāo)簽及文本框;任意公里矩形分幅單選按鈕;“確定”命令按鈕;“圖框文

4、件名”命令按鈕及其右側(cè)的文本框(text6;CommonDialog1公用對話框。上述控件的功能與MAP GIS 系統(tǒng)制作圖框的界面中各對應(yīng)控件的功能完全相同。每個文本框都可采用鍵盤輸入收稿日期:2002-01-18第26卷第6期物探與化探Vol.26,No.62002年12月GEOPHYSICAL &GEOCHEMICAL EXPLORA TIONDec.,2002 圖3生成圖框執(zhí)行界面內(nèi)容,在點(diǎn)擊“任意公里矩形分幅”時,“網(wǎng)起始值X”、“網(wǎng)起始值Y”直接取“X1、Y1”的值;點(diǎn)擊“圖框文件名”命令按鈕時,執(zhí)行C ommonDialog1.ShowSave及T ext6.T ext=C om

5、monDialog1.FileName命令,使得text6文本框內(nèi)容為我們所選擇的盤符、路徑及文件名。點(diǎn)擊“確定”命令按鈕后生成點(diǎn)、線明碼文件。在編程時直接將圖框左下角平移為原點(diǎn)。3代碼編寫代碼編輯過程中需解決2個問題:一是如何將實(shí)際坐標(biāo)(X、Y值(以下簡稱實(shí)際值,根據(jù)成圖比例尺的大小轉(zhuǎn)變?yōu)閳D上的橫、縱(坐標(biāo)軸值(以下簡稱圖上值,用來確定畫線及標(biāo)注點(diǎn)的準(zhǔn)確位置;二是準(zhǔn)確地計(jì)算出所成圖框中標(biāo)注點(diǎn)的個數(shù)、內(nèi)容及線的條數(shù)(注意:線的條數(shù)加1后方可作為線明碼文件中線條數(shù),否則所作圖形會丟失最后一根線。從圖2可以看出,標(biāo)注點(diǎn)的類形分2種:一是橫軸上的“163”及縱軸上的“41”(以下簡稱“大數(shù)”;二是“

6、00”、“05”、“10”之類的(以下簡稱“小數(shù)”?！靶?shù)”標(biāo)注與否是由網(wǎng)起始值(X,Y和網(wǎng)間隔(DX, D Y來確定的,“大數(shù)”只在軸的首、尾位置及“大數(shù)”值發(fā)生變化時進(jìn)行標(biāo)注。3.1坐標(biāo)轉(zhuǎn)換MAP GIS所作圖件是以mm為單位的,而我們輸入的數(shù)據(jù)是以km為單位,只需將實(shí)際值經(jīng)過換算就可得到圖上值。如:求橫、縱軸長度采用dxl=1000000/blc3(x2-x1dyl=1000000/blc3(y2-y1求網(wǎng)起始的圖上值采用x0=1000000/blc3(X-x1y0=1000000/blc3(Y-y1求網(wǎng)間距的圖上值采用dx0=1000000/blc3dxdy0=1000000/blc3

7、dy其中,dxl為內(nèi)圖框線的橫向長度(實(shí)型變量;dyl為內(nèi)圖框線的縱向長度(實(shí)型變量;blc為作圖比例尺分母值(整形變量;x0、y0分別為圖上橫、縱起始標(biāo)注值(整形變量;dx0、dy0分別圖上橫、縱網(wǎng)間隔長度(整形變量;其它變量見圖3。3.2計(jì)算點(diǎn)、線個數(shù)線條數(shù)的求得是由網(wǎng)起始值(X,Y(實(shí)型變量、網(wǎng)間隔(DX,D Y(實(shí)型變量及橫、縱向公里值(X2,Y2(實(shí)型變量來決定的,我們采用下式分別求出單個橫、縱軸上線的條數(shù)nx=Int(x2-X/dx+1ny=Int(y2-Y/dy+1圖框四角上定義有8條線,3條矩形線框,圖框內(nèi)各十字線的條數(shù)之和為nx3ny32。這樣整個圖框線的條數(shù)即為(nx+ny

8、32+11+nx3ny32。為了編程的簡單,我們假設(shè)標(biāo)注“小數(shù)”的地方同時也進(jìn)行“大數(shù)”標(biāo)注,這樣點(diǎn)的個數(shù)即為:2323 (nx+ny。只是在程序的編輯過程中將不須標(biāo)注674物探與化探26卷 “大數(shù)”的地方,“大數(shù)”值以空字符代替。確定標(biāo)注點(diǎn)時,先將標(biāo)注內(nèi)容的數(shù)值型轉(zhuǎn)換為字符型,求其長度longx 、longx ,再分別求出“小數(shù)”及“大數(shù)”標(biāo)注的內(nèi)容。longx =Len (L T rim (Str (xx (i 3 longy =Len (L T rim (Str (yy (i 2xm (i =Mid (L T rim (Str (xx (i ,4,longx I f xm (i =”00

9、”O(jiān)r i =1Or i =nx Then xmm (i =Mid (L T rim (Str (xx (i ,1,3ym (i =Mid (L T rim (Str (yy (i ,3,longy I f ym (i =”00”O(jiān)r i =1Or i =ny Then ymm (i =Mid (L T rim (Str (yy (i ,1,2式中:xx (i 、yy (i 為標(biāo)注內(nèi)容的數(shù)值型(實(shí)型變量;xm (i 、ym (i 為“小數(shù)”標(biāo)注內(nèi)容的字符型;xmm (i 、ymm (i 為“大數(shù)”標(biāo)注內(nèi)容的字符型。依據(jù)MAP GIS 明碼文件格式,編制出程序代碼,最后編輯成執(zhí)行文件。運(yùn)行該執(zhí)行

10、文件就可方便、快速地生成所需明碼文件。4結(jié)語以上程序是針對MAP GIS6.0版本進(jìn)行開發(fā)的。在實(shí)際工作中,我們利用VB 還編制了一些實(shí)用程序,如:如何將數(shù)據(jù)文件中由坐標(biāo)值控制的點(diǎn)、線轉(zhuǎn)換成MAP GIS 能夠識別的明碼格式文件,以便于生成點(diǎn)、線文件;如何利用數(shù)據(jù)文件直接做帶橫、縱坐標(biāo)軸的剖面曲線;如何利用具有一定格式(用于物探正演計(jì)算的地質(zhì)模型的數(shù)據(jù)文件,直接做出地質(zhì)模型圖等等。但要使程序具易移植性和可擴(kuò)展性,還必須做比較系統(tǒng)的工作,并且還可利用MAP GIS 開發(fā)工具包,使得用VB 編制的程序不必生成明碼文件,而是直接生成點(diǎn)、線、區(qū)文件。真正做到高效地使用MAP GIS 。文中錯誤之處,望

11、批評指正。參考文獻(xiàn):1Holener S.Visual Basic 6技術(shù)內(nèi)幕J .詳實(shí)翻譯組,譯.北京:清華大學(xué)出版社,1999.2孫家廣,楊長貴.計(jì)算機(jī)圖形學(xué)(新版J .北京:清華大學(xué)出版社,1994.THE APPL ICATION OF VB PR OGRAMMING T O IMPR OVINGTHE FRAME 2MAKING FUNCTION OF MAPGISZHON G Hua(East Chi na B ureau of Geological Ex ploration f or Nonf errous Metals Zhenjiang 212005,Chi na Abstr

12、act :This paper describes the utilization of VB to write an a pplied program and form a plain code file which has a certain data format recognizable by MAPGIS ,with the purpose of using MAPGIS to make the picture frame suitable for the professional charac 2teristics of one s own unit.K ey w ords :VB ;MSPGIS plain code file ;picture frame作者簡介:作者簡介:鐘華(1963-,男,湖北云夢縣人。1985年畢業(yè)于中南礦