How to animate the camera along a path (line feature) in globe

Animating the camera along a path (line feature) in globe

1. Get a handle to the IGlobe object. By using a globe object, you can get the current globe display and the scene objects as shown in the following code example:

IGlobeDisplay globeDisplay=m_globe.GlobeDisplay;
IScene scene=globeDisplay.Scene;

Dim globeDisplay As IGlobeDisplay=m_globe.GlobeDisplay
Dim scene As IScene=globeDisplay.Scene

IBasicScene2 basicScene2=(IBasicScene2)scene; // Explicit cast.
IAnimationExtension animationExtension=basicScene2.AnimationExtension;

Dim basicScene2 As IBasicScene2=CType(scene, IBasicScene2) ' Explicit cast.
Dim animationExtension As IAnimationExtension=basicScene2.AnimationExtension

3. Since the camera has to be moved along a line feature stored in a feature class, you need to obtain the geometry of the line feature. First, get a handle to the feature class, then based on a unique feature ID, get the line feature geometry where the camera has to move. See the following code example:

IFeatureLayer featureLayer=(IFeatureLayer)m_layer; // Explicit cast.
IFeatureClass featureClass=featureLayer.FeatureClass;
IFeature feature=featureClass.GetFeature(m_featureID);
IGeometry geometry=feature.Shape;

Dim featureLayer As IFeatureLayer=CType(m_layer, IFeatureLayer) ' Explicit cast.
Dim featureClass As IFeatureClass=featureLayer.FeatureClass
Dim feature As IFeature=featureClass.GetFeature(m_featureID)
Dim geometry As IGeometry=feature.Shape

IAGAnimationUtils AGAnimationUtilsCls=new AGAnimationUtilsClass();
IAGImportPathOptions AGImportPathOptionsCls=new AGImportPathOptionsClass();

Dim AGAnimationUtilsCls As IAGAnimationUtils=New AGAnimationUtilsClass()
Dim AGImportPathOptionsCls As IAGImportPathOptions=New AGImportPathOptionsClass()

5. Set the properties for the AGImportPathOptions object, which defines the path (line feature) that the globe camera follows. Using this, you can set the properties of the globe camera (LookAheadFactor, RollFactor, and so on). One important property is the IAGImportPathOptions.ConversionType property. By setting this option appropriately, you can do the following:
   • Move both the observer and target along the path. In this case, both the observer and target are changing. This is like flying along a path.
   • Move only the observer along the path. In this case, the target is fixed. This is like flying along a path while looking at a fixed target on the surface.
   • Move only the target along the path. In this case, the observer is fixed. This is like standing on the ground (as an observer) and looking at a moving target along a path.

AGImportPathOptionsCls.BasicMap=(IBasicMap)m_globe; // Explicit cast.
AGImportPathOptionsCls.AnimationTracks=(IAGAnimationTracks)m_globe; 
    // Explicit cast.
AGImportPathOptionsCls.AnimationType=new AnimationTypeGlobeCameraClass();
AGImportPathOptionsCls.AnimatedObject=m_globe.GlobeDisplay.ActiveViewer.Camera;
AGImportPathOptionsCls.PathGeometry=geometry;

AGImportPathOptionsCls.ConversionType =
    esriFlyFromPathType.esriFlyFromPathObsAndTarget;

AGImportPathOptionsCls.LookaheadFactor=0.05;
AGImportPathOptionsCls.RollFactor=0;
AGImportPathOptionsCls.AnimationEnvironment =
    animationExtension.AnimationEnvironment;
IAGAnimationContainer AGAnimationContainer =
    animationExtension.AnimationTracks.AnimationObjectContainer;

AGImportPathOptionsCls.BasicMap=CType(m_globe, IBasicMap) ' Explicit cast.
AGImportPathOptionsCls.AnimationTracks=CType(m_globe, IAGAnimationTracks) ' Explicit cast.
AGImportPathOptionsCls.AnimationType=New AnimationTypeGlobeCameraClass()
AGImportPathOptionsCls.AnimatedObject=m_globe.GlobeDisplay.ActiveViewer.Camera
AGImportPathOptionsCls.PathGeometry=geometry

AGImportPathOptionsCls.ConversionType=esriFlyFromPathType.esriFlyFromPathObsAndTarget

AGImportPathOptionsCls.LookaheadFactor=0.05
AGImportPathOptionsCls.RollFactor=0
AGImportPathOptionsCls.AnimationEnvironment=animationExtension.AnimationEnvironment
Dim AGAnimationContainer As IAGAnimationContainer=animationExtension.AnimationTracks.AnimationObjectContainer

AGAnimationUtilsCls.CreateFlybyFromPath(AGAnimationContainer, AGImportPathOptionsCls)
    ;

AGAnimationUtilsCls.CreateFlybyFromPath(AGAnimationContainer, AGImportPathOptionsCls)

• ESRI.ArcGIS.3DAnalyst (ESRI.ArcGIS.Analyst3D)
• ESRI.ArcGIS.Animation
• ESRI.ArcGIS.Carto
• ESRI.ArcGIS.Geodatabase
• ESRI.ArcGIS.Geometry
• ESRI.ArcGIS.GlobeCore