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

Sanchos

Sancho
Топикстартер
12 лет на форуме
Сообщения
806
Реакции
156
Страница макроса: Макрос CdrPreflight
Исходный код: cdrpro-macros/cdr-preflight

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

qsedftghk

фея
12 лет на форуме
Сообщения
1 787
Реакции
946
Я пробовал на 2018 - работает ;) Сенькю вери мач.
 

SSInf

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

qsedftghk

фея
12 лет на форуме
Сообщения
1 787
Реакции
946
Санчос постарел, стал мудр и далёк от мирской суеты. И бороду отрастил =))))
 

SSInf

Участник
Сообщения
40
Реакции
11
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)"

оффтоп
Прошу прощения что назвал поляков чехами.
 
  • Спасибо
Реакции: Dmitrij M

eugeny

12 лет на форуме
Сообщения
483
Реакции
96
Ну он в 16 версии работает. Я как понимаю, из-за нюансов добавления в меню, Х6 нет списке?
 

eugeny

12 лет на форуме
Сообщения
483
Реакции
96
Ругается на несоответствие типа в строке "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

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

eugeny

12 лет на форуме
Сообщения
483
Реакции
96
Разве? У меня 16. Пробовал ставить несколько раз. Нигде так и не появился.
У меня лежит здесь: C:\Program Files\Corel\CorelDRAW Graphics Suite X6\Programs64\Addons\CdrPreflight\
на скриншотах присутствует его наличие.
Если он у вас установился в другое место, то скопируйте в эту папку.
 

Вложения

  • Screenshot_9.jpg
    Screenshot_9.jpg
    207.7 КБ · Просм.: 513
  • Screenshot_10.jpg
    Screenshot_10.jpg
    162.7 КБ · Просм.: 508

NemoSUN

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

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

dastin

Некромант-любитель
12 лет на форуме
Сообщения
1 473
Реакции
1 294
Неа. Не находится такая папка.
Люди ... не грейте друг другу голову
121053

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

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

eugeny

12 лет на форуме
Сообщения
483
Реакции
96
Неа. Не находится такая папка. Может копию своей скините.
P.S. А зачем второй скрин ? Там нигде CdrPreflight не видно.
Всё — я вспомнил. Я его переделал под 16-ю версию. Создал новый докер, и перегнал туда весь код. Протестировал, и немного подкорректировал, а то он не сохранял предустановки.
Вот ссылка: CdrPreflight для Corel 16
 
  • Спасибо
Реакции: akropin и dastin

eugeny

12 лет на форуме
Сообщения
483
Реакции
96
сам он в Х6 каталог никак не заскочит ...
наверное надо как минимум Х7 иметь при инсталляции и оттуда уже копировать
Не обязательно.
В начале поста есть ссылка на исходник ни гитхабе. Я оттуда и брал.
 

dastin

Некромант-любитель
12 лет на форуме
Сообщения
1 473
Реакции
1 294

NemoSUN

12 лет на форуме
Сообщения
196
Реакции
0
В начале поста есть ссылка на исходник ни гитхабе. Я оттуда и брал.
Не нашёл ссылку. Я сделал так - поставил CdrPreflight_6.2_X4-X6.exe. А на него накатил CdrPreflight16. Версию показывает 6.3.1 (16.09.2017)
Так работать будет ?
 

NemoSUN

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

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

_MBK_

Пикирующий бомбардировщик
12 лет на форуме
Сообщения
30 608
Реакции
10 081
А что за ffColor и почему у него должно быть свойство Opacity?