NIM010214 for No Product Found

Bug-ID-Nummer	NIM010214
Eingereicht	July 9, 2007
Zuletzt geändert	June 5, 2024
Gilt für	No Product Found
Gefunden in Version	9.2
Programmsprache	VBA
Status	Will Not Be Addressed

Zusätzliche Informationen

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.

Workaround

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