實(shí)驗(yàn)五-圖層加載與顯示控制_第1頁
實(shí)驗(yàn)五-圖層加載與顯示控制_第2頁
實(shí)驗(yàn)五-圖層加載與顯示控制_第3頁
實(shí)驗(yàn)五-圖層加載與顯示控制_第4頁
實(shí)驗(yàn)五-圖層加載與顯示控制_第5頁
已閱讀5頁,還剩1頁未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

GIS二次開發(fā)—使用MapObjects-PAGE6-實(shí)驗(yàn)五圖層加載與顯示控制一、實(shí)驗(yàn)?zāi)康膶W(xué)習(xí)程序運(yùn)行前、運(yùn)行時MO圖層加載的方法學(xué)習(xí)SHP圖層、SDE圖層、CAD、Coverage圖層圖層加載和柵格數(shù)據(jù)加載方法學(xué)習(xí)圖層順序控制、顯示與否控制、矢量圖層色彩控制等二、實(shí)驗(yàn)內(nèi)容運(yùn)用各種不同的方法加載各種矢量圖層數(shù)據(jù)運(yùn)用各種方法加載柵格圖層數(shù)據(jù)圖層的上移、下移、隱藏、放大、縮小、漫游三、實(shí)驗(yàn)環(huán)境與數(shù)據(jù)VB6MapObjects2.4Xiangprj.shpNtschool.shp四、實(shí)驗(yàn)要求掌握程序運(yùn)行前、運(yùn)行時MO圖層加載的方法。掌握SHP圖層、Coverage圖層、SDE圖層、CAD圖層加載和柵格數(shù)據(jù)加載方法。掌握圖層順序控制、顯示與否控制、矢量圖層色彩控制等。五、實(shí)驗(yàn)任務(wù)(一)程序演示演示Shp矢量圖層的加載演示不同格式的柵格圖層的加載演示ArcInfo的Cov格式的圖層加載演示SDE圖層的加載演示CAD圖層的加載顯示與隱藏演示圖層順序控制演示放大與縮小演示漫游與全圖演示(二)實(shí)現(xiàn)方法Shp矢量圖層的加載Shp矢量數(shù)據(jù)的加載分為四個過程:通過定義一個地理數(shù)據(jù)連接對象Dc,確定Dc連接的數(shù)據(jù)庫,從而建立一個到包含Shp文件的文件夾的連接使用FindGeodataset方法在新建的數(shù)據(jù)連接下的查找需要的地理數(shù)據(jù)集合建立一個矢量圖層對象,將找到的地理數(shù)據(jù)集合賦給矢量圖層對象的地理數(shù)據(jù)集合屬性將矢量圖層添加到地圖控件中,刷新地圖將以上過程編寫成VB代碼如下:'定義一個地理數(shù)據(jù)連接對象dc'定義一個地理數(shù)據(jù)集對象gs'定義一個矢量圖層對象mlyrDimdcAsNewmapobjects2.DataConnectionDimgsAsmapobjects2.GeoDatasetDimMlyrAsNewmapobjects2.MapLayer'確定地理數(shù)據(jù)連接對象dc的屬性dc.Database="E:\mydoc\GIS二次開發(fā)\data"'判斷連接是否成功Ifdc.ConnectThen'查找連接對象中指定名稱的地理數(shù)據(jù)集Setgs=dc.FindGeoDataset("newcun")EndIf'判斷是否是符合要求的地理數(shù)據(jù)集IfNotgsIsNothingThen'將找到的地理數(shù)據(jù)集賦給mlyr的地理數(shù)據(jù)集對象SetMlyr.GeoDataset=gsEndIf'判斷圖層是否有效'Ifmlyr.ValidThen'將圖層加載到地圖中Map1.Layers.AddMlyr'刷新地圖Map1.Refresh'EndIfMsgBoxgs.Name這是直接指定Shp文件所在的文件夾的加載方法,也可以通過通用對話框方式加載。但是基本過程一樣。所不同的只是修改數(shù)據(jù)聯(lián)接對象的數(shù)據(jù)庫屬性和地理數(shù)據(jù)集的名稱屬性。具體方法參見實(shí)驗(yàn)一。不同格式的柵格圖層的加載柵格數(shù)據(jù)加載的方法比較簡單,包括一下三個過程:定義一個柵格圖層對象ilyr確定這個柵格圖層對象使用的柵格數(shù)據(jù)文件將這個柵格圖層對象加載到地圖控件中代碼如下:'定義一個柵格圖層對象DimilyrAsNewmapobjects2.ImageLayer'確定這個對象使用的柵格數(shù)據(jù)文件ilyr.File="E:\mydoc\GIS二次開發(fā)\data\南通市區(qū)圖.jpg"'將這個圖層對象加載到地圖控件中Map1.Layers.Addilyr'刷新地圖Map1.Refresh柵格數(shù)據(jù)的加載也可以使用通用對話框,不僅利用通用對話框選擇文件,也可以利用通用對話框選擇不同的柵格數(shù)據(jù)類型。MapObjects支持的柵格數(shù)據(jù)類型由安裝時的選項(xiàng)確定。SDE圖層的加載SDE是空間數(shù)據(jù)引擎的簡稱,空間數(shù)據(jù)引擎是操作保存在數(shù)據(jù)庫中的空間數(shù)據(jù)的軟件工具。由于需要操作數(shù)據(jù)庫,所以必須用符合數(shù)據(jù)庫的要求使用數(shù)據(jù)庫。數(shù)據(jù)庫保存了大量的數(shù)據(jù),為了安全使用必須使用具有用戶權(quán)限的用戶名和密碼,因此在連接SDE時首先需要明確連接的數(shù)據(jù)庫服務(wù)器是什么、用戶名是什么、密碼、數(shù)據(jù)庫。Map1.Layers.MoveToTopList1.ListIndexMap1.RefreshList1.ClearDimlyrAsObjectForEachlyrInMap1.LayersList1.AddItemlyr.NameNextList1.Selected(0)=True置底過程:IfList1.ListIndex<0ThenExitSubMap1.Layers.MoveToBottomList1.ListIndexMap1.RefreshList1.ClearDimlyrAsObjectForEachlyrInMap1.LayersList1.AddItemlyr.NameNextList1.Selected(Map1.Layers.Count-1)=True放大與縮?。簠⒄諏?shí)驗(yàn)

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論