Преобразование и сравнение цвета в RGB ( VBA )

[~RA~]

InstantApp LLC

Sqr можно убрать (как на первом примере), для операции сравнения неважно корень или квадрат

Я так и писал

сумма квадратов разниц по l, a & b.

 

[DukereD]

Sqr можно убрать (как на первом примере), для операции сравнения неважно корень или квадрат, зато чуть быстрее. А если очень надо, то корень можно от финального результата взять.
455 - волшебное число? Имхо лучше Ubound или Count взять, универсальнее будет.
Ну и сам макрос писался, до появления в модели GetColorDistanceFrom, стоит попробовать метод и сравнить.

да конечно сравню.

455 это магической число для вышивальщиц. именно столько оттенков ниток в стандартной гамме DMC
Да. обязательно поиграюсь с дистансфром. спасибо!

 

[DukereD]

Вопрос с оптимизацией цветов решился еще проще.
стандартным кореловским преобразованием в палитру

            Dim pal As StructPaletteOptions
            Set pal = CreateStructPaletteOptions
            With pal
                .PaletteType = 2
                .NumColors = Int(Val(max_color.Value))
                .Smoothing = 0
                .DitherType = 0
            End With
            s.Bitmap.ConvertToPaletted2 pal

ну а далее сканируем и уже никакого мусора нет в цветах!

 

[DukereD]

Вот тут еще вопрос возник не совсем по теме, но в рамках этого же макроса.
ActiveLayer.CreateRectangle2
вполне норм функция, но для создания по одному объекту.
а есть способ создать сразу массив объектов (кучу одинаковых разом)
так чтобы корел не тупил сильно ?
Или только отключаем прорисовку, создаем, и включаем заново.?

 

[lev]

одна тема - один вопрос.
Переходите с этим в CorelDRAW>Автоматизация (или может модератор ветки перекинет)
кучу прямоугольников можно создать циклом подставляющим/вычисляющим координаты. Можно использовать функцию Duplicate dx,dy (раз они одинаковые). Для ускорения стоит использовать Virtual shapes, ну и включение-отключение оптимизаций. Иногда бывает быстрее сгенерировать ps, svg файл и импортировать его.