pDoc = m_pApp.Document 'setting m_pApp is a seperate question for another thread pMap = pDoc.FocusMap Dim pFCursor As IFeatureCursor Dim pSelectionSet As ISelectionSet Dim pFSelection As IFeatureSelection pFSelection = pMap.Layer(0) 'just use the first layer in the TOC for simplicity pSelectionSet = pFSelection.SelectionSet ''set the pfeaturecursor pFCursor = Nothing ''Get a cursor from the selected features pSelectionSet.Search(Nothing, False, pFCursor) Dim curTextValue As String Dim curIntegerValue As Integer Dim curDateValue As DateTime Dim pFeat As IFeature pFeat = pFCursor.NextFeature Do Until pFeat Is Nothing curTextValue = pFeat.Value(pFeat.Fields.FindField("YourTextFieldName")) curDateValue = pFeat.Value(pFeat.Fields.FindField("YourDateFieldName")) curIntegerValue = pFeat.Value(pFeat.Fields.FindField("YourIntegerFieldName")) pFeat = pFCursor.NextFeature Loop
Private Function Get_Lyr(ByVal sLayerName As String) As IFeatureLayer Dim i As Integer Dim pLayer As IFeatureLayer pLayer = Nothing pDoc = m_pApp.Document pMap = pDoc.FocusMap For i = 0 To pMap.LayerCount - 1 If pMap.Layer(i).Name = sLayerName Then pLayer = pMap.Layer(i) pLayer.Selectable = False Exit For End If Next Return pLayer End Function
Dim pFCursor As IFeatureCursor Dim pSelectionSet As ISelectionSet Dim pFSelection As IFeatureSelection pFSelection = Get_Lyr("YourLayerNameGoesHere") 'use the new Get_Lyr function pSelectionSet = pFSelection.SelectionSet ''set the pfeaturecursor pFCursor = Nothing ''Get a cursor from the selected features pSelectionSet.Search(Nothing, False, pFCursor) Dim curTextValue As String Dim curIntegerValue As Integer Dim curDateValue As DateTime Dim pFeat As IFeature pFeat = pFCursor.NextFeature Do Until pFeat Is Nothing curTextValue = pFeat.Value(pFeat.Fields.FindField("YourTextFieldName")) curDateValue = pFeat.Value(pFeat.Fields.FindField("YourDateFieldName")) curIntegerValue = pFeat.Value(pFeat.Fields.FindField("YourIntegerFieldName")) pFeat = pFCursor.NextFeature Loop
Aangemelde leden kunnen berichten plaatsen, updates volgen en meer. Nieuw hier? Registreer een gratis account.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.