Create Animation from Path Snippet

///<summary>Creates a camera animation from path. The path is supplied by specifying a specific line feature from a ILayer.</summary>
/// 
///<param name="globe">An IGlobe interface</param>
///<param name="layer">An ILayer interface that is a Polyline</param>
///<param name="featureID">A System.Int32 that is the FeatureID record number for which the fly by is to follow to create the animation. Example: 123</param>
///  
///<remarks></remarks>
public void CreateAnimationFromPath(ESRI.ArcGIS.GlobeCore.IGlobe globe, ESRI.ArcGIS.Carto.ILayer layer, int featureID)
{
  ESRI.ArcGIS.GlobeCore.IGlobeDisplay globeDisplay = globe.GlobeDisplay;
  ESRI.ArcGIS.Analyst3D.IScene scene = globeDisplay.Scene;

  // Get a handle to the animation extension
  ESRI.ArcGIS.Analyst3D.IBasicScene2 basicScene2 = (ESRI.ArcGIS.Analyst3D.IBasicScene2)scene; // Explicit Cast
  ESRI.ArcGIS.Animation.IAnimationExtension animationExtension = basicScene2.AnimationExtension;

  ESRI.ArcGIS.Carto.IFeatureLayer featureLayer = (ESRI.ArcGIS.Carto.IFeatureLayer)layer; // Explicit Cast
  ESRI.ArcGIS.Geodatabase.IFeatureClass featureClass = featureLayer.FeatureClass;
  ESRI.ArcGIS.Geodatabase.IFeature feature = featureClass.GetFeature(featureID);

  // Get the geometry of the line feature
  ESRI.ArcGIS.Geometry.IGeometry geometry = feature.Shape;

  // Create AGAnimationUtils and AGImportPathOptions objects
  ESRI.ArcGIS.Animation.IAGAnimationUtils agAnimationUtils = new ESRI.ArcGIS.Animation.AGAnimationUtilsClass();
  ESRI.ArcGIS.Animation.IAGImportPathOptions agImportPathOptions = new ESRI.ArcGIS.Animation.AGImportPathOptionsClass();

  // Set properties for AGImportPathOptions
  agImportPathOptions.BasicMap = (ESRI.ArcGIS.Carto.IBasicMap)globe; // Explicit Cast
  agImportPathOptions.AnimationTracks = (ESRI.ArcGIS.Animation.IAGAnimationTracks)globe; // Explicit Cast
  agImportPathOptions.AnimationType = new ESRI.ArcGIS.GlobeCore.AnimationTypeGlobeCameraClass();
  agImportPathOptions.AnimatedObject = globe.GlobeDisplay.ActiveViewer.Camera;
  agImportPathOptions.PathGeometry = geometry;
  agImportPathOptions.ConversionType = ESRI.ArcGIS.Animation.esriFlyFromPathType.esriFlyFromPathObsAndTarget;
  agImportPathOptions.LookaheadFactor = 0.05;
  agImportPathOptions.RollFactor = 0;

  agImportPathOptions.AnimationEnvironment = animationExtension.AnimationEnvironment;
  ESRI.ArcGIS.Animation.IAGAnimationContainer AGAnimationContainer = animationExtension.AnimationTracks.AnimationObjectContainer;

  // Call "CreateFlybyFromPath"
  agAnimationUtils.CreateFlybyFromPath(AGAnimationContainer, agImportPathOptions);
}

'''<summary>Creates a camera animation from path. The path is supplied by specifying a specific line feature from a ILayer.</summary>
''' 
'''<param name="globe">An IGlobe interface</param>
'''<param name="layer">An ILayer interface that is a Polyline</param>
'''<param name="featureID">A System.Int32 that is the FeatureID record number for which the fly by is to follow to create the animation. Example: 123</param>
'''  
'''<remarks></remarks>
Public Sub CreateAnimationFromPath(ByVal globe As ESRI.ArcGIS.GlobeCore.IGlobe, ByVal layer As ESRI.ArcGIS.Carto.ILayer, ByVal featureID As System.Int32)

  Dim globeDisplay As ESRI.ArcGIS.GlobeCore.IGlobeDisplay = globe.GlobeDisplay
  Dim scene As ESRI.ArcGIS.Analyst3D.IScene = globeDisplay.Scene

  ' Get a handle to the animation extension
  Dim basicScene2 As ESRI.ArcGIS.Analyst3D.IBasicScene2 = CType(scene, ESRI.ArcGIS.Analyst3D.IBasicScene2) ' Explicit Cast
  Dim animationExtension As ESRI.ArcGIS.Animation.IAnimationExtension = basicScene2.AnimationExtension

  Dim featureLayer As ESRI.ArcGIS.Carto.IFeatureLayer = CType(layer, ESRI.ArcGIS.Carto.IFeatureLayer) ' Explicit Cast
  Dim featureClass As ESRI.ArcGIS.Geodatabase.IFeatureClass = featureLayer.FeatureClass
  Dim feature As ESRI.ArcGIS.Geodatabase.IFeature = featureClass.GetFeature(featureID)

  ' Get the geometry of the line feature
  Dim geometry As ESRI.ArcGIS.Geometry.IGeometry = feature.Shape

  ' Create AGAnimationUtils and AGImportPathOptions objects
  Dim AGAnimationUtils As ESRI.ArcGIS.Animation.IAGAnimationUtils = New ESRI.ArcGIS.Animation.AGAnimationUtilsClass
  Dim AGImportPathOptions As ESRI.ArcGIS.Animation.IAGImportPathOptions = New ESRI.ArcGIS.Animation.AGImportPathOptionsClass

  ' Set properties for AGImportPathOptions
  AGImportPathOptions.BasicMap = CType(globe, ESRI.ArcGIS.Carto.IBasicMap) ' Explicit Cast
  AGImportPathOptions.AnimationTracks = CType(globe, ESRI.ArcGIS.Animation.IAGAnimationTracks) ' Explicit Cast
  AGImportPathOptions.AnimationType = New ESRI.ArcGIS.GlobeCore.AnimationTypeGlobeCameraClass
  AGImportPathOptions.AnimatedObject = globe.GlobeDisplay.ActiveViewer.Camera
  AGImportPathOptions.PathGeometry = geometry
  AGImportPathOptions.ConversionType = ESRI.ArcGIS.Animation.esriFlyFromPathType.esriFlyFromPathObsAndTarget
  AGImportPathOptions.LookaheadFactor = 0.05
  AGImportPathOptions.RollFactor = 0

  AGImportPathOptions.AnimationEnvironment = animationExtension.AnimationEnvironment
  Dim AGAnimationContainer As ESRI.ArcGIS.Animation.IAGAnimationContainer = animationExtension.AnimationTracks.AnimationObjectContainer

  ' Call "CreateFlybyFromPath"
  AGAnimationUtils.CreateFlybyFromPath(AGAnimationContainer, AGImportPathOptions)

End Sub