значения из таблицы

Question

Здравствуйте. Задача состоит в следующем. На карте расположены некоторые точки. После их выделения, запускается нижеприведенный скрипт, нужно получить информацию из полей в таблице учитывая только выделенные записи.

Проблема состоит в том, что скрипт вместо значений соответсвующих полей возвращает пустое значение, т.е. пустую строку (значение подсвечено красным цветом).
Не смотря на это, индекс нужного поля определяется правильно.

Dim g_Map As Map
Dim mxDoc As IMxDocument
Dim index As Long
Dim activeView As IActiveView
Dim featureEnum As IEnumFeature
Dim feat As IFeature

    Set mxDoc = Application.Document
    Set g_Map = mxDoc.FocusMap
    Set activeView = g_Map
    
    Set featureEnum = activeView.Selection
    If featureEnum Is Nothing Then Exit Sub
    featureEnum.Reset 'ñáðîñ êóðñîðà
    Set feat = featureEnum.Next
    
    Do While Not feat Is Nothing
        index = feat.Fields.FindField("НАЗВАНИЕ ПОЛЯ")
        If index <> -1 Then
            MsgBox "index = '" & index & "' Value = '" & feat.Value(index) & "'"
        End If
        Set feat = featureEnum.Next
    Loop
    

Answer 1

спасибо, однако с отрисовкой линии по прежнему проблемы :(
читаю хелп, но что то плохо помогает...

Answer 2

Это был ответ на исходный вопрос.

For the second problem see sample:

http://edndoc.esri.com/arcobjects/9.2/ComponentHelp/esriGeometry/Complement_Example.htm

P.S. Лучше не мешать в одном топике совершенно различные проблемы, а открыть отдельный топик.