[CDR 2017-2021] Мусорные цвета в палитре

[iKoolk]

Бодрый день, господа и дамы!
Допиливаю скрипт по сборке монтажей для флексы. Существует проблема. Как вы понимаете нужны метки совмещения по количеству используемых цветов. Сейчас это реализовано лобовой атакой: Set pal = Palettes.CreateFromSelection(MyPal, "", True). Все бы хорошо, но в наличии беда: объекты с нулевой обводкой помнят цвет своей предыдущей обводки и пропихивают этот цвет в создаваемую палитру. Я прекрасно понимаю, что можно написать функцию по перебору всех объектов поштучно с выборкой цветов из заливок и ненулевых обводок, но, честно говоря и не хочется и зачем когда есть встроенная функция корела. Отсюда вопрос. Может быть где-то на уровне настроек Корела или VBA есть возможность заставить корел считать нулевые обводки бесцветными или хотя бы белыми?
Спасибо

 

[_MBK_]

Выбрать все объекты с нулевой обводкой и задать им бесцветную обводку?

 

[iKoolk]

Выбрать все объекты с нулевой обводкой и задать им бесцветную обводку?

Да, сейчас так и делаю, доппроцедура, но объекты и в группах, и в подгруппах и внутри поверклипа, бывает поверклип даже третьего уровня, и все это надо перебирать. Или не надо?

 

[_MBK_]

Ну вы же программно это делаете все равно, в чем проблема?

 

[iKoolk]

Ну вы же программно это делаете все равно, в чем проблема?

проблема во времени. сколько это занимает. Есть макеты простые, а есть с сотнями элементов и пробежаться по ним это до минуты каждый, а когда их полдюжины на монтаже, а монтажей 2-3 десятка... Понятно, что с каждым макетом это нужно проделать только один раз, но это значит нужно предусмотреть метку, что макет обработан, а если в нем вносили правку и дизайнер по запаре не сделал новый элемент "правильным"... То есть недостатков у метода полно. Нужно посмотреть в cdrPreflight возможность поиска элементов и нулевой обводкой.

 

[_MBK_]

пробежаться по ним

Зачем же бегать например самим? Через FindShapes запрос нельзя такой выстроить разве?

 

[iKoolk]

Зачем же бегать например самим? Через FindShapes запрос нельзя такой выстроить разве?

воот, спасибо. такой примерно совет и ждал. посмотрю

 

[iKoolk]

Зачем же бегать например самим? Через FindShapes запрос нельзя такой выстроить разве?

увы, не получается такой запрос выставить )):

 

[iKoolk]

Зачем же бегать например самим? Через FindShapes запрос нельзя такой выстроить разве?

спасибо, все получилось, щас еще рекурсию обустрою для поверклипов и вообще забалдею (