VBA Tourner sur lui même du texte dans autocad

VBA Tourner sur lui même du texte dans autocad - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2010 à 19:06:05    

Bonjour à tous  
 
Existe-til un moyen de tourner du texte de 180 degré par par aligment par son centre.
 
Au début de mon code je dois afficher le texte à partir de l'angle d'une ligne et j'utilise l'alignement Top Center.
 
Mais il arrive que le texte s'affiche à l'envers et je ne réussi pas à effacer le texte et le refaire dessiner exactement à la même place mais tourné sur lui même de 180 degré.
 
J'ai essayé de modifié les type d'alignement mais ca fais déplacer le texte, chose que je ne veux pas.
 
 
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 :
  1. Set textObj = ActiveDocument.ModelSpace.AddText(textString, insertionPoint, txtHauteur.Text)
  2.     textObj.Alignment = acAlignmentBottomCenter
  3.     textObj.TextAlignmentPoint = alignmentPoint
  4.     textObj.Rotation = Angle
  5.     textObj.Alignment = acAlignmentBottomCenter
  6.     ActiveDocument.Regen acActiveViewport

Reply

Marsh Posté le 08-03-2010 à 19:06:05   

Reply

Marsh Posté le 08-03-2010 à 20:32:27    

Salut, ne connaissant rien au VBA disponible sous AutoCad ,peut-être via Gog http://www.google.fr/search?hl=fr& [...] =&aq=f&oq=

Reply

Marsh Posté le 08-03-2010 à 21:20:44    

Quand je suis rendu à poster sur un forum c'est que je ne trouve rien sur le net....
 
Merci quand même

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed