[olga87]

Здравствуйте Уважаемые специалисты AutoCAD!

Код ниже vba-excel позволяет обновить атрибуты блока.
Проблема в том, что если атрибут "многострочный атрибут", то свойства этого атрибута не сохраняются, т.е. сжатие 0.8 после обновления -1.
Подскажите пожалуйста, как исправить код, чтобы такие свойства Многострочных атрибутов сохранить при обновлении?

Код:

[Выделить все]

n_at = 0
varAttributes = blockObj.GetAttributes

For r_a_n = 8 To Col_N1
    For n_at = LBound(varAttributes) To UBound(varAttributes)
        If varAttributes(n_at).TagString = Cells(6, r_a_n).Value Then varAttributes(n_at).TextString = ActiveCell.Offset(0, r_a_n - 6).Value
    Next n_at
Next r_a_n

[Кулик Алексей aka kpblc]

Скорее всего, там принудительное форматирование. К изучению: https://www.cadforum.cz/en/text-form...bjects-tip8640 или https://adndevblog.typepad.com/autoc...mat-codes.html