RUS  ENG 

связанные объекты

Поиск  Правила  Войти
Страницы: 1
RSS
связанные объекты
 
#1
30.04.2014 12:08:25
Добрый день!подскажите как можно найти все линии исходящие из выбранной точки(берут начало в этой точке). нашла что Layer.NetworkObjects должен помочь, но не могу понять как его использовать.
 
 
 
#2
30.04.2014 12:36:07
Если одиночный запрос, быстрей будет использовать метод слоя Layer.GetIncidentElements: http://politerm.com.ru/zuludoc/zuluax/Layer_GetIncidentElements.htm
Если же в цикле для многих объектов, то Set nw = Layer.NetworkObjects и дальше nw.GetIncidentKeys
http://politerm.com.ru/zuludoc/zuluax/NetworkObjects_GetIncidentKeys.htm
 
 
 
#3
30.04.2014 13:09:06
Dim a
Set nw = Layer.NetworkObjects
ElemID = MapCtrl3.CurrentID
If ElemID >= 0 Then
FirstNodeID = ElemID
MsgBox ElemID
nw.GetIncidentKeys FirstNodeID, 2
End IF
Пишу так.во второй строке выдает ошибку object required (run time error 424).что не так?
библиотеки вроде все подключены, навсякий случай подскажите какие библиотеки отвечаю за это дело?
 
 
 
#4
30.04.2014 13:55:23
В какой среде пишите? Кто такой Layer?
 
 
 
#5
30.04.2014 14:01:39
Цитата:
Если одиночный запрос, быстрей будет использовать метод слоя Layer.GetIncidentElements: http://politerm.com.ru/zuludoc/zuluax/Layer_GetIncidentElements.htm
Если же в цикле для многих объектов, то Set nw = Layer.NetworkObjects и дальше nw.GetIncidentKeys
http://politerm.com.ru/zuludoc/zuluax/NetworkObjects_GetIncidentKeys.htm
в вашем примере тогда что означает layer?
пишу на VBA
 
 
 
#6
30.04.2014 16:09:41
Layer - это абстрактный объект из объектной модели, а в Вашем случае это должен быть конкретный экземпляр такого объекта (член карты или созданный автономно).
Если MapCtrl3.CurrentID - это объект активного слоя, то этот слой будет MapCtrl3.Map.Layers.Active
Тогда его сеть будет:
dim nw as NetworkObjects
Set nw = MapCtrl3.Map.Layers.Active.NetworkObjects
 
 
 
#7
30.04.2014 16:44:23
что то ничего не получается( MapCtrl3.CurrentID - это активный объект на слое. если так Set nw = MapCtrl3.Map.Layers.Active.NetworkObjects то выходит ошибка wrong number of arguments or invalid property assignment
 
 
 
#8
30.04.2014 16:49:04
Где Ваш текст программы? Там нечему неполучаться
 
 
 
#9
30.04.2014 16:52:23
Dim nw As NetworkObjects
Set nw = MapCtrl3.map.Layers.Active.NetworkObjects
ElemID = MapCtrl3.CurrentID
If ElemID >= 0 Then
FirstNodeID = ElemID
nw.GetIncidentKeys FirstNodeID, 2
End If
на второй строке выдает ошибку
 
 
 
#10
30.04.2014 17:09:44
Посмотрите описание метода NetworkObjects http://politerm.com.ru/zuludoc/zuluax/Layer_NetworkObjects.htm
 
 
 
#11
30.04.2014 17:31:03
спасибо.все получилось.буду дальше разбираться
 
 
 
#12
30.04.2014 17:50:56
еще вопрос если я так напишуDim elems As Elements
Dim nw As NetworkObjects
Set nw = MapCtrl3.map.Layers.Active.NetworkObjects(1)
Set elems = nw.GetIncidentKeys(FirstNodeID, 2)
будет ли это правильно? у меня почему то нету метода GetIncidentKeys. где ошибка?
 
 
 
#13
30.04.2014 18:02:09
GetIncidentKeys возвращает не Elements, а ElementKeys
http://politerm.com.ru/zuludoc/zuluax/ElementKeys_cls.htm
В VBA не выпадают подсказки? Поставьте в References галочку на "Zulu 7.0 Library"
 
 
 
#14
30.04.2014 18:07:57
Прошу прощения вопрос такого плана, забыла уточнить у меня Zulu 6 это принципиально или надо 7 версию чтоб до этих методов добраться?
 
 
 
#15
30.04.2014 18:11:21
Можно и 6.0, если там есть эти методы. Не факт. 6.0 уже давно не сопровождаем и лучше на 7.0 перейти.
 
 
 
#16
30.04.2014 18:17:24
а в 6 версии есть аналоги этого метода или хотя бы как узнать направления движения сети и количество разветвлений от выбранной точки?
 
 
 
#17
30.04.2014 18:37:49
Layer.GetIncidentElements должен быть. Насчет NetworkObjects не уверен. У нас нет шестой версии. Не посмотреть. Посмотрите каким-нибудь Object Browser. Или в VBA должны подсказки выпадать. Если не выпадает в подсказке метод, значит нет.
 
 
 
Страницы: 1