Sub MLeader_TextDirection()
Dim oML As AcadMLeader
Dim points(0 To 5) As Double
points(0) = 0: points(1) = 0: points(2) = 0
points(3) = 10: points(4) = 20: points(5) = 0
Dim i As Long
Set oML = ThisDrawing.ModelSpace.AddMLeader(points, i)
oML.TextString = "12345"
oML.TextLeftAttachmentType = acAttachmentMiddle
oML.TextRightAttachmentType = acAttachmentMiddle
oML.TextBackgroundFill = False
oML.TextDirection = acLeftToRight
oML.TextHeight = 2.3
oML.TextJustify = acAttachmentPointMiddleCenter
oML.TextLineSpacingDistance = 2.4
oML.TextLineSpacingFactor = 1.2
oML.TextLineSpacingStyle = acLineSpacingStyleExactly
oML.TextWidth = 7.4
oML.DogLegged = True
oML.DoglegLength = 1.3
' Управляем тем, с какой стороны будет текст
Dim vector(2) As Double
vector(0) = -1 ' 1 - текст справа, -1 - текст слева
oML.SetDoglegDirection 0, vector
End Sub