Конвертация цвета в RGB

[GoodvinVV]

... возможно ли такое..

Как CMYKColor Convert To RGB?
Как SpotColor Convert To RGB? (или RGB Hex)

Dim newColorBootom As RGBColor
Dim newSpotColor As SpotColor

Set newColorBootom= конверт.newSpotColor
ColorSempl.BackColor = RGB(newColorBootom.RGBRed, newColorBootom.RGBGreen, newColorBootom.RGBBlue)

 

[GoodvinVV]

Ответ: Конвертация цвета в RGB

подойдет даже примерное представление пантона в RGB (Мне кнопку покрасить)
например для CMYK я поступил так:

'procedure CMYK TO RGB
Dim C As Byte
Dim M As Byte
Dim Y As Byte
Dim K As Byte
    C = newCMYKColor.Cyan
    M = newCMYKColor.Magenta
    Y = newCMYKColor.Yellow
    K = newCMYKColor.Black
Dim R As Byte
Dim G As Byte
Dim B As Byte

 If C + K < 255 Then
   R = 255 - (C + K)
   Else
   R = 0
 End If
 If M + K < 255 Then
   G = 255 - (M + K)
   Else
   G = 0
 End If
 If Y + K < 255 Then
   B = 255 - (Y + K)
   Else
   B = 0
End If
 
 ColorSempl.BackColor = RGB(R, G, B)

а вот как быть с пантоном даже и не знаю..

 

[GoodvinVV]

Ответ: Конвертация цвета в RGB

Можно попробовать создать новую группу в наборах из спотов документа, сделать их cmyk и далее известным алгоритмом.
Или таблицу соответсвий http://chereda.com.ua/index.php?option=com_content&view=article&id=8&Itemid=15 в проект и в ней шарить по названию спота
Как проще пока не решил...
Высказывайте свои мнения Граждане...
предлагайте варианты свои...

 

[GoodvinVV]

Ответ: Конвертация цвета в RGB

Может есть способ в иллюстраторе SpotColor Convert To RGB на VB?
...??

 

[ch_alex]

Ответ: Конвертация цвета в RGB

Имеются таблицы PANTONE, в которых каждому названию краски соответствует RGB-альтернатива вместо CMYK. Я имею в виду официальную таблицу от PANTONE.

 

[1998]

Ответ: Конвертация цвета в RGB

Если в illustrator scripting reference нет ничего похожего на convertcolor, то какие могут быть "мнения"? Разумеется, включать в проект таблицу "Имя" - RGB. Алгоритм в сообщ.2 крайне примитивен и не годится. Нормальные люди за 5 сек. нагуглят что-либо а-ля по ссылке из сообщ.3 и успокоятся. Ненормальные скачают последний Lab с оффсайта и сами, "как надо", конвертируют в sRGB.

 

[GoodvinVV]

Ответ: Конвертация цвета в RGB

..нормальные люди так и сделали ..!

 

[GoodvinVV]

Ответ: Конвертация цвета в RGB

тема закрыта

 

[ch_alex]

Ответ: Конвертация цвета в RGB

Пока подождём закрыать - это не поиск нужных функций на интерфейсе программы. У участников могут появиться новые идеи.

 

[DimB]

Ответ: Конвертация цвета в RGB

copy/paste в новый rgb-документ, с удалением swatch'a в случае spot-color.

P.S. может удалять и необязательно, если свойства swatch'a содержат поля с описанием ближайшего rgb-эквивалента.

 

[DimB]

Ответ: Конвертация цвета в RGB

Сразу после удаления swatch'a можно считывать rgb-значения. Очевидно, что следует обратить внимание на установки Color Settings.

 

[DimB]

Ответ: Конвертация цвета в RGB

Set appRef = CreateObject("Illustrator.Application")
Set spot_rgb = CreateObject("Illustrator.RGBColor")
'копируем объект окрашенный spot'ом (наверно можно просто копировать сам spot, лень копать)
'создаем новый rgb-документ
'удаляем все spot или определяем число spot'ов в документе (N)
'вставляем, соотв. номер нашего spot'а N+1

'если все удалили
Set mySpot = appRef.ActiveDocument.Spots(1)
'или если добавился к остальным
'Set mySpot = appRef.ActiveDocument.Spots(N+1)
spot_rgb.Red = mySpot.Color.Red
spot_rgb.Green = mySpot.Color.Green
spot_rgb.Blue = mySpot.Color.Blue
MsgBox spot_rgb.Red & Chr(10) & Chr(13) & _
       spot_rgb.Green & Chr(10) & Chr(13) & _
       spot_rgb.Blue

В общем, если документ в rgb-режиме, то rgb-эквиваленты spot'ов уже содержатся в их свойствах
Если в cmyk-режиме, то соотв.

Set mySpot = appRef.ActiveDocument.Spots(1)
'или Set documentSpot = appRef.ActiveDocument.Spots(N+1)
Set spot_cmyk = CreateObject("Illustrator.CMYKColor")
Set mySpot = appRef.ActiveDocument.Spots(1)
spot_cmyk.Cyan = mySpot.Color.Cyan
spot_cmyk.Magenta = mySpot.Color.Magenta
spot_cmyk.Yellow = mySpot.Color.Yellow
spot_cmyk.Black = mySpot.Color.Black

 

[1998]

Ответ: Конвертация цвета в RGB

'копируем объект окрашенный spot'ом

А он есть? Выше:

Dim newSpotColor As SpotColor

 

[DimB]

Ответ: Конвертация цвета в RGB

А он есть?

Сие уже проблема пользователя. В тестовой ситуации — создается им самим. В Excel этот код спокойно сработает, сконвертировать под VB6 не проблема.
А касательно Dim — сам работаю только с включенной "Option Explicit", что могу и остальным порекомендовать.