iLogic rule issue after Inventor update

[Anonymous]

We recently updated to Inventor 2018, and with the update our IT department added a new server. We have an iLogic rule embedded in our drawing template that does some checks on the file before closing. The iLogic rule references an external rule, so the path is embedded locally into every drawing we have (1000s of drawings).

I'm wondering if there is a way to create an iLogic rule to edit another iLogic rule. The editing rule would simply find string xyz and replace with string abc.

Anybody have any suggestions?

Thanks,

Phil

[MechMachineMan]

With 2018.1, you cans set global triggers. Including those that run on drawing documents specifically.

I suggest you just remove the event triggers stored in the documents and move it all to a single global event trigger.

If you search around for MegaJerk's Code Injector, it should be able to provide some help for you.

[rhasell]

Hi

If it is possible, it may be a good time to move the rule to an external rule as well.

As you and the business grows, the rules change, embedded rules are much harder to mange.

[Martin-Winkler-Consulting]

Hi Phil

here are VBA Code Snippets to change the complete content of a rule.

Simply save the new Content in a .txt File and Run the snippets from VBA Macro or with InventorVb.RunMacro("projectName", "moduleName", "macroName") from another iLogic Rule.

Sub ChangeText_iLogicRule()
    Dim iLogicAuto As Object
    Set iLogicAuto = GetiLogicAddin(ThisApplication)
    
    If (iLogicAuto Is Nothing) Then Exit Sub
    Dim curDoc As Document
    Set curDoc = ThisApplication.ActiveDocument
    
    Dim rule As Object
    Dim rules As Object
    Set rules = iLogicAuto.rules(curDoc)
    If (Not rules Is Nothing) Then
      For Each rule In rules
        If rule.Name = "Rule" Then  'Change to Rule Name you want to edit
         'rule.Name = "NewRuleName" 'Here you can change the Rule Name if required
         rule.Text = ReadTextFile("C:\Users\Public\NewRule.txt") 
'edit the path to the NewRule.txt
        End If
      Next
    End If
End Sub

Public Function ReadTextFile(vPath As String) As String
'Code to read file until finished
Dim X As String
Dim vText As String
Open vPath For Input As #1
Do While Not EOF(1)
  Line Input #1, X
  ReadTextFile = ReadTextFile & vbCrLf & X
Loop
'Debug.Print ReadTextFile
Close
End Function

Perhaps this is what you are looking for.

[Anonymous]

So I copied the above code, made the alternations required for my environment, and I get errors stating "Get and Let are no longer supported" and now i'm stuck.

Any suggestions?

Thanks!

[Martin-Winkler-Consulting]

HI @Anonymous

did you copied the code into an iLogic Rule ore into a vba module?

The code is written for using in a vba module.