RUS  ENG 

Обьединение

Поиск  Правила  Войти
Страницы: 1
RSS
Обьединение
 
#1
11.02.2008 10:59:01
Здравствуйте
1.Можно ли программно объединить два или более обьектов по одному ID
2.Насколько я понял SetElemStyle используется для назначеня группе элементов разных стилей, делаю так, но у меня не срабатывает

Set eStyle = New ElemStyle
eStyle.PatColor = RegionBackColor
eStyle.FillStyle = RegionFillStyle
eStyle.BorderColor = RegionBorderColor
eStyle.BorderWidth = RegionBorderWidth
eStyle.BorderStyle = RegionBorderType

Set En = Map1.Map.Layers.Active.EnumElements
bREz=Map1.Map.Layers.Active.SetElemStyle(En, eStyle, eGraphTypePrimSquare)
bREz всегда возвращает False. Что я делаю ни так.

С уважением
Спасибо...
 
 
 
#2
13.02.2008 09:34:41
1. Сейчас весь набор операций по объединению, вырезанию и т.д., который есть в ручном редакторе, в объектной модели пока отсутствует.
2. В SetElemStyle нужно подставлять ElementKeys, либо массив ключей VT_ARRAY.
 
 
 
#3
13.02.2008 10:18:47
Цитата:
1. Сейчас весь набор операций по объединению, вырезанию и т.д., который есть в ручном редакторе, в объектной модели пока отсутствует.
2. В SetElemStyle нужно подставлять ElementKeys, либо массив ключей VT_ARRAY.
Что касается 1 части вопроса то тут понятно кроме одного, а для чего тогда JoinSelectedElements
А вот насчет SetElemStyle все равно не ясно, я тут пробую и массив элементов подставлять и конретный ключ все равно все время передает FALSE и все
Спасибо...
 
 
 
#4
13.02.2008 10:36:51
1. Да, забыл, JoinSelectedElements есть. Аналогично ручному редактору. Для объединения объект с ID добавляется в мишень (TargetSelection) а из Selection все к нему должны подлится.
2. Написал:

Dim st As ElemStyle
Set st = New ElemStyle
st.PatColor = 255
MapCtrl1.Map.Layers.Item(1).SetElemStyle MapCtrl1.Map.Layers.Item(1).ElementKeys, st, eGraphTypePrimSquare

И все мои кварталы стали красными. Должно работать.
 
 
 
#5
13.02.2008 11:39:22
Lyosha,
Спасибо
С уважением
 
 
 
Страницы: 1