интерфейс выделенных объектов

Question

    доброе время суток
интересно знать, какой использовать интерфейс для получения списка выделенных объектов?
объекты выделяются запросами или мышью каждый в отдельности..

так же интересно,где можно найти некое фундаментальное издание по интерфесам аркгиса, за исключением справки IDispatch

Answer 1

http://resources.esri.com/help/9.3/arcgisdesktop/com/vba_start.htm

http://resources.esri.com/help/9.3/arcgisdesktop/ArcObjects/esriCarto/IMap_FeatureSelection_Example.htm

http://resources.esri.com/arcgisdesktop/index.cfm?fa=forDevelopers

http://resources.esri.com/arcgisengine/index.cfm?fa=forDevelopers

Answer 2

1) ISelection Interface

http://resources.esri.com/help/9.3/arcgisdesktop/arcobjects/esricarto/ISelection.htm

2) ArcObjects API for ArcGIS Desktop—Library Reference

http://resources.esri.com/help/9.3/arcgisdesktop/arcobjects/ao_start.htm
    

Answer 3

благодарююю...
с наступающим, ребят!

Answer 4

   нашел решение. за ссылки спасибо.

Private Sub UIButtonControl1_Click()
Dim pDoc As IMxDocument
Set pDoc = ThisDocument

Dim pLayerCol As IEnumLayer


If (pDoc.FocusMap.LayerCount > 0) Then
Set pLayerCol = pDoc.FocusMap.Layers

pLayerCol.Reset
End If

Dim pl As ILayer
Dim iLCount As Long
iLCount = 0

Dim pFS As IFeatureSelection

If (pDoc.FocusMap.LayerCount > 0) Then

    Set pl = pDoc.FocusMap.Layer(iLCount)

    Do While (iLCount < pDoc.FocusMap.LayerCount - 1 And Not pl Is Nothing)
        If (TypeOf pl Is FeatureLayer And Not pl Is Nothing) Then
            
            Set pFS = pl
            
            Dim pFCursor As IFeatureCursor
            pFS.SelectionSet.Search Nothing, False, pFCursor
            
            Dim pF As IFeature
            Set pF = pFCursor.NextFeature
    
            Do Until pF Is Nothing
                    s = pF.Value(pF.Fields.FindFieldByAliasName(pF.Table.Fields.Field(<порядковый номер столбца>).AliasName))

               Set pF = pFCursor.NextFeature
            Loop
            
        End If
        iLCount = iLCount + 1
        Set pl = pDoc.FocusMap.Layer(iLCount)
    Loop
End If



End Sub