Значения в таблице

0 голосов
спросил 09 Май, 10 от Swallow (2,740 баллов) в категории Программные продукты Esri
 Вот какой день уже не могу нормально написать код. Задача в следующем. Есть допустим 5 слоев. В каждом слое таблице есть столбец допустим name. нужно получить значения поля где name = 'абракадабра'. Может кто подсказать пример как это сделать. А то хелпы читаю и вообще не догоняю их( Или может не то я читаю?)  

33 Ответы

0 голосов
ответил 09 Май, 10 от Swallow (2,740 баллов)
если кому интересно то сделал так:

    Dim pSxDoc As ISxDocument
    Dim pSxApp As ISxApplication
    Dim pSelectionEnv As ISelectionEnvironment
    Dim pRgbColor As IRgbColor
    Set pSxApp = Application
    Set pSxDoc = Application.Document
    Set pSelectionEnv = pMxApp.SelectionEnvironment
    Set pRgbColor = New RgbColor
    pRgbColor.NullColor = True
    Set pSelectionEnv.DefaultColor = pRgbColor
0 голосов
ответил 09 Май, 10 от Swallow (2,740 баллов)
После закрытия файла все сбивается и это не помогает( Можно как нить в VBA сделать чтоб в реальном времени цвет изменялся?
0 голосов
ответил 09 Май, 10 от TDenis (42,620 баллов)
Сменить цвет на какой надо и сохранить проект.
Непонятно, в чём проблема.
0 голосов
ответил 09 Май, 10 от Swallow (2,740 баллов)
Сменить цвет на какой надо и сохранить проект.
Непонятно, в чём проблема.

    Он все время меняется при перезапуске почему то. Ставлю без цвета выделения сохраняю выхожу захожу и опять голубой.
0 голосов
ответил 10 Май, 10 от Swallow (2,740 баллов)
Сменить цвет на какой надо и сохранить проект.
Непонятно, в чём проблема.

    Поэтому надо программно как то придумать чтоб менялся цвет. Но дефаул колор почему то не помогает(
0 голосов
ответил 10 Май, 10 от pooperec (10,820 баллов)
Swallow

Если уж так нравятся извращения, то создайте "пустую" кнопку, которая на OnCreate будет всем слоям устанавливать NullColor.

Но вообще-то цвет выделения сохраняется...

Не знаю как у Вас, у меня это работает:
Sub Selection()
    Dim pMxApp As IMxApplication

    Dim pSelectionEnv As ISelectionEnvironment

    Dim pRgbColor As IRgbColor

    Set pMxApp = Application

    Set pSelectionEnv = pMxApp.SelectionEnvironment

    Set pRgbColor = New RgbColor

    pRgbColor.NullColor = True

    Set pSelectionEnv.DefaultColor = pRgbColor
End Sub
0 голосов
ответил 10 Май, 10 от Swallow (2,740 баллов)
    Странно в Arcscene цвет меняется в опциях а выделение все равно старого цвета. И когда перезаходишь все сбрасывается.
0 голосов
ответил 10 Май, 10 от pooperec (10,820 баллов)
В ArcMapе работает "на ура"...
0 голосов
ответил 10 Май, 10 от Swallow (2,740 баллов)
В ArcMapе работает "на ура"...

    эх( Ну ладно спасибо)
0 голосов
ответил 10 Май, 10 от pooperec (10,820 баллов)
Попробуйте принудительно сбрасывать выделение перед сохранением...
Добро пожаловать на сайт Вопросов и Ответов, где вы можете задавать вопросы по GIS тематике и получать ответы от других членов сообщества.
...