Public Sub test() ' Grab first layer in ArcMap Dim pMXDocument As IMxDocument Set pMXDocument = ThisDocument Dim pMap As IMap Set pMap = pMXDocument.FocusMap Dim pLayer As ILayer Set pLayer = pMap.Layer(0) ' Create an instance of ArcScene Dim pDocument As IDocument Set pDocument = New esriArcScene.SxDocument Dim pApplication As IApplication Set pApplication = pDocument.Parent pApplication.Visible = True ' Add a layer to ArcScene Dim pSXDocument As ISxDocument Set pSXDocument = pDocument pSXDocument.AddLayer pLayer End Sub
Los miembros registrados pueden publicar, seguir actualizaciones y más. ¿Nuevo aquí? Regístrate gratis.
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.