Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
Гикор
Зарегистрирован: 06.11.2009 Сообщения: 34
|
Добавлено: Пт Ноя 06, 2009 4:07 pm Заголовок сообщения: Заливка полигона...помигите плизз |
|
|
Добрый день.
задача такая,
есть таблица Здания с полями район, город, назначение. Назначений 10 штук. (коммерческое, жилое и т.п.) Необходимо чтобы каждое здание окрашивалось в определенный цвет исходя из значений в поле "Назначение"..
Заранее спасибо. |
|
Вернуться к началу |
|
|
FedorinoFF
Зарегистрирован: 01.02.2007 Сообщения: 272 Откуда: Санкт-Петербург
|
Добавлено: Пт Ноя 06, 2009 5:30 pm Заголовок сообщения: |
|
|
вариант либо настроить тематические слои либо применить стили заливок к объектам (Alter object ...) |
|
Вернуться к началу |
|
|
Гикор
Зарегистрирован: 06.11.2009 Сообщения: 34
|
Добавлено: Пт Ноя 06, 2009 7:26 pm Заголовок сообщения: |
|
|
Так а как это сделать.... ??? Я знаю что при помощи Alter Object но что то я не смог разобраться.... если не трудно напишите текст кода плиззз. |
|
Вернуться к началу |
|
|
FedorinoFF
Зарегистрирован: 01.02.2007 Сообщения: 272 Откуда: Санкт-Петербург
|
Добавлено: Вс Ноя 08, 2009 4:43 pm Заголовок сообщения: |
|
|
а в чем проблема? почему не удалось разобраться? |
|
Вернуться к началу |
|
|
Arhara
Зарегистрирован: 18.02.2009 Сообщения: 400 Откуда: Moscow, RF
|
Добавлено: Вс Ноя 08, 2009 10:11 pm Заголовок сообщения: |
|
|
А бывает у здания ДВА назначения? Например жилое и коммерческое. |
|
Вернуться к началу |
|
|
Гикор
Зарегистрирован: 06.11.2009 Сообщения: 34
|
Добавлено: Пн Ноя 09, 2009 9:33 am Заголовок сообщения: |
|
|
Добрый день,
В тыблице будет много характеристик зданий, но очень важно разделить по цвету коммерческое, жилое и еще пока не знаю что там еще добавить |
|
Вернуться к началу |
|
|
dotzent
Зарегистрирован: 02.11.2009 Сообщения: 10 Откуда: Украина, Ривне
|
Добавлено: Пн Ноя 09, 2009 9:08 pm Заголовок сообщения: |
|
|
Например, мой подход:
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 |
|
Вернуться к началу |
|
|
Гикор
Зарегистрирован: 06.11.2009 Сообщения: 34
|
Добавлено: Вт Ноя 10, 2009 8:54 pm Заголовок сообщения: |
|
|
Во-первых не заработало. Во-второых в каком месте тут определяется значение в таблице и выбирается цвет заливки полигона в зависимости от этого значения??) |
|
Вернуться к началу |
|
|
|