3DAnalyst

public IScene GetScene()
{
    try
    {
        ISxDocument sxDocument = null;

        if (!(m_application is ISxApplication))
        {
            return null;
        }

        IDocument document = m_application.Document;
        sxDocument = (ISxDocument)document;
        IScene scene = sxDocument.Scene;
        return scene;
    }
    catch (Exception ex)
    {
        MessageBox.Show(ex.InnerException.ToString(), "GetScene error");
        return null;
    }
}

Public Function GetScene() As IScene
    
    Try
    Dim sxDocument As ISxDocument = Nothing
    
    If Not (TypeOf m_application Is ISxApplication) Then
        Return Nothing
    End If
    
    Dim document As IDocument = m_application.Document
    sxDocument = CType(document, ISxDocument)
    Dim scene As IScene = sxDocument.Scene
    Return scene
    Catch ex As Exception
    MessageBox.Show(ex.InnerException.ToString(), "GetScene error")
    Return Nothing
    End Try
    
End Function

ISceneHookHelper m_pSceneHookHelper;
IScene m_pScene;

//TODO: Your code here...

public void OnCreate(object hook)
{
    m_pSceneHookHelper = new SceneHookHelperClass();
    m_pSceneHookHelper.Hook = hook;
    m_pScene = m_pSceneHookHelper.Scene;
}

Private m_pSceneHookHelper As ISceneHookHelper
Private m_pScene As IScene

'TODO: Your code here...

Public Sub OnCreate(ByVal hook As Object)
    
    m_pSceneHookHelper = New SceneHookHelperClass()
    m_pSceneHookHelper.Hook = hook
    m_pScene = m_pSceneHookHelper.Scene
    
End Sub

//To get the SceneGraph.
IScene scene = GetScene();
ISceneGraph sceneGraph = scene.SceneGraph;

//To get a camera of the active viewer.
ISceneViewer sceneViewer = sceneGraph.ActiveViewer;
ICamera camera = sceneViewer.Camera;

//Some actions...

//To refresh or redraw all viewers:
sceneGraph.RefreshViewers();

//To redraw an individual viewer (for example, the active viewer), use
sceneViewer.Redraw(true);

'To get the SceneGraph.
Dim scene As IScene = GetScene()
Dim sceneGraph As ISceneGraph = scene.SceneGraph

'To get a camera of the active viewer.
Dim sceneViewer As ISceneViewer = sceneGraph.ActiveViewer
Dim camera As ICamera = sceneViewer.Camera

'Some actions...

'To refresh or redraw all viewers:
sceneGraph.RefreshViewers()

'To redraw an individual viewer (for example, the active viewer), use
sceneViewer.Redraw(True)

IScene scene = GetScene();

ILayer layer = scene.get_Layer(0);
IFeatureLayer featureLayer = layer as IFeatureLayer;
I3DProperties properties3D = null;
ILayerExtensions layerExtensions = featureLayer as ILayerExtensions;

for (int i = 0; i < layerExtensions.ExtensionCount; i++)
{
    if (layerExtensions.get_Extension(i)is I3DProperties)
    {
        object extension3D = layerExtensions.get_Extension(i);
        properties3D = extension3D as I3DProperties;
        break;
    }
}

//Get or set the feature layer 3D properties.
properties3D.SmoothShading = true;

Dim scene As IScene = GetScene()

Dim layer As ILayer = scene.Layer(0)
Dim featureLayer As IFeatureLayer = TryCast(layer, IFeatureLayer)
Dim properties3D As I3DProperties = Nothing
Dim layerExtensions As ILayerExtensions = TryCast(featureLayer, ILayerExtensions)

For i As Integer = 0 To layerExtensions.ExtensionCount - 1
    If TypeOf layerExtensions.Extension(i) Is I3DProperties Then
        Dim extension3D As Object = layerExtensions.Extension(i)
        properties3D = TryCast(extension3D, I3DProperties)
        Exit For
    End If
Next i

'Get or set the feature layer 3D properties.
properties3D.SmoothShading = True

IScene scene = GetScene();
ISceneGraph sceneGraph = scene.SceneGraph;
ISceneViewer sceneViewer = sceneGraph.ActiveViewer;

//Export VRML.
ISceneExporter3d sceneExporter3d = new VRMLExporterClass();
sceneExporter3d.ExportFileName = "C:\\temp\\test.wrl";
sceneExporter3d.ExportScene(scene);

Dim scene As IScene = GetScene()
Dim sceneGraph As ISceneGraph = scene.SceneGraph
Dim sceneViewer As ISceneViewer = sceneGraph.ActiveViewer

