VBA -Autocad Déplacement de texte par coordonnée

Question

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

 If returnString = "Non" Then
        textObj.Delete
        ActiveDocument.Regen acActiveViewport

        Set textObj = ActiveDocument.ModelSpace.AddText(textString, insertionPoint, txtHauteur.Text)
        textObj.Alignment = acAlignmentTopCenter
        textObj.TextAlignmentPoint = alignmentPoint
        textObj.Rotation = Angle - Pi
        textObj.Update

        Dim Point1(0 To 2) As Double
        Dim Point2(0 To 2) As Double

        Point1(0) 0: Point1(1) 0: Point1(2) = 0
        Point2(0) 0.6: Point2(1) -0.6: Point2(2) = 0

        textObj.Move Point1, Point2
        textObj.Update

cs_JeffC1977 · Answer

Trouvé  mettre le fichier en UCS World

 ActiveDocument.SendCommand "_ucs" & vbCr & "W" & vbCr

VBA -Autocad Déplacement de texte par coordonnée

1 réponse

Votre réponse

Discussions similaires