NIM010214 for No Product Found

漏洞 ID 编号	NIM010214
已提交	July 9, 2007
上次修改时间	June 5, 2024
适用范围	No Product Found
找到的版本	9.2
编程语言	VBA
状态	Will Not Be Addressed

附加信息

We apologize that we were unable to address this issue within the current product support cycle. If the issue continues to affect your work in a supported release, please contact Technical Support.

解决办法

When we export an animation from map/scene/globe we make sure that we draw all the details of a frame before exporting it to the video. This is done by calling IAGAnimationContainer.PutIsAnimating (True, True) method. Both the parameters passed into the method are set to 'true'. It seems that for group layers, we are not calling this method appropriately. So, here is the work-around using the IAGAnimationContainer.PutIsAnimating method.Public Sub VideoExport() ' Code snippet to export an animation to a video Dim pVideoExporter As IVideoExporter Dim pGMxDocument As IGMxDocument Dim pScene As IScene Dim pGlobe As IGlobe Dim pBasicScene2 As IBasicScene2 Dim pAnimationExtension As IAnimationExtension Dim pAGAnimationTracks As IAGAnimationTracks Dim pAGAnimationEnvironment As IAGAnimationEnvironment ' ' Create AVI Video Exporter Set pVideoExporter = New AnimationExporterAVI ' ' Set Animation Variables Set pGMxDocument = ThisDocument Set pScene = pGMxDocument.Scene Set pGlobe = pScene Set pBasicScene2 = pGlobe Set pAnimationExtension = pBasicScene2.AnimationExtension Set pAGAnimationTracks = pAnimationExtension.AnimationTracks Set pAGAnimationEnvironment = pAnimationExtension.AnimationEnvironment Dim pAGAnimContainer As IAGAnimationContainer Set pAGAnimContainer = pGlobe pAGAnimContainer.PutIsAnimating True, True ' ' Export Video pAGAnimationEnvironment.AnimationDuration = 10 pVideoExporter.ExportFileName = "<a href="file:C:/Temp/Test1.avi" target="_blank">C:\Temp\Test1.avi</a>" Call pVideoExporter.ExportAnimation(pAGAnimationTracks, pAGAnimationEnvironment, Application.StatusBar)End Sub