[CDR 2017-2021] Штрихкоды CorelDRAW 2020

[MrDesigner]

Дааа, Корел опять отличился.

Криво кривит шрифт. В старых версиях - всё ок.

 

[~RA~]

Криво кривит шрифт.

Кривит ровно, а вот скейлит символы непропорционально по вертикали и горизонтали. Корел...

 

[Gad]

Не по теме:
Учитывая что

их нужно много делать

я бы не делал это в CDR вообще, поискал бы другое решение

 

[_MBK_]

В старых версиях - всё ок.

Не по теме:
Вот потому я и никогда не тороплюсь переходить на новомодные версии

 

[MrDesigner]

Не по теме:

Вот потому я и никогда не тороплюсь переходить на новомодные версии

!!!!!!!!! КЛИЕНТЫ НЕСУТ!!!! )))

 

[_MBK_]

КЛИЕНТЫ НЕСУТ!!

Не по теме:
Даже до самого тупого клиента максимум с пятого раза доходит, где в диалоге сохранения находится листбокс номера версии

 

[OLGA*]

Вас не смущает, что объект там в RGB будет?

В настройках при экспорте ставлю оттенки серого. RGB типография не примет

 

[OLGA*]

Не по теме:

! КЛИЕНТЫ НЕСУТ!! )))

Есть такое

Походу, проблема тут:

Посмотреть вложение 133922

Вот что с этой проблемой делать?))

 

[MrDesigner]

Вот что с этой проблемой делать?))

По поводу шрифта: тут и тут. Если градация серого в штрихкоде устраивает, то ничего больше делать не надо.

 

[dastin]

Вот что с этой проблемой делать?))

Попробуйте повесить на кнопочку один из двух макросов
1
второй в коде - отсюда

Спойлер: 2

Sub BarcodeToCurves()
    Dim OrigSelection As ShapeRange, bc As ShapeRange, sx#, sy#, s1 As Shape
    ActiveDocument.BeginCommandGroup ("BARCODE")
    On Error GoTo ErrHandler
    Optimization = True
    Set bc = ActivePage.FindShapes(, cdrOLEObjectShape)
    For Each s1 In bc
    If InStr(s1.OLE.FullName, "BARCODE") Then
      s1.GetPosition sx, sy
      s1.Cut
      ActiveLayer.PasteSpecial "Metafile"
      Set pastesel = ActiveSelectionRange
      pastesel.PositionX = sx
      pastesel.PositionY = sy
      pastesel.Ungroup
      For Each s In pastesel
      If s.ZOrder = pastesel.Count Then s.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 0): GoTo here
      s.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)
      If s.Type = cdrTextShape Then s.ConvertToCurves
here:
      Next s
      pastesel.CreateSelection
      pastesel.Group
      End If
      Next s1
      Optimization = False
      ActiveDocument.EndCommandGroup
ExitSub:
Optimization = False
ActiveWindow.Refresh
Exit Sub

ErrHandler:
 MsgBox "Error occured: " & Err.Description
 Resume ExitSub
End Sub

 

[OLGA*]

По поводу шрифта: тут и тут. Если градация серого в штрихкоде устраивает, то ничего больше делать не надо.

Не совем поняла, это ведь экспорт в PDF, а мне нужен EPS

 

[OLGA*]

Попробуйте повесить на кнопочку один из двух макросов
1
второй в коде - отсюда

Спойлер: 2

Sub BarcodeToCurves()
    Dim OrigSelection As ShapeRange, bc As ShapeRange, sx#, sy#, s1 As Shape
    ActiveDocument.BeginCommandGroup ("BARCODE")
    On Error GoTo ErrHandler
    Optimization = True
    Set bc = ActivePage.FindShapes(, cdrOLEObjectShape)
    For Each s1 In bc
    If InStr(s1.OLE.FullName, "BARCODE") Then
      s1.GetPosition sx, sy
      s1.Cut
      ActiveLayer.PasteSpecial "Metafile"
      Set pastesel = ActiveSelectionRange
      pastesel.PositionX = sx
      pastesel.PositionY = sy
      pastesel.Ungroup
      For Each s In pastesel
      If s.ZOrder = pastesel.Count Then s.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 0): GoTo here
      s.Fill.ApplyUniformFill CreateCMYKColor(0, 0, 0, 100)
      If s.Type = cdrTextShape Then s.ConvertToCurves
here:
      Next s
      pastesel.CreateSelection
      pastesel.Group
      End If
      Next s1
      Optimization = False
      ActiveDocument.EndCommandGroup
ExitSub:
Optimization = False
ActiveWindow.Refresh
Exit Sub

ErrHandler:
MsgBox "Error occured: " & Err.Description
Resume ExitSub
End Sub

Уууу, этот вопрос еще придется изучить, пока не умею вешать макросы))

 

[Gad]

это ведь экспорт в PDF, а мне нужен EPS

А чем PDF хуже?

 

[dastin]

пока не умею вешать макросы))

макрос делает это за одно нажатие
можно по- простому - сделали штрих код - вырезали его в буфер - далее Edit - Paste Special ... - рисунок Метафайл
потом обычным образом в eps
вот два результата обратного импорта eps - один из них вам знаком

 

[OLGA*]

макрос делает это за одно нажатие
можно по- простому - сделали штрих код - вырезали его в буфер - далее Edit - Paste Special ... - рисунок Метафайл
потом обычным образом в eps
вот два результата обратного импорта eps - один из них вам знаком
Посмотреть вложение 133960

А, т.е. всю эту процедуру запишет? Через Paste Special я пробовала, просто долго это всё, но если одной кнопкой, то норм)

 

[dastin]

но если одной кнопкой, то норм

первый на 2020 работает, проверил - но вставка возвращает баркод в RGB

 

[~RA~]

Ваш шашечки или ехать?
Вам шрихкоды нужны или непременно Корел заставить корректно их экспортировать?

 

[OLGA*]

Ваш шашечки или ехать?
Вам шрихкоды нужны или непременно Корел заставить корректно их экспортировать?

Другим способом не знаю как делать. К тому же я не фрилансер, и у меня определенные требования как и чем это делать. Хотелось бы корел заставить)

 

[~RA~]

требования как и чем это делать

Поделитесь. Безумно интересно.
Обычно требования к результату.

 

[dastin]

Второй макрос -вылетает - поправил малость - положил в ресурсы
распаковать и положить сюда
c:\Users\*****\AppData\Roaming\Corel\CorelDRAW Graphics Suite 2020\Draw\GMS\BARCODE_to_Curve.gms
Выделенный баркод копируется в буфер и возвращается как метафайл, текст окривляется, цвета конвертируются в CMYK
назначить кнопочку или шорткат