Приветствую,
Не подскажите как из vba в arcscene обновить слой-группу (IGroupLayer). Грубо говоря симитировать пункт контекстного менб Refresh на этой самой группе.
Проблема состоит в том, что после добавления слоя в группу (процедура в вба) слой обновляется в легенде, а на экране не появляется. Причем все нормально если добавлять слой просто на Scene, а вот если в группу слоев - то появляется на экране только после выбора из контекстного меню этой самой группы команды Refresh (Refresh на появившемся слое ни к чему не приводит).
Буду весьма признателен если кто поможет.
Обновляю так
Dim pSxDoc As ISxDocument
Set pSxDoc = Application.Document
pSxDoc.UpdateContents
pSxDoc.Scene.SceneGraph.RefreshViewers
Добавляю так
Public Function LoadLayer(AFileName As String, AGroupLayer As IGroupLayer) As ILayer
Dim pSxDoc As ISxDocument
Set pSxDoc = ThisDocument
Dim pGxLayer As IGxLayer
Dim pGxFile As IGxFile
Set pGxLayer = New GxLayer
Set pGxFile = pGxLayer
pGxFile.Path = AFileName
Dim lyr As ILayer
Set lyr = pGxLayer.Layer
If AGroupLayer Is Nothing Then
pSxDoc.Scene.AddLayer lyr
Else
AGroupLayer.Add lyr
True, False
End If
Set LoadLayer = lyr
End Function
Заранее спасибо всем откликнувшимся
