iLogic rule to delete a pattern and its occurrences in an assembly

[Anonymous]

Couple of years ago, someone helped me for following code to delete a pattern and its occurrences in an assembly. It worked fine before.

SyntaxEditor Code Snippet

    Dim oDoc As Document 
    oDoc = ThisDoc.Document

    Dim oComp As ComponentOccurrence
    Dim oComps As ComponentOccurrences 
    oComps = oDoc.ComponentDefinition.Occurrences 
    For Each oComp In oComps 
        If Component.IsActive(oComp.Name) = False Then 
          oComp.Delete
        End If
    Next

But recently, I found it does not work now. The statement "oComp.Delete" has following error.

The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))

System.ArgumentException: The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))
at System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
at Inventor.ComponentOccurrence.Delete()
at LmiRuleScript.deleteComponents()
at LmiRuleScript.Main()
at Autodesk.iLogic.Exec.AppDomExec.ExecRuleInAssembly(Assembly assem)
at iLogic.RuleEvalContainer.ExecRuleEval(String execRule)

Does anyone know what it is happened? And I can I fix it?

I do not know how many pattern in the assembly and do not know their names also. I need delete all suppressed occurrences and patterns.

If you could provide modified code, it will be much appreciated.

[MechMachineMan · Accepted solution]

This should work.

Sub Main()
	Dim oDoc as Document
	oDoc = ThisDoc.Document
	
	Dim oAsmCD As AssemblyComponentDefinition
	oAsmCD = oDoc.ComponentDefinition
	
	Dim oObjToDelete As Object
	
	On Error Resume Next
	
	Dim oOcc As ComponentOccurrence
	For Each oOcc in oAsmCD.Occurrences
		If oOcc.Suppressed = True
			oObjToDelete = GetAssyLevelItemToDelete(oOcc)
			oObjToDelete.Delete
			oOcc.Delete
		End If
	Next

End Sub

Function GetAssyLevelItemToDelete(oOcc As Object) As Object
	If oOcc.IsPatternElement 
		oOcc = oOcc.PatternElement.Parent
		oOcc = GetAssyLevelItemToDelete(oOcc)	
	End If
	Return oOcc
End Function

[Anonymous]

Great!

Thanks lot.

[idealogicERZYZ]

Hello
Is it possible to put "My property - Title - File name" in the occurence? So that you can update it when you open the file and when saving the file.
E

[filippo.costantin3HZMT]

Hi I have the same problem, but I need to delete only the occurrences. 

How can I do that?

Thanks