GIS程序设计4(阅读).pptVIP

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 IFeatur