Le portail francophone de la géomatique

Bonjour à tous

Je fais afficher du texte dans un fichier autocad. Le problème est que mon texte peux s'inscrice à l'envers.

Au début de mon code l'utilisateur décide de quel coté de la ligne le texte s'affichera. Ensuite le texte s'affiche. C'est rendu à cet endroit que mes problèmes arrivent.

Comment coder en VBA pour faire tourner le texte nouvellement afficher de 180 degré ? Ou comment coder pour faire afficher le texte, poser une question a savoir si le texte est bien orienté et s'il ne l'est pas alors tourne le texte de 180 degré.

merci de votre aide


textString = mesure qui sera afficher dans le fichier
insertionPoint = coordonnée qui s'affiche au centre de la ligne sélectionne par l'utilisateur
Angle = Angle de la ligne sélectionner par l'utilisateur

Set textObj = ActiveDocument.ModelSpace.AddText(textString, insertionPoint, txtHauteur.Text)
    textObj.Alignment = acAlignmentBottomCenter
    textObj.TextAlignmentPoint = alignmentPoint
    textObj.Rotation = Angle
    textObj.Alignment = acAlignmentBottomCenter
    ActiveDocument.Regen acActiveViewport