Annonce
Pour sécuriser votre compte sur les forums du GeoRezo, nous vous proposons de changer votre mot de passe.
Vous allez recevoir un message pour effectuer ce changement de mot de passe.
Merci de bien respecter les règles préconisées.
#1 Mon 08 March 2010 15:28
- JeffC1977
- Juste Inscrit !
- Date d'inscription: 8 Mar 2010
- Messages: 3
VBA tourner du texte au choix de l'utilisateur
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
Code:
Set textObj = ActiveDocument.ModelSpace.AddText(textString, insertionPoint, txtHauteur.Text)
textObj.Alignment = acAlignmentBottomCenter
textObj.TextAlignmentPoint = alignmentPoint
textObj.Rotation = Angle
textObj.Alignment = acAlignmentBottomCenter
ActiveDocument.Regen acActiveViewportHors ligne
