Коллеги, а есть ли макрос, позволяющий найти все оверпринты в макете и выключить их? Потому что стандартные средства корела позволяют регулировать оверпринт только у обводок.

http://recentfiles.netfir...
wx_Tools :: wx.OverprintsRemove

Спасибо! Чудесная вещь.

Киссесы и респекты!

Цитата:

Не работает с Lock Object

ну наверное на то объект и залочен шо корел не дает ему свойства менять

Оверпринты снять со всех объектов это неплохо , а вот как снять только с белых (CMYK & Pantone )????

ну поиск встроенный (Edit->Find) использовать

Как вариант: Проверяешь (не ручками, а с помощью VBA) все объекты на слое/странице/документе на наличие белого цвета - если белый, проверяешь, стоит ли овер. Если стоит - снимаешь его. Для Pattern и пр. заливок тоже не забудь про белый и тоже сними овер. И про проверку в PowerClip не забудь.
В _самом простейшем_ случае для CMYK обводок будет как-то так:

Dim s as Shape

For Each s In ActiveLayer.FindShapes(, cdrOutline)
With s.Outline.Color
If .Type = cdrColorCMYK Then
If s.OverprintOutline = True Then
If .CMYKCyan = 0 And .CMYKMagenta = 0 And .CMYKYellow = 0 And .CMYKBlack = 0 Then
s.OverprintOutline = False
End If
End If
End If
End With
Next

Остальное поймёшь сам, прочитав в хелпе по VBA CorelDraw

Цитата:

Этот код я уже где-то видел
Так не пойдет! Пантоны с нулевым процентом пропускает же!!!
Если макет цмиковый то тогда все-то хорошо, но стоит только появиться в макете объекту другой цветовой модели, (RGB, Pantone, Gray....)то все пипецц вывалиться с ошибкой

Не знаю, где ты видел этот код - он элементарный, накатывается за пару минут, там всё понятно.
Если нужно обработать не CMYK - сначала конверти их в CMYK (хелп VBA в помощь, строка кода) или, если не нужно (оооооооо.....) этого делать, тогда делай по аналогии с тем примером, что я дал :-)))
Что же касается пантонов, то ты читал хелп к VBA? Там всё расписано.
Ты сначала определись, что тебе нужно делать - и делай последовательно. К примеру, для нашего RIP'а у меня такая последовательность операций:
http://fandom.ru/about_fa...
Для "белого", как ты называешь, пантона, проверяешь Tint - если равен 0, значит снимаешь овер. И всё :-)))
Не знаю, что у тебя за пантон - на всякий случай накидал побольше:

For Each s In ActiveLayer.FindShapes(, cdrOutline)
If s.Outline.Color.Type = cdrColorPantone Or s.Outline.Color.Type = cdrColorSpot Or s.Outline.Color.Type = cdrDIC Or s.Outline.Color.Type = cdrFOCOLTONE Or s.Outline.Color.Type = cdrHKS Or s.Outline.Color.Type = cdrLab Or s.Outline.Color.Type = cdrPANTONECoated Or s.Outline.Color.Type = cdrPANTONECorel8 Or s.Outline.Color.Type = cdrPANTONEHexCoated Or s.Outline.Color.Type = cdrPANTONEHexUncoated Or s.Outline.Color.Type = cdrPANTONEMatte Or s.Outline.Color.Type = cdrPANTONEMetallic Or s.Outline.Color.Type = cdrPANTONEPastelCoated Or s.Outline.Color.Type = cdrPANTONEPastelUncoated Or s.Outline.Color.Type = cdrPANTONEProcess Or s.Outline.Color.Type = cdrPANTONEUncoated Or s.Outline.Color.Type = cdrSpectraMaster Or s.Outline.Color.Type = cdrTOYO Or s.Outline.Color.Type = cdrTRUMATCH Or s.Outline.Color.Type = 14 Then
If s.Outline.Color.Tint = 0 Then
If s.OverprintOutline = True Then
s.OverprintOutline = False
End If
End If
End If
Next

P.S. Читай хелп по VBA (там много всего умного-полезного написано), разбирайся с кодом сам. Иначе никогда не разберёшься.

эй, как насчет такого стиля:

For Each s In ActiveLayer.FindShapes(, cdrOutline)
   select case s.Outline.Color.Type
      case cdrColorPantone, cdrColorSpot, cdrDIC, cdrFOCOLTONE, _
           cdrHKS, cdrLab, cdrPANTONECoated, cdrPANTONECorel8, _
           cdrPANTONEHexCoated, cdrPANTONEHexUncoated, _
           cdrPANTONEMatte, cdrPANTONEMetallic, _
           cdrPANTONEPastelCoated, cdrPANTONEPastelUncoated, _
           cdrPANTONEProcess, cdrPANTONEUncoated, _
           cdrSpectraMaster, cdrTOYO, cdrTRUMATCH, 14

           If s.Outline.Color.Tint = 0 Then _
              If s.OverprintOutline = True Then _
                 s.OverprintOutline = False
   end select
Next