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

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

А если вручную выводить feat.Value(2) - например, то выдает правильное значение?

Значения начинаются с 0 (на всякий случай)

Answer 2

была у меня такая проблема, когда выделено много объектов, то при обращении к полям получал нулевые значения хотя данные там были, точно не помню но кажется написал вот такую функцию возвращающую объекты по слою выделенные на карте
Public Function funGetSelectedFeatureCursorOfFeatureLayer(pIMap As IMap, pIFeatureLayer As IFeatureLayer) As IFeatureCursor
    If pIFeatureLayer Is Nothing Then
        Exit Function
    End If
    Dim pFeatureSelection As IFeatureSelection
    Dim pSelectionSet As ISelectionSet
    Set pFeatureSelection = pIFeatureLayer 'QI
    Set pSelectionSet = pFeatureSelection.SelectionSet
    pSelectionSet.Search Nothing, False, funGetSelectedFeatureCursorOfFeatureLayer
End Function

Answer 3

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

Answer 4

А если вручную выводить feat.Value(2) - например, то выдает правильное значение?

Значения начинаются с 0 (на всякий случай)

    Пробовал, все равно возвращает пустое значение.

Answer 5

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

    Спасибо, попробую.

Answer 6

    Еще такая проблема, есть слой на котором расположены различные точки. Делается выборка нескольких точек, по некоему критерию. Требуется нарисовать прямые линии между точками. Т.е. например выбрали две точки, и между ними надо нарисовать прямую линию (соединить точки).
Эти линии надо просто отобразить на экране, т.е. не надо добавлять в слой и т.п.

В хелпе нашел некоторые примеры по отрисовке линий, но почему то у меня не работают.

Посоветуйте куда тут копать надо...
    

Answer 7

есть метод не помню точно как, но что то типа
display->draw, поищите на форуме есть. только то что отрисовывает пропадает при обновлении

Answer 8

    Нашел в хелпе следующий пример:
Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView
Dim pScreenDisplay As IScreenDisplay
Dim pRubberLine As IRubberBand
Dim pLineSymbol As ISimpleLineSymbol
Dim pRgbColor As IRgbColor
Dim pPolyline As IPolyline


Set pMxDoc = Application.Document
Set pActiveView = pMxDoc.FocusMap
Set pScreenDisplay = pActiveView.ScreenDisplay
Set pRubberLine = New RubberLine

Set pLineSymbol = New SimpleLineSymbol
Set pRgbColor = New RgbColor
pRgbColor.Red = 255
pLineSymbol.Color = pRgbColor

Set pPolyline = pRubberLine.TrackNew(pScreenDisplay, pLineSymbol)

With pScreenDisplay
    .StartDrawing pScreenDisplay.hDC, esriNoScreenCache
    .SetSymbol pLineSymbol
    .DrawPolyline pPolyline
    .FinishDrawing
End With

Но насколько я понял, медот TrackNew используется для события MouseDown. Видимо мне надо проинициализировать переменную pPolyline для вывода нужной мне линии на дисплей (координаты и т.п.), но что то не могу понять как?

Не подскажите, что делать?

PS спасибо, ваш предыдуший совет очень помог.

Answer 9

TrackNew используется для формирования полилинии
вам же нужен pScreenDisplay
Вот этот самый pScreenDisplay и имеет методы для отрисовки DrawPoint, DrawPolygon, DrawPolyline которым и подсовываются соответствующие геометрические фируры
метод SetSymbol устанавливает чтото типа свойств пера (толщина, цвет)
а для формирования полилиний или полигонов нада использовать ISegment и ISegmentCollection, в хелпе все есть, еще есть ILine и IPoint

Answer 10

https://forum.esri-cis.ru/index.php?qa=23101