Le portail francophone de la géomatique

Bonjour,

Effectivement je ne pense pas que l'on puisse depuis l'interface d'argis  réaliser les opérations que vous avez citées.
Mais toutefois je ne suis pas sur que l'utilisation de MapLex vous permette de réaliser exactement ce type d'opération.
Je pense qu'il est plus facile d'étiquetter sur une couche de point invisible qui aurait pour coordonnées (texte_x, texte_y) et pour valeur l'attribut d'une seconde couche accessible par une liaison.


Concernant l'utilisation de VBA, il existe deux objets de base pour la création d'étiquette qui sont :
- LabelEngineLayerProperties et
- MaplexLabelEngineLayerProperties


Le second objet "semble" soumis à la licence dont vous parliez.
mais j'ai fait un test qui donne à réfléchir :

Public Sub test()
    MsgBox "1"
    Dim etiq As IAnnotateLayerProperties
    Set etiq = New MaplexLabelEngineLayerProperties
    
    MsgBox "2"
End Sub

et ce code fonctionne ...

A mon sens ( à mettre en guillemets car je n'ai jamais manipulé les étiquettes en VBA), le moteur d'étiquettage MapLex est un outil avec une interface utilisateur qui est payant mais qui n'est pas protégé par une licence. Autrement dit, l'interface est payante, le codage VBA serait libre...

une chose sure : les arcobjets sur le poste sont toujours complets (c'est la licence qui bride l'outil), par exemple appeler un objet en lien avec la topologie (licence ArcEditor) provoqie une erreur due à la licence.

je vous invite donc à essayer en VBA de manipuler directement les classes relatives à MapLex. Les diagrammes Objet model disponibles à l'adresse suivante http://resources.esri.com/help/9.3/arcg … _start.htm.
C'est en vb6 mais le fonctionnement est identique en VBA.

Bon Courage

Bonjour,

Pour suite, j'ai trouvé une propriété 'angle' attachée à l'interface de ITextSymbol, et je défini ce symbole comme symbole texte du moteur d'étiquetage standard. Mais peut importe la valeur que je met pour 'angle' mes étiquettes sont toujours posée à plat.

Si je pouvais faire fonctionner cela pour orienter mes labels, je n'ai plus qu'à trouver une astuce pour étiqueter mes objets un par un. Je mets mon code pour que vous y voyiez plus clair ^^

    Dim pflayer As IFeatureLayer
    Set player = FindLayerByName(pmxmap, list_couches.Value)
    Set pflayer = player

    
    'QI
    Dim lpGeoFeatureLayer As IGeoFeatureLayer
    Set lpGeoFeatureLayer = pflayer

    'Get Annotation Properties Collection
    Dim lpAnnoPropColl As IAnnotateLayerPropertiesCollection
    Set lpAnnoPropColl = lpGeoFeatureLayer.AnnotationProperties

    'Get the Annotate Layer Properties
    Dim lpAnnoProp As IAnnotateLayerProperties
    lpAnnoPropColl.QueryItem 0, lpAnnoProp
    ' ....

    Dim pAnnoLayerPropsColl As IAnnotateLayerPropertiesCollection
    Set pAnnoLayerPropsColl = lpGeoFeatureLayer.AnnotationProperties
    ' then get the (first) property set in the collection
    Dim pAnnoLayerProps As IAnnotateLayerProperties
    pAnnoLayerPropsColl.QueryItem 0, pAnnoLayerProps, Nothing, Nothing

    ' Update LabelEngineLayerProperties
    Dim pLabelEngineLayerProps2 As ILabelEngineLayerProperties2
    Set pLabelEngineLayerProps2 = pAnnoLayerProps

    ' symbol ITextSymbol utilisé par le moteur
    
    Dim lpTextSym As ITextSymbol
    Set lpTextSym = New TextSymbol

    Dim lpFont As IFont
    Set lpFont = New SystemFont
    lpFont.Name = "Arial"
    lpFont.Italic = True
    lpFont.Bold = True
    lpFont.size = 11

    lpTextSym.Angle = 125
    lpTextSym.Font = lpFont

    'QI
    Dim lpLabelEngine As ILabelEngineLayerProperties
    Set lpLabelEngine = lpAnnoProp
    Set lpLabelEngine.Symbol = lpTextSym

    'Set the expression
    lpLabelEngine.Expression = "[" & list_champs.Value & "]"

    'Switch on labels
    lpGeoFeatureLayer.DisplayAnnotation = True

    'Refresh the map
    pmxdoc.ActiveView.Refresh

J'ai loupé un truc ?? ^^

Cordialement

Julien

Bonjour,

Merci d'avoir testé ça chez toi.

Finalement j'ai fais une recherche et j'ai trouvé ça sur le site du support ESRI :
http://support.esri.com/index.cfm?fa=kn … mp;d=20360

Il faut passer par un ITextElement, qui s'appuie sur un IPoint d'ancrage, et appliquer une méthode de rotation de la classe ITransform2D après le changement d'interface :

Dim pTwoD As ITransform2D
Set pTwoD = pElem
pTwoD.Rotate pPoint, angle_en_radians

Le pElem correspond au changement d'interface du ITextElement vers un IElement, c'est donc au final un IElement. Attention car l'angle est exprimé en radians, et la rotation s'effectue dans le sens contraire des aiguilles d'une montre (pour ceux qui ont toujours des montres à Aiguille ^^).

Au final, voici le code qui me permet de boucler sur mes entités, d'ajouter un ITextElement pour chaque entité, avec positionnement X,Y et rotation Angle qui sont stockés dans ma table attributaire.

   ' etiquetage
    
    ' init
    
    Dim pmxdoc As IMxDocument
    Dim pmxmap As IMap
    Dim penumlayer As IEnumLayer
    Dim player As ILayer

    Set pmxdoc = Application.Document
    Set pmxmap = pmxdoc.FocusMap
    
    Dim pfclass As IFeatureClass
    Dim pflayer As IFeatureLayer
    Dim pfeat As IFeature
    Set player = FindLayerByName(pmxmap, list_couches.Value)
    Set pflayer = player
    Set pfclass = pflayer.FeatureClass
    
    Dim pGraphicsContainer As IGraphicsContainer
    Dim pActiveView As IActiveView
    Dim pTextElement As ITextElement
    Dim pElement As IElement
    
    Set pGraphicsContainer = pmxdoc.FocusMap
    Set pActiveView = pmxdoc.FocusMap

    ' hop
        
    Dim ppoint As IPoint
        
    Dim i As Integer
    For i = 0 To pfclass.FeatureCount(Nothing) - 1
        Set pfeat = pfclass.GetFeature(i)
        
        Set pTextElement = New TextElement
        Set pElement = pTextElement
  
        pTextElement.Text = pfeat.Value(pfclass.FindField(list_champs.Value))
        pTextElement.ScaleText = No ' comment ça marche ?
        
        Set ppoint = New Point
        ppoint.x = pfeat.Value(pfclass.FindField(list_x.Value))
        ppoint.y = pfeat.Value(pfclass.FindField(list_y.Value))
        pElement.Geometry = ppoint
        
        pGraphicsContainer.AddElement pTextElement, 0

        Angle = pfeat.Value(pfclass.FindField(list_angle.Value))
        Angle_R = 3.1416 * Angle / 180
                
        Dim pTwoD As ITransform2D
        Set pTwoD = pElement
        pTwoD.Rotate ppoint, Angle_R

    Next i
    
    ' Refresh the Data Frame

    pActiveView.PartialRefresh esriViewGraphics, Nothing, Nothing

Je dois encore améliorer le truc, notamment en choisissant de manière interactive une police pour mes textes, et ensuite en convertissant mes textes en couche d'annotations (si c'est possible mais ça devrait se faire).

Et tout ça sans acheter MapLex !! Hoorah ! En tout cas j'espère que ça servira à d'autres ^^

Cordialement

Julien

Dernière modification par Jeirhome (Mon 08 March 2010 13:59)

Bonjour,

Pour finir, je n'ai pas trouvé la solution qui me permette de transformer mes IElement ou ITextElement en couche d'annotations, cependant, j'ai découvert que dans les propriétés des étiquettes d'ArcGIS, il existe la possibilité d'orienter les labels sur la base d'un champs 'angle' ! Fonction uniquement disponible pour une couche de ponctuels.

Cordialement

Julien