как узнать FeatureLayer?

Question

   Dim pFeat As IFeature
   Dim pSelected As IEnumFeature
   Dim mxDoc As IMxDocument
  
   Set mxDoc = pDllAppl.Document
   Set pSelected = mxDoc.FocusMap.FeatureSelection
   pSelected.Reset
   Set pFeat = pSelected.Next

Тут я имею один выбранный объект на карте, как мне добраться до его FeatureLayer-а? Т.е. мне нужен боратный процесс в цепочке MxDoc->Layer->FeatureClass->Feature, имея Feature мне надо вытащить его Layer.

pFeat.Class.AliasName - это имя алиаса.

Answer 1

Попробуй использовать этот код

Dim mxDoc As IMxDocument

Dim pFeatClass As IFeatureClass

Dim MyFeature As IFeature

Dim pMap As IMap
 Dim pLayer As ILayer 

Dim pInputFeatLayer As IFeatureLayer

Dim SearchCursor As IFeatureCursor

Set mxDoc = ThisDocument

  Set pMap = mxDoc.FocusMap

Set pLayer = mxDoc.SelectedLayer

Set pInputFeatLayer = pLayer

Set pFeatClass = pInputFeatLayer.FeatureClass

Set SearchCursor = pFeatClass.Search(Nothing, False)

' далее в цикле можешь просмотреть все Features из pFeatClass

 
Set MyFeature = SearchCursor.NextFeature

Answer 2

Вы неправильно поняли вопрос, это я проделываю тысячу раз, мне нужна обратная связь!

Answer 3

Dim pFeatureClass As IFeatureClass

Set pFeatureClass = pFeat .Class

А затем перебрать все слои карты и найти слой с этим FeatureClass:

If pLayer.FeatureClass.AliasName = pFeatureClass.AliasName Then

............................................

End If

Answer 4

Спасибо, я так и делал.

Но думал, есть прямая связь!

Answer 5

Прямая связь у Feature может быть только с FeatureClass - можно сказать они есть величины постоянные.

А FeatureLayer object существует только для данной сессии ArcMap.