поменять стиль текста на стандартный

[Alexey_Ovtses]

меняю текст на чертеже, присваиваю стиль текста системный (текст на чертеже), после обработки в свойтсвах текста стиль отображается (*текст на чертеже) см свойcтва.png но параметры не изменены на системные, а в параметрах редактирования текста остается старый стиль см параметры.png

стиль текст на чертеже в параметрах системы задан по умолчанию (шрифт GOST type A курсив цвет черный)

что я делаю не так?

            'цикл по текстам на чертеже
            For i = 0 To kdfrw7dc.DrawingTexts.Count - 1
                'находим текст
                kdfrw7dt = kdfrw7dc.DrawingTexts.DrawingText(i)
                kdfrw7t = kdfrw7dt
                kdfrw7tf = kdfrw7t.TextLine(0).TextItem(0)
                'присваиваем стиль текста на чертеже
                kdfrw7t.Style = Kompas6Constants.ksTextStyleEnum.ksTSDrawingAnnotation
                kdfrw7t.TextLine(0).Style = Kompas6Constants.ksTextStyleEnum.ksTSDrawingAnnotation
                kdfrw7dt.Update()
                'присваиваем шрифт и курсив
                'kdfrw7tf.FontName = "GOST type A"
                'kdfrw7tf.Italic = True
                'если высота 125мм - 6мм
                If kdfrw7tf.Height = 125 Then
                    kdfrw7tf.Bold = True
                    kdfrw7tf.Height = 6
                End If
                'если высота 87.5мм - 3.5мм
                If kdfrw7tf.Height = 87.5 Then
                    kdfrw7tf.Height = 3.5
                End If
                'если высота 62.5мм - 2.5мм
                If kdfrw7tf.Height = 62.5 Then
                    kdfrw7tf.Height = 2.5
                End If
                'обновляем текст
                kdfrw7t.TextLine(0).TextItem(0).Update()
                kdfrw7dt.Update()
            Next