Toggle on/off VDS in Inventor

[johan.degreef]

Can anyone help to make a toggle button (as there was in the past) to toggle on/off the Vault Data standards in Inventor Add-in?

Many Thanks, Johan

[basautomationservices]

I would say you just find the application add-ins ID, but when I print all app add-ins, the Vault Data Standard does not show up. 

Sub test()

Dim addin As ApplicationAddIn
For Each addin In ThisApplication.ApplicationAddIns
    Debug.Print (addin.DisplayName)
    Debug.Print (addin.ClientId)
    Debug.Print ("-----")
Next

End Sub

So I looked in here for the .addin file to find the GUID:

And found it is "{3ad251e3-02dd-4b8c-8882-86c97c80e00c}"

Here's the toggle script. You can create a button either by creating a button for a VBA macro or creating a iLogic rule, (and creating a button for this).

Sub Toggle()

Dim addin As ApplicationAddIn
Set addin = ThisApplication.ApplicationAddIns.ItemById("{3ad251e3-02dd-4b8c-8882-86c97c80e00c}")

If addin.Activated Then
    Call addin.Deactivate
Else
    Call addin.Activate
End If

End Sub

[johan.degreef · Accepted solution]

Thank you, but this seems not to fit in an external iLogic rule, should it?

---

@basautomationservices wrote:

Here's the toggle script. You can create a button either by creating a button for a VBA macro or creating a iLogic rule, (and creating a button for this).

Sub Toggle()

Dim addin As ApplicationAddIn
Set addin = ThisApplication.ApplicationAddIns.ItemById("{3ad251e3-02dd-4b8c-8882-86c97c80e00c}")

If addin.Activated Then
    Call addin.Deactivate
Else
    Call addin.Activate
End If

End Sub

---

[basautomationservices · Accepted solution]

What I wrote was VBA.

For an iLogic rule it should be:

Dim addin As ApplicationAddIn
addin = ThisApplication.ApplicationAddIns.ItemById("{3ad251e3-02dd-4b8c-8882-86c97c80e00c}")

If addin.Activated Then
    Call addin.Deactivate
Else
    Call addin.Activate
End If

[johan.degreef]

Thank you!

[bradeneuropeArthur]

Klein add-in tje schrijven voor je, Johan!

Write a small add-in!

[bradeneuropeArthur]

If you are interested in this Add-in, please send me a private message.

Regards,

Arthur

[bradeneuropeArthur]

Does something like this add-in make sense?