Is it possible to access the Studio Animation?

Anonymous · ‎12-19-2011

I got a serious situation that is I need to change the End Value in Animate Parameter.

I can only access to AnimationFavorites.Item:

' Find the Studio Add-In
Dim oStudioAddin As ApplicationAddIn
Dim oAddin As ApplicationAddIn
For Each oAddin In ThisApplication.ApplicationAddIns
If oAddin.ClassIdString = "{F3D38928-74D1-4814-8C24-A74CE8F3B2E3}" Then
Set oStudioAddin = oAddin
Exit For
End If
Next

If oStudioAddin Is Nothing Then
MsgBox "Inventor Studio Addin not loaded."
Exit Sub
End If

' Get the Inventor Studio object.
Dim oInventorStudio
Set oInventorStudio = oStudioAddin.Automation

' Activate the Studio environment.
Dim oStudioEnvironment As Environment
Set oStudioEnvironment = oInventorStudio.Activate

Dim oAnimationManager
Set oAnimationManager = oInventorStudio.animationmanager

Dim oAnimationFavorites
Set oAnimationFavorites = oAnimationManager.animationfavorites

Dim oAnimationFavoriteItem
For Each oAnimationFavoriteItem In oAnimationFavorites
If oAnimationFavoriteItem.Name = "a" Then
oAnimationFavoriteItem.Value = A/10
ElseIf oAnimationFavoriteItem.Name = "b" Then
oAnimationFavoriteItem.Value = B/10
ElseIf oAnimationFavoriteItem.Name = "c" Then
oAnimationFavoriteItem.Value = C/10
End If
Next

So, the question is "Is it possible to access the End Value of Animate Parameter?"

Many thanks in advance!

Anonymous · ‎12-20-2011

Evenwhen I change the Parameter in Favorites already. It doesn't really make sense because the animation is the same.

What I want is to change the animation to suitable with the macro.

Please help me to solve this!

I really cannot find out any thing for this situation. Thanks.

Anonymous · ‎12-29-2011

Please help me to show this problem!