[交流] AE如何实现沿路径鸟瞰飞行功能？

Public Sub CreateAnimationFromPath(ByVal scene As IScene, ByVal pPline As ESRI.ArcGIS.Geometry.IPolyline)
        Dim basicScene2 As ESRI.ArcGIS.Analyst3D.IBasicScene2 = scene
        Dim animationExtension As ESRI.ArcGIS.Animation.IAnimationExtension = basicScene2.AnimationExtension
        Dim geometry As ESRI.ArcGIS.Geometry.IGeometry = pPline
        Dim agAnimationUtils As IAGAnimationUtils = New ESRI.ArcGIS.Animation.AGAnimationUtilsClass()
        Dim agImportPathOptions As IAGImportPathOptions = New ESRI.ArcGIS.Animation.AGImportPathOptionsClass()
        agImportPathOptions.BasicMap = scene
        agImportPathOptions.AnimationTracks = animationExtension.AnimationTracks
        agImportPathOptions.AnimationType = New ESRI.ArcGIS.Analyst3D.AnimationTypeCameraClass()
        agImportPathOptions.AnimatedObject = scene.SceneGraph.ActiveViewer.Camera
        agImportPathOptions.PathGeometry = geometry
        agImportPathOptions.ConversionType = ESRI.ArcGIS.Animation.esriFlyFromPathType.esriFlyFromPathObsAndTarget
        agImportPathOptions.LookaheadFactor = 1
        agImportPathOptions.RollFactor = 0
        'agImportPathOptions.SimplificationFactor = 100
        agImportPathOptions.VerticalOffset = Height + 1000
        agImportPathOptions.ReversePath = False
        agImportPathOptions.AnimationEnvironment = animationExtension.AnimationEnvironment
        Dim AGAnimationContainer As IAGAnimationContainer = animationExtension.AnimationTracks.AnimationObjectContainer
        ' Call "CreateFlybyFromPath"
        agAnimationUtils.CreateFlybyFromPath(AGAnimationContainer, agImportPathOptions)
        Dim animPlayer As IAGAnimationPlayer = New AGAnimationUtilsClass()
        animPlayer = agAnimationUtils
        animPlayer.PlayAnimation(animationExtension.AnimationTracks, animationExtension.AnimationEnvironment, Nothing)
    End Sub
    Private Sub ButtonItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonItem11.Click
        Dim scene As IScene
        scene = AxSceneControl1.Scene
        Dim pFeatureLayer As IFeatureLayer = Me.AxSceneControl1.Scene.Layer(0)
        Dim pFeatureCursor As IFeatureCursor = pFeatureLayer.FeatureClass.Search(Nothing, False)
        Dim pFeature As IFeature = pFeatureCursor.NextFeature()
        Dim pPline As ESRI.ArcGIS.Geometry.IPolyline
        pPline = pFeature.Shape
        CreateAnimationFromPath(scene, pPline)
    End Sub

Originally posted by 蓝色天空2380 at 2011-05-31 22:24:01:
还是菜鸟 ，不懂。。。学习中。。。