Create Group Layer Animation Snippet

///<summary>Creates a group layer animation using all the layers present in the globe.</summary>
/// 
///<param name="globe">An IGlobe interface</param>
///  
///<remarks></remarks>
public void CreateGroupLayerAnimation(ESRI.ArcGIS.GlobeCore.IGlobe globe)
{
  ESRI.ArcGIS.Animation.IAGAnimationUtils agAnimationUtils=new ESRI.ArcGIS.Animation.AGAnimationUtilsClass();
  ESRI.ArcGIS.Analyst3D.IBasicScene2 basicScene=(ESRI.ArcGIS.Analyst3D.IBasicScene2)globe; // Explicit Cast
  ESRI.ArcGIS.Animation.IAGAnimationEnvironment agAnimationEnvironment=basicScene.AnimationExtension.AnimationEnvironment;

  // Get the layers in the Globe
  ESRI.ArcGIS.Analyst3D.IScene scene=(ESRI.ArcGIS.Analyst3D.IScene)globe; // Explicit Cast
  ESRI.ArcGIS.Carto.IEnumLayer enumLayer=scene.get_Layers(null, false);
  ESRI.ArcGIS.Carto.ILayer layer=enumLayer.Next();
  ESRI.ArcGIS.esriSystem.IArray array=new ESRI.ArcGIS.esriSystem.ArrayClass();

  do
  {
    array.Add(layer);
    layer=enumLayer.Next();
  }
  while (layer != null);

  // Set the Group AnimationOptions
  ESRI.ArcGIS.Animation.IAGGroupAnimationOptions agGroupAnimationOptions=new ESRI.ArcGIS.Animation.AGGroupAnimationOptionsClass();

  ESRI.ArcGIS.Animation.IAGAnimationTracks AGAnimationTracks=basicScene.AnimationExtension.AnimationTracks;
  agGroupAnimationOptions.AnimationEnvironment=agAnimationEnvironment;
  agGroupAnimationOptions.LayerSet=array;
  agGroupAnimationOptions.AnimationTracks=AGAnimationTracks;
  agGroupAnimationOptions.Blending=true;
  agGroupAnimationOptions.CycleAnimation=true;
  agGroupAnimationOptions.FadingPercentage=20;
  agGroupAnimationOptions.OverwriteExisting=true;
  agGroupAnimationOptions.PutTrackInterval(0, 1);
  agGroupAnimationOptions.PutVisibilitySettings(false, false, false);

  ESRI.ArcGIS.Animation.IAGAnimationContainer agAnimationContainer=(ESRI.ArcGIS.Animation.IAGAnimationContainer)globe;
  agAnimationUtils.CreateLayerGroupAnimation(agAnimationContainer, agGroupAnimationOptions);
}

'''<summary>Creates a group layer animation using all the layers present in the globe.</summary>
''' 
'''<param name="globe">An IGlobe interface</param>
'''  
'''<remarks></remarks>
Public Sub CreateGroupLayerAnimation(ByVal globe As ESRI.ArcGIS.GlobeCore.IGlobe)

  Dim agAnimationUtils As ESRI.ArcGIS.Animation.IAGAnimationUtils=New ESRI.ArcGIS.Animation.AGAnimationUtilsClass
  Dim basicScene As ESRI.ArcGIS.Analyst3D.IBasicScene2=CType(globe, ESRI.ArcGIS.Analyst3D.IBasicScene2) ' Explicit Cast
  Dim AGAnimationEnvironment As ESRI.ArcGIS.Animation.IAGAnimationEnvironment=basicScene.AnimationExtension.AnimationEnvironment

  ' Get the layers in the Globe
  Dim scene As ESRI.ArcGIS.Analyst3D.IScene=CType(globe, ESRI.ArcGIS.Analyst3D.IScene) ' Explicit Cast
  Dim enumLayer As ESRI.ArcGIS.Carto.IEnumLayer=scene.Layers(Nothing, False)
  Dim layer As ESRI.ArcGIS.Carto.ILayer=enumLayer.Next
  Dim array As ESRI.ArcGIS.esriSystem.IArray=New ESRI.ArcGIS.esriSystem.ArrayClass

  Do
    array.Add(layer)
    layer=enumLayer.Next
  Loop While Not (layer Is Nothing)

  ' Set the Group AnimationOptions
  Dim agGroupAnimationOptions As ESRI.ArcGIS.Animation.IAGGroupAnimationOptions=New ESRI.ArcGIS.Animation.AGGroupAnimationOptionsClass

  Dim AGAnimationTracks As ESRI.ArcGIS.Animation.IAGAnimationTracks=basicScene.AnimationExtension.AnimationTracks
  agGroupAnimationOptions.AnimationEnvironment=AGAnimationEnvironment
  agGroupAnimationOptions.LayerSet=array
  agGroupAnimationOptions.AnimationTracks=AGAnimationTracks
  agGroupAnimationOptions.Blending=True
  agGroupAnimationOptions.CycleAnimation=True
  agGroupAnimationOptions.FadingPercentage=20
  agGroupAnimationOptions.OverwriteExisting=True
  agGroupAnimationOptions.PutTrackInterval(0, 1)
  agGroupAnimationOptions.PutVisibilitySettings(False, False, False)

  Dim AGAnimationContainer As ESRI.ArcGIS.Animation.IAGAnimationContainer=CType(globe, ESRI.ArcGIS.Animation.IAGAnimationContainer) ' Explicit Cast
  agAnimationUtils.CreateLayerGroupAnimation(AGAnimationContainer, agGroupAnimationOptions)

End Sub