VBA Autocad Déplacement en spécifiant une coordonnée

VBA Autocad Déplacement en spécifiant une coordonnée - VB/VBA/VBS - Programmation

Marsh Posté le 09-03-2010 à 13:43:07    

Bonjour
 
Est-il possible de déplacé du texte et de lui imposé une coordonnée.
 
En d'autres mots, j'ai du texte qui est à la coordonnée 0,0 et je veux la placer à la coordonne 10,10
 
Je suis capable de déplacer le texte mais si je lui mets une coordonnées, il se positionne vraiment pas là où il devrait être.
 
Je vous mets le bout de code que j'utilise mais c'est le code qui fonctionne pas avec les coordonnées.
 
merci de votre aide
 

Code :
  1. If returnString = "Non" Then
  2.         textObj.Delete
  3.         ActiveDocument.Regen acActiveViewport
  4.         Set textObj = ActiveDocument.ModelSpace.AddText(textString, insertionPoint, txtHauteur.Text)
  5.         textObj.Alignment = acAlignmentTopCenter
  6.         textObj.TextAlignmentPoint = alignmentPoint
  7.         textObj.Rotation = Angle - Pi
  8.         textObj.Update
  9.         Dim Point1(0 To 2) As Double
  10.         Dim Point2(0 To 2) As Double
  11.         Point1(0) = 0: Point1(1) = 0: Point1(2) = 0
  12.         Point2(0) = 0.6: Point2(1) = -0.6: Point2(2) = 0
  13.         textObj.Move Point1, Point2
  14.         textObj.Update

Reply

Marsh Posté le 09-03-2010 à 13:43:07   

Reply

Marsh Posté le 09-03-2010 à 17:30:15    

Erreur de ma part ou oublie... enfin... mettre le fichier en UCS World
 
 ActiveDocument.SendCommand "_ucs" & vbCr & "W" & vbCr

Reply

Sujets relatifs:

Leave a Replay

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