VBA Macro Ilogic Issue

VBA Macro Ilogic Issue

Anonymous
Not applicable
3,793 Views
1 Reply
Message 1 of 2

VBA Macro Ilogic Issue

Anonymous
Not applicable

I am having an issue driving Ilogic rules from a VBA macro imported through Inventor VBA editor. Basically the only purpose of this macro is to run the very first Ilogic rule in an assembly that drives subsequent rules. However the problem I am having is when I fire the first rule with the macro then one of the subsequent rules (which are not related to the macro rule) behaves differently from when I fire the first rule manually. When I say behaves differently I mean it doesn’t recognise a line of code within the ilogic rule. I know the line of code could be placed into the macro but this is a simplified version of the problem and the code needs to be in Ilogic.

 

The line of code in the ilogic rule that seems to be not recognised when run via the macro is:-

 

ThisApplication.CommandManager.ControlDefinitions.?Item("AppZoomAllCmd").Execute

 

 

The VBA Macro is as follows:-

 

Attribute VB_Name = "iLogicAssy"

Public Sub RuniLogic()

 

Dim addIn As ApplicationAddIn

Dim addIns As ApplicationAddIns

Set addIns = ThisApplication.ApplicationAddIns

    For Each addIn In addIns

        If InStr(addIn.DisplayName, "iLogic") > 0 Then

                        addIn.Activate

            Dim iLogicAuto As Object

            Set iLogicAuto = addIn.Automation

            Exit For

        End If

    Next

Debug.Print addIn.DisplayName

 

 

Dim RuleName As String

RuleName = "FINAL_RULE_RUN"

 

  Dim oDoc As Document

 

  Set oDoc = ThisApplication.ActiveDocument

  If oDoc Is Nothing Then

    MsgBox "Missing Inventor Document"

    Exit Sub

  End If

 

  iLogicAuto.RunRule oDoc, RuleName

 

End Sub

0 Likes
Accepted solutions (1)
3,794 Views
1 Reply
Reply (1)
Message 2 of 2

Anonymous
Not applicable
Accepted solution

Upgraded to 2014 and this is no longer an issue.

0 Likes