資源描述：
《gis應(yīng)用系統(tǒng)中專題地圖繪制》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、.重慶交通大學(xué)學(xué)生實驗報告實驗課程名稱地理信息系統(tǒng)軟件二次開發(fā)開課實驗室空間數(shù)據(jù)處理實驗室學(xué)院河海學(xué)院年級2008專業(yè)班1學(xué)生姓名學(xué)號08260117開課時間2011至2012學(xué)年第1學(xué)期總成績教師簽名...目錄實驗五GIS應(yīng)用系統(tǒng)中專題地圖的繪制3一、實驗內(nèi)容3二、實驗要求3三、實驗步驟31、系統(tǒng)完善；32、標(biāo)注型專題地圖43、數(shù)值型專題地圖64、點密度專題地圖105、分類專題地圖136、圖表專題地圖16四、實驗成果19五、實驗心得19...實驗五GIS應(yīng)用系統(tǒng)中專題地圖的繪制一、實驗內(nèi)容1、學(xué)習(xí)運用代碼在所編系統(tǒng)中進(jìn)行專題地圖的繪制；
2、2、完善系統(tǒng)。二、實驗要求1、完善系統(tǒng)，實現(xiàn)在主窗體中調(diào)用多個窗體；2、實現(xiàn)標(biāo)注型專題地圖的制作；3、實現(xiàn)數(shù)值型專題地圖的制作；4、實現(xiàn)點密度專題地圖的制作；5、實現(xiàn)分類專題地圖的制作；6、實現(xiàn)圖表專題地圖的制作。三、實驗步驟1、系統(tǒng)完善；在主界面窗體中完善系統(tǒng)界面，在“專題地圖”菜單欄下添加標(biāo)注型專題地圖、數(shù)值型專題地圖、點密度專題地圖、分類專題地圖、標(biāo)圖表專題地圖等選項，如圖5-1...圖5-1（系統(tǒng)界面）2、標(biāo)注型專題地圖由于學(xué)生水平局限，不能夠在一個窗體中完成所有功能的，因此此實驗在多個窗體中實現(xiàn)，添加名為“frmlabelren
3、derer”的窗口，設(shè)置其界面。在代碼窗口中寫入以下代碼：OptionExplicitDimDblAsBooleanPrivateSubDrawLayer()DimdcAsNewDataConnectionDimlayerAsMapLayerdc.Database=App.Path+".."+"Data"IfNotdc.ConnectThenMsgBox"在指定的文件夾下沒找到圖層數(shù)據(jù)文件！"EndEndIfSetlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("行政區(qū)")
4、layer.Symbol.Color=moOrange...layer.Symbol.Size=1layer.Symbol.Style=2layer.Symbol.OutlineColor=moBrownMap1.Layers.AddlayerSetlayer=NewMapLayerSetlayer.GeoDataset=dc.FindGeoDataset("行政區(qū)")layer.Symbol.Color=moRedlayer.Symbol.Size=3layer.Symbol.Style=0Setlayer.Renderer=NewLa
5、belRendererWithlayer.RendererIfDblThen.XOffsetField="行政區(qū)"EndIf.Field="行政區(qū)".Symbol(0).Color=moBlack.Symbol(0).Font.Size=8EndWithMap1.Layers.AddlayerMap1.RefreshEndSubPrivateSubForm_Load()Dbl=FalseDrawLayerfrmlabelrenderer.WindowState=2EndSub運行，如圖5-2，...圖5-2（在主窗口中調(diào)用frmlabel
6、renderer窗體）圖5-3（吉林省行政區(qū)劃圖）（標(biāo)注型）3、數(shù)值型專題地圖添加名為“frmvaluemaprenderer”的窗口，在代碼窗口中寫入以下代碼：OptionExplicitDimmoRecsetAsMapObjects2.RecordsetDimoRendererAsNewMapObjects2.ValueMapRenderer...PrivateSubCommand1_Click()frmvaluemaprenderer.WindowState=2DimstrsAsNewMapObjects2.StringsDimsF
7、ldnameAsStringDimoSymAsNewMapObjects2.SymbolDimiAsInteger'初始化SetmoRecset=Map1.Layers(0).RecordssFldname="行政區(qū)"DoWhileNotmoRecset.EOFstrs.AddmoRecset(sFldname).ValueAsStringmoRecset.MoveNextLoop'設(shè)置渲染參數(shù)；SetMap1.Layers(0).Renderer=oRendereroRenderer.Field=sFldnameoRenderer.Va
8、lueCount=strs.Count'-3'設(shè)置缺省值oRenderer.UseDefault=TrueSetoSym=oRenderer.DefaultSymboloSym.Color=m
