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!
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.
Can't find what you're looking for? Ask the community or share your knowledge.