iLogic run sub-assembly rule from top assembly

[Anonymous]

Is there a way I can command certain rules to run within sub-assemblies and parts from my top level assembly? I am controlling the dimensions of my design from my top level where I have a rule that is passing parameters to all my sub parts and assemblies, and this works fine.

The issue is that I am also running another top level rule that component replaces various sub-assemblies, and even although the parameters update in all my assemblies (those existing in my top-level and those yet to be swapped in) the rules in the assemblies that I am bringing in don't run automatically. I would like to be able to trigger them once they have been swapped in. I've tried using the 'After Open Document' event trigger on these assemblies, hoping that they are 'opened' when they are brought in by the component replace, but this isn't working.

I've alo tried restructuring my top-level rules so that the component replace rule runs first and the parameter update rule runs second, in the expectation that this will trigger the rules to run on the newly brought in assemblies as the parameters within them change after they become a sub-assembly of the active document (top-level assembly), but this doesn't work either which really surprised me 😞

Any help would be much appreciated!

[Jef_E]

Hi!

This code sample will activate the rule with the name "show form" in all occurrences if they have a rule with that name. ofcourse, you can change the name on line 6.

Sub Main
auto = iLogicVb.Automation

' Set Rule name
Dim ruleName As String
ruleName = "Show Form"

' Get the active assembly. 
Dim oAsmDoc As AssemblyDocument 
oAsmDoc = ThisApplication.ActiveDocument 

' Get all of the referenced documents. 
Dim oRefDocs As DocumentsEnumerator 
oRefDocs = oAsmDoc.AllReferencedDocuments 

' Iterate through the list of documents. 
Dim oRefDoc As Document 

For Each oRefDoc In oRefDocs
	Dim rule As Object
	rule = auto.GetRule(oRefDoc, ruleName)
	If (rule Is Nothing) Then
	'Call MsgBox("No rule named " & ruleName & " was found in the document.")
	Else
	'MessageBox.Show(rule.Name, oRefdoc.displayname)
	
	Dim i As Integer
	i = auto.RunRuleDirect(rule)
	
	End If

Next 
End Sub

[Anonymous]

This worked for what i needed it to do. Thanks for the post

[vkulikajevas]

Can This rule be rewritten to apply for External rule? I want to run an External Rule from a sub-assembly level.

Reference question here:

https://forums.autodesk.com/t5/inventor-customization/external-rule-executed-for-all-components-in-t...

[MechMachineMan]

@vkulikajevas

Very possible... And already well discussed and discoverable with a bit of googling.

http://lmgtfy.com/?q=inventor+customization+%2B+run+external+rule+%2B+vba

[vkulikajevas]

Thank you 🙂