Good day All,
I am unable to figure out how to find all features using ArcObjects 10.6. My code is working on selected feature (1 point) only. It doesn't work on multiple points added.
My code is in vb.net. Any help is appreciated.
Dim pMxDoc As IMxDocument
pMxDoc = CType(My.ArcMap.Application.Document, IMxDocument)
Dim pMap As IMap
pMap = pMxDoc.FocusMap
Dim pEnumFeat As IEnumFeature = TryCast(pMap.FeatureSelection, IEnumFeature)
pEnumFeat.Reset()
Dim pFeat As IFeature = pEnumFeat.Next
If pFeat Is Nothing Then
MessageBox.Show("No Feature Selected.", "Information", MessageBoxButtons.OK, MessageBoxIcon.Information)
System.Runtime.InteropServices.Marshal.ReleaseComObject(pEnumFeat)
Return
End If
Dim pFields As IFields
Dim enumFeatSetup As IEnumFeatureSetup = CType(pEnumFeat, IEnumFeatureSetup)
enumFeatSetup.AllFields = True
While pFeat IsNot Nothing
' How to loop through all new poins added?
pFields = pFeat.Fields
sIndex = pFeat.Value(pFeat.Fields.FindField("INDEX"))
sUni = GetUniqueValue(sIndex)
pFeat.Value(pFeat.Fields.FindField("UNIQUE")) =sUni
pFeat.Store()
pFeat = pEnumFeat.Next
End While