24小时热门版块排行榜

返回列表

zzahkj

木虫 (著名写手)

应助: 42 (小学生)
金币: 2003.5
帖子: 1540
在线: 467.8小时
虫号: 964751

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

如何用VB.net或C#.net实现沿路径鸟瞰飞行？效果图如下，如果我想做一个如图中的飞机，该怎么做？我不大懂编程，所以从网上抄了一段代码（见下）可是发现在按指定路径飞行时，不能实现鸟瞰功能，甚至飞行在三维图的下面，是不是观察角度不对，由于不是很懂代码，所以不知该怎么做？请高手指点一下！谢谢！

CODE:

 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