[CDR 2017-2021] CdrPreflight теперь бесплатный и с открытым кодом

[Sanchos]

Страница макроса: Макрос CdrPreflight
Исходный код: cdrpro-macros/cdr-preflight

Примечания:

1. На странице хоть и написано что Х7-2018, но по факту я его ни где особо не тестировал.
2. Исходный код очень старый, со всеми вытекающими...
3. Если вы что-то исправите или улучшите, можете заслать pull request

 

[qsedftghk]

Я пробовал на 2018 - работает Сенькю вери мач.

 

[SSInf]

Я даже не знаю что сказать. По щедрости вы чехов из cd projekt догнали наверное.
Большое спасибо.
А с чем связано это действие если не секрет ?

 

[qsedftghk]

Санчос постарел, стал мудр и далёк от мирской суеты. И бороду отрастил =))))

 

[SSInf]

Corel 17.6
При попытке сохранить пресет вылетает ошибка.

Private Sub cb_presList_Change()
  If myResumeErr Then On Error Resume Next
  If cb_presList.SelLength = 0 Then Exit Sub

  Dim a$()
  a = Split(cb_presList.SelText, "|")
  a = Split(GetSetting(macroName, sREGAPPOPT, "Presets" & a(0)), "|")

  Dim i&, p$()
  For i = 1 To UBound(a) - 1
    p = Split(a(i), "-")
    List2.selected(CLng(Idx.Item("i" & i))) = p(0)
  Next i
End Sub

Ругается на несоответствие типа в строке "List2.selected(CLng(Idx.Item("i" & i))) = p(0)"

оффтоп
Прошу прощения что назвал поляков чехами.

 

[eugeny]

Ну он в 16 версии работает. Я как понимаю, из-за нюансов добавления в меню, Х6 нет списке?

 

[eugeny]

Ругается на несоответствие типа в строке "List2.selected(CLng(Idx.Item("i" & i))) = p(0)"

оффтоп
Прошу прощения что назвал поляков чехами.

По быстрому можно решить так:
Замените строчку:

         List2.selected(CLng(Idx.Item("i" & i))) = p(0)

на следующее условие:

 If Idx.Item("i" & i) <> "===" Then
        List2.selected(CLng(Idx.Item("i" & i))) = p(0)
    End If

 

[Fodin]

ТС молодец. Очень хороший уровень знания VBA и Corel-овского нутра показал своим макросом. За выход в оупенсорс отдельное спасибо.

 

[NemoSUN]

Ну он в 16 версии работает. Я как понимаю, из-за нюансов добавления в меню, Х6 нет списке?

Разве? У меня 16. Пробовал ставить несколько раз. Нигде так и не появился.

 

[eugeny]

Разве? У меня 16. Пробовал ставить несколько раз. Нигде так и не появился.

У меня лежит здесь: C:\Program Files\Corel\CorelDRAW Graphics Suite X6\Programs64\Addons\CdrPreflight\
на скриншотах присутствует его наличие.
Если он у вас установился в другое место, то скопируйте в эту папку.

 

[NemoSUN]

У меня лежит здесь: C:\Program Files\Corel\CorelDRAW Graphics Suite X6\Programs64\Addons\CdrPreflight\
на скриншотах присутствует его наличие.
Если он у вас установился в другое место, то скопируйте в эту папку.

Неа. Не находится такая папка. Может копию своей скините.
P.S. А зачем второй скрин ? Там нигде CdrPreflight не видно.

 

[dastin]

Неа. Не находится такая папка.

Люди ... не грейте друг другу голову

где вы видите Х6?
Видимо, у @lipatkin инсталлятор более ранний

добавлено
сам он в Х6 каталог никак не заскочит ...
наверное надо как минимум Х7 иметь при инсталляции и оттуда уже копировать

 

[eugeny]

Неа. Не находится такая папка. Может копию своей скините.
P.S. А зачем второй скрин ? Там нигде CdrPreflight не видно.

Всё — я вспомнил. Я его переделал под 16-ю версию. Создал новый докер, и перегнал туда весь код. Протестировал, и немного подкорректировал, а то он не сохранял предустановки.
Вот ссылка: CdrPreflight для Corel 16

 

[eugeny]

сам он в Х6 каталог никак не заскочит ...
наверное надо как минимум Х7 иметь при инсталляции и оттуда уже копировать

Не обязательно.
В начале поста есть ссылка на исходник ни гитхабе. Я оттуда и брал.

 

[dastin]

Я оттуда и брал.

все оттуда брали - но поддержка Х6 там не заявлена ...

Я его переделал под 16-ю версию

... так это же совсем другое дело

 

[NemoSUN]

В начале поста есть ссылка на исходник ни гитхабе. Я оттуда и брал.

Не нашёл ссылку. Я сделал так - поставил CdrPreflight_6.2_X4-X6.exe. А на него накатил CdrPreflight16. Версию показывает 6.3.1 (16.09.2017)
Так работать будет ?

 

[NemoSUN]

Не нашёл ссылку.

Вот я балбес - да, ссылку увидел конечно ) Жаль, она без инсталлятора.

 

[NemoSUN]

Всё — я вспомнил. Я его переделал под 16-ю версию. Создал новый докер, и перегнал туда весь код. Протестировал, и немного подкорректировал, а то он не сохранял предустановки.
Вот ссылка: CdrPreflight для Corel 16

При выделении опции "Transparency effect" появляется окно с ошибкой 438 (Object doesn't support this property or method)
В макросе подсвечивается строка If ffColor.Opacity < 255 Then

 

[_MBK_]

А что за ffColor и почему у него должно быть свойство Opacity?

 

[iam.for]

Как установить CdrPreflight на корел 2021 (ака v23.5) пока нет официального инсталятора:

- Распаковать CdrPreflight Installer X7-2020.exe любым архиватором

- Содержимое папки $1 скопировать сюда:
C:\Program Files\Corel\CorelDRAW Graphics Suite 2021\Programs64\Addons\
*права админа потребуются

- запустить CorelDraw, через tools/scripts/run script выбрать в выпадающем списке CdrPreflight.gms и запустить cp_Info.ShowCdrPreflightDocker --- появится докер CdrPreflight

- энжойте с удовольствием