[CDR 2017-2021] Цвета по умолчанию

[DukereD]

Подскажите где хранятся цвета по умолчанию для вновь создаваемых фигур
А то я чтобы взять эти цвета рисую стандартный прямоугольник беру его цвета (абрис и заливку) и потом его удаляю )
может есть более правильный способ?

        Set s = ActiveLayer.CreateRectangle(sx, ey, ex, sy)
        If s.Fill.Type = cdrNoFill Then srr = "@fill.type='none'" Else srr = "@fill.color='" & s.Fill.UniformColor.ToString() & "'"
        s.Delete

 

[dastin]

где хранятся цвета по умолчанию для вновь создаваемых фигур

в Object Style вестимо

 

[DukereD]

в Object Style вестимо
Посмотреть вложение 154381

ну ручками это понятно. а в коде? меня VBA интересует.

 

[dastin]

а в коде?

вопрос был - где хранятся цвета по умолчанию для вновь создаваемых фигур
при чём тут код?

 

[_MBK_]

вопрос был - где хранятся цвета по умолчанию для вновь создаваемых фигур
при чём тут код?

При том что раздел называется Автоматизация