Sub Example_LineSpacingFactor()
    ' Этот пример создает объект MText в пространстве модели и затем
    ' находит LineSpacingFactor для объекта.
    
    Dim MTextObj As AcadMText
    Dim corner(0 To 2) As Double
    Dim width As Double
    Dim text As String
    corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
    width = 10
    text = "Это - текст String для Объекта MText"

    'Создает Объект MText
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    ZoomAll
    
    'Найдите текущий LineSpacingFactor
    Dim currFactor As Double
    currFactor = MTextObj.LineSpacingFactor
    MsgBox "LineSpacingFactor для объекта MText: " & currFactor
    
    'Измените LineSpacingFactor
    MTextObj.LineSpacingFactor = 4
    MsgBox "LineSpacingFactor для объекта MText: " & MTextObj.LineSpacingFactor
    
    'Сбросьте LineSpacingFactor
    MTextObj.LineSpacingFactor = currFactor
    MsgBox "LineSpacingFactor для объекта MText: " & MTextObj.LineSpacingFactor
    
End Sub