• areh
  • Восстановленный участник
  • На форуме с 2 марта 2007г.
  • Сообщений: 1
  • Спасибо: 0

Тема: При вставке блока меняется шрифт и цвет. Как исправить?

Стояла задача, написать макрос, который позволит приводить чертежи нарисованные разными людьми в разное время к одному виду.
основная идея - заменить блоки обозначающие одно и то же на одинаковые.
получился макрос, который позволяет указать, то какой блок и на что заменять, а так же указать "соответствие" атрибутов (т.е. что куда копировать).
но возникла проблемма: при вставке нового блока он меняет цвет на установленный текущий - и этот цвет уже никак нельзя изменить (изначально атрибуты были разных цветов, и располагались в разных слоях)
так же, иногда, переопределяется стиль шрифта у атрибутов. в связи с чем происходит это, я так и не понял.
подскажите, как можно избежать этих проблем? желательно чтобы решение было "програмным", а не ручным (т.е чтобы решал эту проблемму код)

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: При вставке блока меняется шрифт и цвет. Как исправить?

Можно как-то так:

    Dim blk As AcadBlockReference
    Dim atr As AcadAttributeReference
    Dim varAttributes As Variant
    Dim i As Variant
    varAttributes = blk.GetAttributes
    For i = LBound(varAttributes) To UBound(varAttributes)
        Set atr = varAttributes(i)
        atr.Color = acCyan
        atr.StyleName = "STANDARD"
        '- - - - - - - - - - - - -
    Next i