Sub Example_LineSpacingDistance()
    ' Этот пример создает объект MText, показывает значение свойства
    ' LineSpacingDistance, изменяет значение свойства и затем сбрасывает его
    ' к оригинальному значению.
    
    Dim MTextObj As AcadMText
    Dim width As Double
    Dim text As String
    Dim CurrentDistance As Double
    Dim corner(0 To 2) As Double
    corner(0) = 0
    corner(1) = 10
    corner(2) = 0
    width = 10
    text = "Это - текст для объекта MText"
    'Создает Объект MText
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    ZoomAll
    
    'Найдите текущий LineSpacingDistance
    CurrentDistance = MTextObj.LineSpacingDistance
    MsgBox "LineSpacingDistance для объекта MText: " & CurrentDistance
    
    'Измените LineSpacingDistance
    MTextObj.LineSpacingDistance = 0.7
    MsgBox "LineSpacingDistance для объекта MText: " & MTextObj.LineSpacingDistance
    
    'Сбросьте LineSpacingDistance
    MTextObj.LineSpacingDistance = CurrentDistance
    MsgBox "LineSpacingDistance для объекта MText: " & MTextObj.LineSpacingDistance
End Sub