Sub Example_LastHeight()
    'Этот пример находит текущее значение для LastHeight.
    'Затем изменяет это значение и сбрасывает снова.

    Dim txtStyleObj As AcadTextStyle
    Set txtStyleObj = ThisDrawing.ActiveTextStyle
    
    Dim currHeight As Double
    Dim newHeight As Double
    
    'Получите текущее свойство LastHeight
    currHeight = txtStyleObj.lastHeight
    MsgBox "Текущее значение для LastHeight " & txtStyleObj.lastHeight, , "LastHeight Пример"
    
    'Установите LastHeight к новому значению
    txtStyleObj.lastHeight = 4#
    
    'Получите текущее значение LastHeight
    newHeight = txtStyleObj.lastHeight
    MsgBox "Новое значение для LastHeight " & txtStyleObj.lastHeight, , "LastHeight Пример"
    
    'Наконец сбросьте LastHeight к его значению по умолчанию
    txtStyleObj.lastHeight = currHeight
    MsgBox "Значение для LastHeight было сброшено к " & txtStyleObj.lastHeight, , "LastHeight Пример"
    
End Sub