NIM010214 for No Product Found

Número de ID del error	NIM010214
Enviado	July 9, 2007
Última modificación	June 5, 2024
Relacionado con	No Product Found
Versión encontrada	9.2
Lenguaje del programa	VBA
Estado	Will Not Be Addressed

Información adicional

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.

Solución alternativa

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