Здрасьте всем!
Требуется открыть сцену из мапа и добавить в нее слои, загруженные в мапе, код следующий:
Public Sub openarcscene()
Dim pDoc As IDocument
Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument
Dim pSxDoc As ISxDocument
Set pDoc = New SxDocument
Dim pApp As IApplication
Set pApp = pDoc.Parent
Dim pLayer As ILayer
Dim i As Integer
Dim j As Integer
For j = 0 To pMxDoc.FocusMap.LayerCount - 1
Set pLayer = New FeatureLayer
Set pLayer = pMxDoc.FocusMap.Layer(j)
Set pSxDoc = pDoc
pSxDoc.Scene.AddLayer pLayer
Next
pApp.Visible = True
End Sub
Сцена открывается, слои добавляются, но при этом со слоями и в мапе, и в сцене происходит что-то странное. Например, в мапе, если попробовать переместить слой, то он никуда не переносится и пропадает символ слоя (во фрейме, под названием слоя), в сцене практически то же самое (иногда не отображается слой, иногда символ). А при повторном запуске кода появляется следующее сообщение: "Невозможно построить 3D метод отображения для слоя ..." ("Unable to construct 3D Renderer for layer...") Далее, если что-то изменить в свойствах слоя и применить изменения, то для такого слоя эта ошибка не возникает. Помогите, ПОЖАЛУЙСТА, понять в чем моя ошибка!
Заранее благодарна за любую помощь!
