RUS  ENG 

Работа с тематической раскрасками из 1с

Страницы: 1
RSS
Работа с тематической раскрасками из 1с, Проблемы с назначением цвета элемента слоя.
 
Здравствуйте. Необходимо сделать фон здания на карте красным цветом. Столкнулся с проблемой, что из 1с (через COM) не могу установить значение свойства Parameter объекта Theme.

Код:
Слой = Карта.Layers.Active;

Т = Новый COMОбъект("zululib.Theme");

ИДТемы = Слой.Themes.AddTemporaryTheme(Т);

Тема = Слой.Themes.GetTheme(ИДТемы);

Тема.Parameter(1, 5) = 255;
- и вот на этой строке код Тема.Parameter(1, 5) возвращает -1 (т.к. пока фона не задано) и получается я сравниваю -1 и 255.

Я понимаю, что в 1с так записать нельзя. Но может к Вам с таким вопросом обращались и решение данной проблемы есть?
 
Под 1С нам не проверить, но на VBScript вот такой сценарий работает.

Sub SetParameter

Set Doc = Zulu.ActiveMapDoc
Set L = Doc.Layers.Active

Set T = CreateObject("zululib.Theme")

T.Parameter(513, 5) = 255

'Т.е. сперва создаем и заполняем тему, а потом ее присваиваем как временную.
Id = L.Themes.AddTemporaryTheme(T)

'Чтобы тема стала видна при отрисовке, ее надо включить
L.Themes.SetEnabled Id, true

End Sub
Страницы: 1