V-Форум / Corel VBA / Тема: Макрос для установки/отмены оверпринта

Макрос для установки/отмены оверпринта

 12/09/2007 18:26:59 #Link

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

Re: Макрос для установки/отмены оверпринта

 12/09/2007 19:27:14 #Link

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

Re: Макрос для установки/отмены оверпринта

 12/09/2007 21:21:17 #Link

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

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

Re: Макрос для установки/отмены оверпринта

 16/01/2008 6:12:59 #Link

Цитата:

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

Re: Макрос для установки/отмены оверпринта

 11/02/2008 20:39:08 #Link

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

Re: Макрос для установки/отмены оверпринта

 21/02/2008 10:55:07 #Link

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

Re: Макрос для установки/отмены оверпринта

 21/02/2008 19:26:36 #Link

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

Re: Макрос для установки/отмены оверпринта

 22/02/2008 8:02:59 #Link

Как вариант: Проверяешь (не ручками, а с помощью 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

Re: Макрос для установки/отмены оверпринта

 22/02/2008 8:37:52 #Link

Цитата:

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

Re: Макрос для установки/отмены оверпринта

 22/02/2008 9:32:28 #Link

Не знаю, где ты видел этот код - он элементарный, накатывается за пару минут, там всё понятно.
Если нужно обработать не 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 (там много всего умного-полезного написано), разбирайся с кодом сам. Иначе никогда не разберёшься.

(1) 2 »