Информация о раскраске в атрибутику в виде значений RGB

[dopg]

Здравствуйте.
Есть множество полигонов разных цветов, необходимо перенести в атрибутику информацию о раскраске в виде значений RGB? При помощи MapInfo 10 либо ArcInfo 9.
p.s. Задача полигоны tab экспортировать в shp, т.к раскраска в shp не передается нужно информацию о раскраске сохранить в атрибутике в виде значений RGB.

[Пётр Дубоделов]

Из справочника по командам mapbasic11:

Функция ObjectInfo( )
Назначение
Возвращает стиль линии, штриха и другие величины, описывающие графический объект, а
также его тип. Эту функцию можно вызывать в окне MapBasic в среде MapInfo Professional.
Синтаксис
ObjectInfo( object, attribute )
object – это выражение для объекта.
attribute – целое, задающее тип возвращаемой информации.

при синтаксисе

Код: Выделить всё

ObjectInfo( obj, 3)

выдаёт значение типа штриховки для полигонов вида Brush (12, 16770192, 16777215). Если заливка сплошная - искомое значение 16770192 - является целочисленным цветом mapinfo, который программа получает так:

( red * 65536) + ( green * 256) + blue

остаётся придумать калькулятор для обратного преобразования в RGB. на glab2007 такой имеется отдельной программкой, которая предполагает считать через GUI по одному числу за раз. Тут скорее нужна составная функция, чтоб не выходя из Mapinfo пересчитывать через "обновление колонки".

PS:
чтобы выделить только второй аргумент из Brush(a,b,c) использовал такое выражение форматирования:

Код: Выделить всё

Mid$(Str$(ObjectInfo(obj, 3)), (Instr(9, Str$(ObjectInfo(obj, 3)), " ")+1), ((Instr(12, Str$(ObjectInfo(obj, 3)), ","))-(Instr(9, Str$(ObjectInfo(obj, 3)), " "))-1))

[V.Maxim]

Думаю можно все же немного проще достать цвет, StyleAttr в помощь нам

Тогда все действие в общем виде сведется к:

Код: Выделить всё

Dim r,g,b,color As Integer
Color = StyleAttr(ObjectInfo(table.obj, 3),2)
r = color \ 65536
g = (color - (r * 65536)) \ 256
b = (color - (r * 65536) - (g * 256))

Ну тут уж либо в MB оформить, либо самой MI можно создать 4 колонки и поочередно заполнить по сему алгоритму. PROFIT !