第3章地图图层及几何对象gis lab

DEM的显示,加载配准后的影像数据及DEM数据，显示DEMImageLayer，表示你的层集中的一个图像文件。以下语句可以创建一个新DimiLayerAsNewAdd方法往你的地图画面里加入图你像文件。你可能还要使用层集对象的MoveToBottom方法，这样图像就不会挡住其它的层。设置它的属性：.File到一个具体的包含路径图像文件，然后把它加到一个地图的层集中。在MapObjetcs中支持多种格式的栅格数据文件格式，其中 GRID数据文件,对应hdr.adfTIF注意：配准后的影像会有配准文件（WORLDFile）,它是ASCII格式的，可用记事本打Image如在硬盘上找到与GRIDcolormap文件（颜色映射文件，CLR后缀，soils,MapObjects将会寻找对应的颜色映射文件：soils.clr.ArcInfoWorkstation的Grid模块中通过命令IMAGEGRID或文本编辑器创建。ASCII格式的文件，每行由空格分隔的四个数字组成，可以有多示此类栅格单元的颜色（R,GB）RGB合成某一0255255125502025530042552555255060255如果colormap文件不存在，MapObjects为整形的栅格(GRID)colormap文件。※DEM数据MO并不直接支持栅格数据查询和分析功能的设计，通过一个变通的方法可以解决这个问题。首先ArcInfoGRID模块或ArcGISDesktop的Spatialyst扩展模块将DEM转GRIDASCII格式的栅格数据，然后利用利用一个二维数据将栅格单元的值从ASCII格式的文件中读入内存，根据鼠标当前所在位置（X,Y）查询二维数组的值。ColorMap文件设置，如果像元值类型为浮点型则可以显示如上Map（clr）文件，通过ArcGIS的ArctoolboxCOPYRASTER工具可以实现整型栅格数DEM数据 GRD：\nde\yndeprj\DEM数据对应的ASCII以下是一个ASCII格式的栅格文件（.asc）的结构新建工程，并添加两个窗体Form1为主窗体，Dialog为框――用以在加载数据时显示※点击“LOADGRIDCOVERAGE”按钮时在地图中加载DEM数据（格式为GRID），同时加载ASCII格式的栅格数据到二维数组;加载矢量图层数据－※点击“加载影像”按钮时在地图中加载影像数据（TIF格式ASCII格式的栅格数据到二维数组;加载矢量图层数据－yncounty100-p_prj，并将其填充方式设置为※当鼠标在Map控件上移动时，实时地显示鼠标所在位置当前的地图坐标X,Y和像元Dimsym Setsym=myMa sym.SymbolType=moFillSymbolsym.Style=moTransparentFillsym.OutlineColor=moRedsym.Size=1 将控件坐标x,y转换为地图坐标 pt.y的代码DimptAs lblX.Caption="X: lblY.Caption="Y:"&Format(pt.y,4.根据当X,Y查询像元值，其中参数x,yDimxCellAsLongDimyCellAsDimxOffsetAsDoubleDimyOffsetAsDoublexOffset=x-m_xllcorneryOffset=y-If((xOffset<0)Or(yOffset<0))ThenGoToxCell=Fix(xOffset/m_cellsize)yCell=Fix(yOffset/GRIDCellQuer=dCellValueExitSubEnd'''LoadtheASCIIGRIDintoatwo-dimensional'''arrayofDoubles.DimlfAsLineFileDimyulcornerAs'ConnecttoASCIIGRIDfileasanASCIIfileSetlf=NewLineFileIflf.FileName=""ThenMsgBox"unabletofindfile: EndIfSetstro=New'ReadASCIIGRIDheaderinfo,ASCII栅格文件的文件头信stro.Text=lf.ReadEltstro.Text=lf.ReadEltstro.Text=lf.ReadEltstro.Text=lf.ReadEltstro.Text=lf.ReadEltm_NODATA_value=CDbl(stro.Extract(1))yulcorner=m_yllcorner+(m_cellsize*m_nrows)'DimensiontheGRIDReDimm_dASCIIGRID(m_ncols-1,m_nrows-1)AsDoubleDimiColsAsLongDimiRowsAsDimcollRowAsForiRows=m_nrows-1To0Step-SetcollRow=NewVBA.CollectionSetcollRow=stro.As