Méthode vla-AddText

(vla-AddText Espace Chaîne_Texte Point_Insertion Hauteur_Texte);

vla-AddText crée une ligne de texte.

Espace	Emplacement du texte à ajouter. Espace Objet, Espace Papier ou un Bloc.
Chaîne_Texte	La chaîne de texte à afficher, en entrée seulement. Les caractères Unicode, les codes de contrôle et les caractères spéciaux sont acceptés.
Point_Insertion	Variant (tableau de trois doubles), en entrée seulement. Coordonnées SCG 3D spécifiant le point d'insertion du texte.
Hauteur_Texte	Double, en entrée seulement. Hauteur du texte. Doit être positif. Elle est mesurée en unités courantes .
Retourne	Un Objet Texte (TEXT). Le nouveau texte crée.

www.cadfr.com

L'exemple suivant utilise la méthode vla-AddText pour créer une ligne de texte dans l'espace objet.

(defun C:Ajoute_Texte()

;- Accès au dessin courant d'AutoCAD.
(setq CadDessin (vla-get-ActiveDocument(vlax-get-acad-object)))

;- Accès à l'espace Objet du dessin en cours d'AutoCAD.
(setq Espace_Obj (vla-get-ModelSpace CadDessin))

(setq Pt_Ins (vlax-3d-Point (getpoint "\nPoint d'insertion : ")))

;- Récupération de la hauteur par défaut du style de texte courant.
(setq HautTxt (vla-GetVariable CadDessin "TEXTSIZE"))

;- Ajoute le texte : www.cadfr.com dans l'espace objet.
(setq LeTexte (vla-addtext Espace_Obj "www.cadfr.com" Pt_Ins HautTxt))

(princ)
)