Suppress component in a pattern by clicking

[tomislav.peran]

@J-Camper 

Hello,

I saw on the following link an interesting code on how to suppress components by clicking.

https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/ilogic-suppress-component/td-p/10072...

Sub Main
	If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Then MessageBox.Show("This rule is designed to only work in assembly documents.", "Wrong Document Type") : Exit Sub
	
	Dim PickLeafOC As ComponentOccurrence = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter, "Select a Component to Supress")
	If IsNothing(PickLeafOC) Then Exit Sub ' If nothing gets selected then we're done
	
	PickLeafOC.Suppress()
	
End Sub

Is there a way to suppress a component that is in a pattern?

Regards,

Tom

[SevInventor · Accepted solution]

sorry misunderstood the question

[tomislav.peran]

Hi SevInventor

I tested the code this morning and it did not work. Now it works. I am not sure what happened.

Do you know by any chance how to repeat this command so that it is not necessary to click the rule every time?

Tom

[tomislav.peran]

To have the code repeating itself:

Do
	If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Then MessageBox.Show("This rule is designed to only work in assembly documents.", "Wrong Document Type") : Exit Sub
	
	Dim PickLeafOC As ComponentOccurrence = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter, "Select a Component to Supress")
	If IsNothing(PickLeafOC) Then Exit Sub ' If nothing gets selected then we're done
	
	PickLeafOC.Suppress()
	
Loop

 I will double-test things next time before posting. 

Thanks,

Tom

[SevInventor · Accepted solution]

Sub Main
	
	here:
	If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject Then MessageBox.Show("This rule is designed to only work in assembly documents.", "Wrong Document Type") : Exit Sub
	
	Dim PickLeafOC As ComponentOccurrence = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyLeafOccurrenceFilter, "Select a Component to Supress")
	If IsNothing(PickLeafOC) Then Exit Sub ' If nothing gets selected then we're done
	
	PickLeafOC.Suppress()
	
	GoTo here
	
End Sub

[tomislav.peran]

Hi Sev,

Super. I do not have to remove Sub Main then.

Thanks,

Tom