GIS程序设计培训讲义.ppt

AxMapControl1.ActiveView.PartialRefresh(esriViewDrawPhase.esriViewGeoSelection, Nothing, Nothing) 产生新的图层() Dim pNewFeat As IFeatureLayer pNewFeat = pFeatLyrDef.CreateSelectionLayer(new, True, vbNullString, vbNullString) pFeatSel.Clear() AxMapControl1.Map.AddLayer(pNewFeat) MessageBox.Show(AxMapControl1.Map.LayerCount) End Function IIdentify接口 获得图层中单个要素的属性的捷径方法 Function IdentifyFeat(ByVal mapX As Double, ByVal mapY As Double) Dim pIdentify As IIdentify Dim pPoint As IPoint Dim pIDArray As IArray Dim pFeatIDObj As IFeatureIdentifyObj Dim pIdObj As IIdentifyObj pIdentify = AxMapControl1.Map.Layer(1) pPoint = New Point pPoint.PutCoords(mapX , mapY ) 用一个点选择图层中的要素 pIDArray = pIdentify.Identify(pPoint) …… 获得FeatureIdentifyObject对象 Dim pRowIdentify As IRowIdentifyObject If Not pIDArray Is Nothing Then pFeatIDObj = pIDArray.Element(0) pIdObj = pFeatIDObj pIdObj.Flash(AxMapControl1.ActiveView.ScreenDisplay) MessageBox.Show(pIdObj.Layer.Name __ pIdObj.Name) Else MessageBox.Show(没有要素被指定) End If End Function pRowIdentify = pFeatIDObj Dim pRow As IRow pRow = pRowIdentify.Row Dim i As Int16 : Dim strValue As String strValue = Dim tempValue As Object For i = 0 To pRow.Fields.FieldCount - 1 tempValue = pRow.Value(i) strValue = strValue tempValue.ToString Next MessageBox.Show(strValue) 3 CAD图层 CAD文件的后缀 dwg 加载Dwg文件的两种形式： 一是要素图层，即以矢量数据的方式加载 二是栅格图层，即以栅格数据方式加载，作为背 景图层使用 加入CAD文件－－栅格图层加载 Function AddCADRasterLayer(ByVal path As String, ByVal name As String) Dim pCadWorkspaceFactory As IWorkspaceFactory pCadWorkspaceFactory = New CadWorkspaceFactory Dim pWorkspace As IWorkspace pWorkspace = pCadWorkspaceFactory.OpenFromFile(path, 0) Dim pCadDrawingWorkspace As ICadDrawing