[Гикор]

Добрый день.

задача такая,

есть таблица Здания с полями район, город, назначение. Назначений 10 штук. (коммерческое, жилое и т.п.) Необходимо чтобы каждое здание окрашивалось в определенный цвет исходя из значений в поле "Назначение"..

Заранее спасибо.

[FedorinoFF]

вариант либо настроить тематические слои либо применить стили заливок к объектам (Alter object ...)

[Гикор]

Так а как это сделать.... ??? Я знаю что при помощи Alter Object но что то я не смог разобраться.... если не трудно напишите текст кода плиззз.

[FedorinoFF]

а в чем проблема? почему не удалось разобраться?

[Arhara]

А бывает у здания ДВА назначения? Например жилое и коммерческое.

[Гикор]

Добрый день,
В тыблице будет много характеристик зданий, но очень важно разделить по цвету коммерческое, жилое и еще пока не знаю что там еще добавить

[dotzent]

Например, мой подход:

objReg=Selection.obj
CurBrush=ObjectInfo(objReg,OBJ_INFO_BRUSH)
CurPattern=StyleAttr(CurBrush,BRUSH_PATTERN)
CurBackcolor=StyleAttr(CurBrush,BRUSH_BACKCOLOR)

Fetch Rec nID FROM "brush"
R=brush.R
G=brush.G
B=brush.B

CurBrush=MakeBrush(CurPattern,RGB(R,G,B),CurBackcolor)

Alter Object objReg Info OBJ_INFO_BRUSH, CurBrush
Update Selection Set Obj=objReg

Здесь Alter Object применяется к объекту таблицы Selection - для перебора в цикле, из таблицы brush считываются цвета в RGB, далее происходит Alter и в заключение Update

[Гикор]

Во-первых не заработало. Во-второых в каком месте тут определяется значение в таблице и выбирается цвет заливки полигона в зависимости от этого значения??)