ArcGIS基础代码（1）——如何遍历Select Features

如何对整个地图：

Sub mm4()
    Dim md As IMxDocument
    Dim tt As IMap
   
    Dim pFL As IFeatureLayer
dim pEF as IEnumFeature
    
    Dim pF As IFeature
    Set md = ThisDocument

    Set tt = md.FocusMap
    set pEF=tt.FeatureSelection
    Set pF = pEF.Next
    Debug.Print pF.Value(4)
End Sub

如果对某个图层：

Sub mm4()
    Dim md As IMxDocument
    Dim tt As IMap
   
    Dim pFL As IFeatureLayer
    Dim pFS As IFeatureSelection
    Dim pSelSet As ISelectionSet
    Dim pFCS As IFeatureCursor
   
    Dim pF As IFeature
    Set md = ThisDocument

    Set tt = md.FocusMap
   
    Set pFL = tt.Layer(2)
    Set pFS = pFL
    Set pSelSet = pFS.SelectionSet ”’flayer
    pSelSet.Search Nothing, True, pFCS
    Set pF = pFCS.NextFeature
    Debug.Print pF.Value(4)
End Sub

转载自：https://blog.csdn.net/syasz/article/details/629846