'Export VRML.
Dim sceneExporter3d As ISceneExporter3d = New VRMLExporterClass()
sceneExporter3d.ExportFileName = "C:\temp\test.wrl"
sceneExporter3d.ExportScene(scene)

IScene scene = GetScene();
ISceneGraph sceneGraph = scene.SceneGraph;
ISceneViewer sceneViewer = sceneGraph.ActiveViewer;
I3DViewer viewer3D = sceneViewer as I3DViewer;
ICamera camera_SceneViewer = sceneViewer.Camera;
ICamera camera_Vierwer3D = viewer3D.Camera;

if (camera_SceneViewer == camera_Vierwer3D)
{
    MessageBox.Show("camera_SceneViewer is equal to camera_Vierwer3D");
}

Dim scene As IScene = GetScene()
Dim sceneGraph As ISceneGraph = scene.SceneGraph
Dim sceneViewer As ISceneViewer = sceneGraph.ActiveViewer
Dim viewer3D As I3DViewer = TryCast(sceneViewer, I3DViewer)
Dim camera_SceneViewer As ICamera = sceneViewer.Camera
Dim camera_Vierwer3D As ICamera = viewer3D.Camera

If camera_SceneViewer Is camera_Vierwer3D Then
    MessageBox.Show("camera_SceneViewer is equal to camera_Vierwer3D")
End If

IScene scene = GetScene();
ILayer layer = scene.get_Layer(0);
IFeatureLayer featureLayer = layer as IFeatureLayer;
IFeatureClass featureClass = featureLayer.FeatureClass;
IFeatureCursor featureCursor = featureClass.Search(null, true);
IFeature feature = featureCursor.NextFeature();

if (featureClass.ShapeType == esriGeometryType.esriGeometryMultiPatch)
{
    //If textured multipatch:
    IGeometry geometry = feature.Shape;
    IGeneralMultiPatchInfo generalMultiPatchInfo = geometry as
        IGeneralMultiPatchInfo;
    Int32 materialCount = generalMultiPatchInfo.MaterialCount;
    MessageBox.Show("Material Count in the 1st Feature of the 1st Layer: " +
        materialCount.ToString());
}

else if (featureClass.ShapeType == esriGeometryType.esriGeometryPoint)
{
    //Else if point feature layer:
    IGeoFeatureLayer geoFeatureLayer = featureLayer as IGeoFeatureLayer;
    IFeatureRenderer featureRenderer = geoFeatureLayer.Renderer;
    ISymbol symbol = featureRenderer.get_SymbolByFeature(feature);
    if (symbol is IMarker3DSymbol)
    {
        //If 3D marker symbol:
        IMarker3DSymbol marker3DSymbol = symbol as IMarker3DSymbol;
        Int32 materialCount = marker3DSymbol.MaterialCount;
        MessageBox.Show(materialCount.ToString());
    }
}

Dim scene As IScene = GetScene()
Dim layer As ILayer = scene.Layer(0)
Dim featureLayer As IFeatureLayer = TryCast(layer, IFeatureLayer)
Dim featureClass As IFeatureClass = featureLayer.FeatureClass
Dim featureCursor As IFeatureCursor = featureClass.Search(Nothing, True)
Dim feature As IFeature = featureCursor.NextFeature()

If featureClass.ShapeType = esriGeometryType.esriGeometryMultiPatch Then
    'If textured multipatch:
    
    Dim geometry As IGeometry = feature.Shape
    Dim generalMultiPatchInfo As IGeneralMultiPatchInfo = TryCast(geometry, IGeneralMultiPatchInfo)
    Dim materialCount As Int32 = generalMultiPatchInfo.MaterialCount
    MessageBox.Show("Material Count in the 1st Feature of the 1st Layer: " + materialCount.ToString)
    
ElseIf featureClass.ShapeType = esriGeometryType.esriGeometryPoint Then
    'Else if point feature layer:
    
    Dim geoFeatureLayer As IGeoFeatureLayer = TryCast(featureLayer, IGeoFeatureLayer)
    Dim featureRenderer As IFeatureRenderer = geoFeatureLayer.Renderer
    Dim symbol As ISymbol = featureRenderer.SymbolByFeature(feature)
    
    If TypeOf symbol Is IMarker3DSymbol Then
        'If 3D marker symbol:
        
        Dim marker3DSymbol As IMarker3DSymbol = TryCast(symbol, IMarker3DSymbol)
        Dim materialCount As Int32 = marker3DSymbol.MaterialCount
        MessageBox.Show(materialCount.ToString)
    End If
    
End If