Annonce
#1 Thu 18 June 2009 16:43
- agerin
- Juste Inscrit !
- Date d'inscription: 18 Jun 2009
- Messages: 7
Surbrillance d'une entité dans une routine en VBA
Salut,
J'utilise un petit code en VBA qui me permet d'export en jpeg, une carte centrée sur chaque entité d'une couche de points ou de lignes. En fait, il parcourt du début jusqu'à la fin de la couche, toutes les entités dans une boucle.
Je cherche la commande qui rend en surbrillance d'entité sélectionnée pour pouvoir avoir à la sortie, des cartes .jpg avec l'entité en surbrillance de la même façon que quand on sélectionne une entité, c'est à dire en bleu clair.
Merci d'avance
Hors ligne
#2 Mon 22 June 2009 17:34
- agerin
- Juste Inscrit !
- Date d'inscription: 18 Jun 2009
- Messages: 7
Re: Surbrillance d'une entité dans une routine en VBA
J'ai fait avec :
Code:
Dim pFLayer As IFeatureLayer Dim pFeatureSelection As IFeatureSelection Dim pQF As IQueryFilter 'Récupère la 1ère couche Set pFLayer = pMap.Layer(0) Set pFCursor = pFLayer.FeatureClass.Update(Nothing, False) Set pFeature = pFCursor.NextFeature Set pQF = New QueryFilter i = 0 Do Until pFeature Is Nothing i = i + 1 Set pFeatureSelection = pFLayer pFeatureSelection.SelectFeatures pQF, esriSelectionResultNew, False
Mais le problème, c'est qu'il me sélectionne toutes les entités de ma couche. Comment puis je avoir juste une entité sélectionnée de ma couche après l'autre ?
Merci d'avance
Hors ligne
#3 Thu 25 June 2009 12:08
- agerin
- Juste Inscrit !
- Date d'inscription: 18 Jun 2009
- Messages: 7
Re: Surbrillance d'une entité dans une routine en VBA
J'ai trouvé :
Code:
Dim pFeatureSelection As IFeatureSelection Set pFeatureSelection = pFLayer pFeatureSelection.Clear pFeatureSelection.Add pFeature pMxDoc.ActiveView.PartialRefresh esriViewGeoSelection, pFeature, Nothing
A bientôt
Hors ligne
