[CDR 2017-2021] Название цвета (список цветов)

  • Автор темы Автор темы DukereD
  • Дата начала Дата начала

DukereD

макрософил
Топикстартер
Сообщения
496
Реакции
122
что-то мои поиски ни к чему не привели. Какие-то цвета пишутся норм, а какие-то из какой палитры не выбирай - всё одно "цвет без названия"
Подскажите где и как вытянуть макросом название из палитры?
1722472461716.png
 
что-то мои поиски ни к чему не привели. Какие-то цвета пишутся норм, а какие-то из какой палитры не выбирай - всё одно "цвет без названия"
Подскажите где и как вытянуть макросом название из палитры?
Посмотреть вложение 167245
Не все цвета в палитре имеют имя. Но можно вывести процентовку.
 
Не все цвета в палитре имеют имя. Но можно вывести процентовку.
так в том то и прикол, что выбираешь цвет с именем, а его потом не найти нигде в свойствах объекта.
 
А как вы пытаетесь вытянуть, немного непонятно.
У любого цвета есть поля, которых обычно достаточно для получения информации из цвета/палитры:
Код:
color.SpotColorID, color.SpotColorName, color.PaletteIdentifier, color.tint
 
со спот цветами да. там норм.
а вот например: обычный CMYK "Light BlueGreen"

1727177099516.png
1727177076375.png
 
А чем вытянули? какая функция?
 
А чем вытянули? какая функция?
Выложу только кусочек. Думаю поймете.
Код:
Dim CSPalette As Palette
Dim CSColor As color
Dim CStext As String  

Set CSPalette = Palettes.CreateFromSelection("DocColors", , True)

For Each CSColor In CSPalette.colors

CStext = CSColor.Name(False)

Set CSShape = CSLayer.CreateArtisticText(5, 5, CStext, , , "Arial", 6, Alignment:=cdrLeftAlignment)

Next CSColor
 
Последнее редактирование:
  • Спасибо
Реакции: DukereD