Changer l'alignement d'un texte (résolu)

[vincentp010]

Bonjour,

 

j’essaie d'insérer un texte avec la commande (vla-addtext) puis de changer son point d'insertion à acAlignmentMiddleCenter, mais le texte est déplacé car le changement se fait sur le point d'alignement (0, 0, 0).

Je voulais changer ça mais lorsque j'execute la commande suivante j’obtiens une erreur

(vla-put-TextAlignmentPoint ent (vlax-3d-point pti))
; erreur: Erreur Automation Non valable

Il a t'il un moyen d’insérer directement le texte en choisissant l'alignement en visual lisp, car là je suis bloqué, à chaque fois j'ai le point d'insertion à gauche

[bryce]

Bonjour,

 

Voici un petit exemple qui fonctionne:

 

(defun c:vltext (/ ms txt pt)

(vl-load-com)
(setq ms (vla-get-modelspace (vla-get-ActiveDocument (vlax-get-acad-object))))

(if (setq pt (vlax-3d-point (getpoint "\nPosition du texte : ")))
 (progn
   (setq txt (vla-addtext ms "Coucou !" pt (getvar "textsize")) )
   (vla-put-alignment txt acAlignmentMiddleCenter)
   (vla-put-TextAlignmentPoint txt pt)
 )
)
(princ)
)

[vincentp010]

Ok, j'étais pas loin de la bonne syntaxe.

 

En fait je faisais l'opération dans le mauvais sens ;)

Si on lance la commande

(vla-put-TextAlignmentPoint txt pt)

alors que le texte est aligné à gauche on obtient une erreur, c'est ce qu'il m'arrivait car je voulais changer le point d'alignement avant de changer l'alignement