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