[CDR 2017-2021] ... и ниже до Х5 - Макрос Convert to Curve

[dastin]

Ориентируясь на

Макрос не является коммерческим продуктом и распространяется бесплатно по схеме "как есть". Автор не гарантирует обязательную корректность работы макроса у разных пользователей и обязательное устранение ошибок и недочетов, а также не несет никакой ответственности за любой ущерб и какие-либо потери, связанные с использованием макроса. Нажав на ссылку скачать, Вы соглашаетесь с условиями распространения. Макрос имеет открытый код, Вы можете изменять его по своему усмотрению на свой риск и страх

выскажу замечания и предложения ...

1. Реализовать совместимость от Х5 до 2017 х32/х64
2. Исправить ошибку конвертирования цвета в градиентных заливках, приводящую к остановке макроса на ровном месте в функции DoStart
3. Исправить грамматическую ошибку на третьей закладке
4. Исправить небольшой баг в юзерформ - уползание строки
«Сепаратить "Simbol" объекты"» из-за системной настройки масштабирования шрифтов


результат выложить - тут, ну а если автор? -
так и не сообразил - кто же автор - Ivan Hoha, Дмитрий Демидов или @Asmussen
пожелает - может и на сайте обновит до версии скажем 4.15

 

[_MBK_]

Ну, судя по вышеизложенному, это продукт коллективного творчества, как, например, colorreplace, можешь смело править и вписывать свое имя в конце данного списка. Другое дело, это кому-то надо вообще?

 

[izrukvruki]

мне кажется макрос и сайт заброшены ибо

обновлено 25 дек. 2012 г

 

[dastin]

ибо ... макрос свои задачи выполняет?
... за исключением вышеупомянутых накладок ...
... неаккуратненько как-то, доктор

 

[dastin]

Макрос версии 414а
Адаптация макроса для работы в версиях CorelDRAW Х5...2017 х32/х64,
исправление ошибок конвертации градиентных заливок и небольшие правки юзерформ

описание и возможности - тут

 

[lev]

Поиск зависит от удержания Ctrl, Alt и Shift, о чём не упоминается в описании. Может лучше чекбоксы в интерфейс?
При поиске при обработке каждого объекта считываются из реестра кучка установок, некоторые не по одному разу. Очень забавно на тесте с 10 000 объектов.

 

[dastin]

@lev, в реестр я не заглядывал ... только поправил кучу АПИ связанных с ним ... а

Поиск зависит от удержания Ctrl, Alt и Shift

это в какой юзерформе?

 

[dastin]

Т.к. на страничке загрузки представлена антология под разные версии - просмотрел их все. Функции CtrlKey, ShiftKey, AltKey присутствуют во всех версиях макроса, но во 2 и 3-ей они никуда не ведут. Развитие начинается в версии 4.

If ShiftKey Then GbDisExp = True
If AltKey Then GbEnbCropped = True
If CtrlKey Then GbRot90 = True

нажатие Ctrl имитирует временное взведение галки в настройках
- Поворот только на 90 или 270 градусов -
если она по факту не взведена
ноги растут отсюда

п.8) Поиск повернутых растровых объектов.
Было замечено, что повернутые изображения в Corel, если соотношение их сторон превосходит 2:1, некорректно переводятся Корелом в битмап и так же могут некорректно выводится в поскрипт (версии X3-X5 свободны от этого глюка). Поэтому не стоит поворачивать такие изображения. Так же важно просмотреть все битмапы повернутые на 90° и 270°, после импорта EPS в Corel. Иногда они почему-то приходят зеркально отображенными по горизонтали

                        If GetSet("AfterAI") = True Or GbRot90 Then
                            If (S.RotationAngle = 90 Or S.RotationAngle = 270) Then Tr.Btm_ROT.Add S
                        Else

нажатие Alt имитирует временное взведение галки в настройках
- Поиск откропленных битмапов -
если она по факту не взведена
ноги отсюда

п.9) Поиск обрезанных (в Кореле, либо масками Иллюстратора и тд) растровых объектов.
В Corel Draw 12 (остальные версии свободны от этого глюка) такие изображения иногда выводятся совершенно страшным образом, категорически не рекомендуется оставлять их в таком виде.

                        If GbEnbCropped Or GetSet("CropBitmap") = True Then Tr.Btm_CROP.Add S

с нажатием Shift немного иначе:
- в макросе есть возможность внести некие выбранные цвета в список исключений и пропускать их в процессе поиска, не конвертируя их в CMYK
Если такой список вы создали - макрос запомнит его в реестре.
Нажатие Shift приведет к игнорированию этого списка

                                If Not GbDisExp And ColorSkip.Count <> 0 Then
                                    For F = 1 To ColorSkip.Count
                                        If Is_SameBlin(Col1, ColorSkip(F)) Then GoTo NoAddObj

Вот и не знаю - надо ли какие-то галки в юзерформ рисовать для этих нажатий - может описания будет достаточно?