Insertion d\'un Mtexte de 2 lignes par le milieu de la hauteur

[sechanbask]

dim taille as single
Dim MTextObj As AcadObject
dim sngInterlignegc as single
dim decalage as single
dim directiontexte as double
dim pins as variant




taille = ThisDrawing.ActiveTextStyle.LastHeight


'si on ne connait pas l'interligne
If sngInterlignegc = 0 Then
'point d'insertion du Mtextobj sui sera supprimé
Dim dblPinsgc(0 To 2) As Double
dblPinsgc(0) = 0: dblPinsgc(1) = 0: dblPinsgc(2) = 0

'insertion du Mtextobj
Set MTextObj = ThisDrawing.ModelSpace.AddMText(dblPinsgc, 25, "chaine inutile")
'on  trouve la distance d'espacement
sngInterlignegc = MTextObj.LineSpacingDistance
       With MTextObj
       .Update
       End With
'on supprime l'objet car on ne pouvait pas bien le centrer puisqu'on dois connaitre sngInterlignegc
'avant d'utiliser la méthode Set
MTextObj.Delete
End If


'on connait maintenant sngInterlignegc donc on peut calculer le décalage
decalage = taille / 2 + sngInterlignegc / 2

'point d'insertion
pins = ThisDrawing.Utility.GetPoint(, vbCrLf & "Insérer : " & texteins)
directiontexte = ThisDrawing.Utility.GetOrientation(pins, vbCrLf & "Direction du texte...")

'Création du text multiligne
'Centrer en X le texte
pins(0) = pins(0) - decalage * Sin(directiontexte)
           
'Centrer en Y le texte
pins(1) = pins(1) + decalage * Cos(directiontexte)
          


'insertion du texte
Set MTextObj = ThisDrawing.ModelSpace.AddMText(pins, largeur_du_Mtext, texteins)
sngInterlignegc = MTextObj.LineSpacingDistance
       	With MTextObj
        'partie à modifier
        .Rotation = directiontexte
        .AttachmentPoint = acAttachmentPointMiddleLeft
        'regen du texte uniquement
        .Update
       	End With

 

Puisque ce n'est qu'un extrait de code, il peut manque des déclarations, ou des explications, si tel est le cas, je pourrais vous aider.