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
  5.         Set textObj = ActiveDocument.ModelSpace.AddText(textString, insertionPoint, txtHauteur.Text)
  6.         textObj.Alignment = acAlignmentTopCenter
  7.         textObj.TextAlignmentPoint = alignmentPoint
  8.         textObj.Rotation = Angle - Pi
  9.         textObj.Update
  11.         Dim Point1(0 To 2) As Double
  12.         Dim Point2(0 To 2) As Double
  14.         Point1(0) = 0: Point1(1) = 0: Point1(2) = 0
  15.         Point2(0) = 0.6: Point2(1) = -0.6: Point2(2) = 0
  17.         textObj.Move Point1, Point2
  18.         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