selektierte Features

Hallo Gast,


hierzu findest du ein Beispiel in der Hilfe unter FeatureSelection:

Public Sub LoopThruSelection2()
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pEnumFeature As IEnumFeature
Dim pEnumFeatureSetup As IEnumFeatureSetup
Dim pFeature As IFeature

Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap
Set pEnumFeature = pMap.FeatureSelection
Set pEnumFeatureSetup = pEnumFeature 'QI
pEnumFeatureSetup.AllFields = True
Set pFeature = pEnumFeature.Next
Do While (Not pFeature Is Nothing)
Debug.Print pFeature.Value(pFeature.Fields.FindField("Name"))
Set pFeature = pEnumFeature.Next
Loop
End Sub

Gruß

Uwe