Probleme avec AddText

[rom1_am]

Bonjour,

 

Dans une procèdure vba, j'ajoute un texte dans une présentation avec le code suivant :

    Dim dPoint(2)       As Double
   Dim objText         As AcadText
   dPoint(0) = 5: dPoint(1) = 191.5
   Set objText = ThisDrawing.PaperSpace.AddText("Débit", dPoint, 2)

 

Une fois que la procèdure vba, le texte apparait très bien au bon endroit dans la présentation concernée.

Par contre, je n'arrive pas à sélectionner cet objet avec la souris???

 

Le calque de l'objet n'est pourtant pas gelé.

Lorsque je ferme et je réouvre le fichier, je peux alors le sélectionner. Je précise que je travaille sous AutoCAD2009

Je ne vois pas d'où vient le problème???

Merci pour votre aide.

[nazemrap]

Bonjour,

 

J' ai testé ton bout de code, pas de problème particulier....

Je sais, ça ne t' apportes pas de solutions, mais cela te fera peut-être avancer...

[rom1_am]

Bonjour et merci nazemrap,

J'ai résolu le problème en définissant les coordonnées du point d'alignement du texte après avoir inséré le texte.

 
Set objText = ThisDrawing.PaperSpace.AddText("Débit", dPoint, 2)
objText.TextAlignmentPoint(0) = dPoint(0)
objText.TextAlignmentPoint(1) = dPoint(1)

 

Pourtant selon l'aide, il n'est pas utile de définir ce point si l'alignement est à gauche... Mais bon, maintenant, ça marche, c'est l'essentiel.