Search for Sub-Assemblies

[Anonymous]

Good Day,

Is there a way to be able to search for the top level sub assemblies from my main assembly?

I am not looking for assemblies within assemblies.

Every time one is found it must fire a rule within the found top level assembly.

Gosh,  I hope this makes sense.

[JhoelForshav · Accepted solution]

Hi @Anonymous 

Something like this maybe? 🙂

Dim oAsm As AssemblyDocument = ThisDoc.Document
For Each oDoc As Document In oAsm.ReferencedDocuments
	If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject
		Try
			iLogicVb.Automation.RunRule(oDoc, "RuleName")
			'iLogicVB.Automation.RunExternalRule(oDoc, "RuleName")
		Catch
		End Try
	End If
Next

I don't know if it's an external or internal rule you want to run... But it's pretty self explainatory which line does which 🙂

[Anonymous]

Thank you that worked which leads me to another question.

How do I count the number of sub-assemblies with a specific name?

[JhoelForshav · Accepted solution]

Hi @Anonymous 

Something like this?

Dim oAsm As AssemblyDocument = ThisDoc.Document
Dim oName As String = InputBox("Name: ", "Count occurrences")
Dim i As Integer = 0
For Each oOcc As ComponentOccurrence In oAsm.ComponentDefinition.Occurrences
	If oOcc.Name.Split(":")(0) = (oName) Then i += 1
Next
MessageBox.Show("Number of occurrences with name: " & oName & " = " & i, "Count occurrences")

[Anonymous]

You are an absolute beast.  

Thank you,  your solutions worked perfectly!

[tkddud711]

Hello.
I have a question.
The code above applies only to sub-assemblies in level 1 of the assembly.
Can you count the quantity of a second or third level assembly?

[JhoelForshav · Accepted solution]

@tkddud711 

Try a recursive function like this 🙂

Sub Main
Dim oAsm As AssemblyDocument = ThisDoc.Document
Dim oName As String = InputBox("Name: ", "Count occurrences")
MessageBox.Show("Number of occurrences with name: " & oName & " = " & CountOccs(oAsm, oName), "Count occurrences")
End Sub
Function CountOccs(oAssy As AssemblyDocument, oName As String) As Integer
	Dim oCount As Integer = 0
	For Each oOcc As ComponentOccurrence In oAssy.ComponentDefinition.Occurrences
		If TypeOf (oOcc.Definition) Is AssemblyComponentDefinition
			oCount += CountOccs(oOcc.Definition.Document, oName)
		End If
			If oOcc.Name.Split(":")(0) = (oName) Then oCount += 1
	Next
	Return oCount
End Function

[JhoelForshav]

@tkddud711 

I see now that you were probably talking about the first rule I posted!

Just change ReferencedDocuments to AllReferencedDocuments to traverse all levels:

Dim oAsm As AssemblyDocument = ThisDoc.Document
For Each oDoc As Document In oAsm.AllReferencedDocuments
	If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject
		Try
			iLogicVb.Automation.RunRule(oDoc, "RuleName")
			'iLogicVB.Automation.RunExternalRule(oDoc, "RuleName")
		Catch
		End Try
	End If
Next

EDIT: Ignore this... You wrote count so I guess my first answer is what you're looking for 🙂

[tkddud711]

Thank you.
Works fine.