Выделение объектов

Question

       Здравствуйте! Помогите, пожалуйста!Нужно запрограммировать свою кнопку, при нажатии на которую выдлен был бы линейный объект на карте из определенного слоя.Слоев 2:реки и дороги. При нажати на кнопку появляется форма на ней 2 комбобокса и в зависимости от того что вних выбрано, неоходимо выделить объект, при нажатии на кнопку.

Answer 1

Можно ведь искать по имени. Зачем выделять?
Впрочем ладно, раз хотите, то пусть будет так. Посмотрите справку по:
IContentsView.SelectedItem
IContentsView.AddToSelectedItems

Answer 2

   В каждом слое есть по 5 объектов занесенных в таблицу атрибутов,при выборе конкретного объекта мне нужно его выделить на карте

Answer 3

    Нужно не весь слой выделять сразу, а конкретный объект слоя.

Answer 4

IFeatureSelection.SelectFeatures

http://www.dataplus.ru/Support/ESRI/ArcGIS/ArcObjects/ArcObjects.htm
Скрипт 6.

Answer 5

    спасибо!

Answer 6

Привет! Подскажите, я по имени нашла слой, как мне сделать его активным???
В combobox2 - выбирается номер объекта (номер дороги). И необходимо по этому номеру выделить объект на карте. Как это можно осуществить?

Answer 7

Привет! Подскажите, я по имени нашла слой, как мне сделать его активным???

С помощью поиска.
https://forum.esri-cis.ru/index.php?qa=26938
http://resources.esri.com/help/9.3/ArcGISEngine/ArcObjects/esriArcMapUI/IContentsView_SelectedItem.htm
http://resources.esri.com/help/9.3/ArcGISEngine/ArcObjects/esriArcMapUI/IContentsView_SelectedItem_Example.htm

В combobox2 - выбирается номер объекта (номер дороги). И необходимо по этому номеру выделить объект на карте. Как это можно осуществить?

IFeatureSelection.SelectFeatures

http://www.dataplus.ru/Support/ESRI/ArcGIS/ArcObjects/ArcObjects.htm
Скрипт 6.

Answer 8

Я взяла из 6 скрипта,что вы советовали,и у меня в строке вылетает,пишет что ошибка
sel.SelectFeatures filter, esriSelectionResultNew, False,
а еще не знает интерфейса ISelectionEvents

Answer 9

Sub SelectFeatures()

Dim mxDoc As IMxDocument
Set mxDoc = Application.Document
'поиск слоя, из которого будет производиться выборка
Dim lyr As IFeatureLayer
Set lyr = FindLayer(mxDoc.FocusMap, "BigCypress")
'получение интерфейса выборки
Dim sel As IFeatureSelection
Set sel = lyr
'создание фильтра запроса
Dim filter As IQueryFilter
Set filter = New QueryFilter
'установка WHERE-запроса и пространственной привязки
filter.WhereClause = "Name = 'Hampton'"
Dim shapeField As String
ShapeField = lyr.FeatureClass.ShapeFieldName
Set filter.OutputSpatialReference(shapeField) =_
mxDoc.FocusMap.SpatialReference
'очистка существующей выборки на экране
mxDoc.ActiveView.PartialRefresh_
esriViewGeoSelection, Nothing, Nothing

'выбор объектов и установка новой выборки
sel.SelectFeatures filter, _
esriSelectionResultNew, False


mxDoc.ActiveView.PartialRefresh_
esriViewGeoSelection, Nothing, Nothing
'оповещение об изменении выборки
Dim selEvents As ISelectionEvents
Set selEvents = mxDoc.FocusMap
SelEvents.SelectionChanged

End Sub
Вот код может глянет кто нибудь в чем проблема с ним?

Answer 10

Какая версия ArcGIS Desktop?

Уберите символы переноса строки, напишите в одну строчку, либо вставьте пробел между словом PartialRefresh и подчёркиванием.
В определении FindLayer возможно придётся заменить тип возвращаемого значения: As Layer на As ILayer.
Поставьте точку остановки и убедитесь, что ваш слой успешно находится и lyr не равен Nothing.
Убедитесь, что у вас задано корректное условие для выборки.