iLogic - delete a suppressed component pattern

[Anonymous]

Hello guys!

Curious if anyone knows how to modify the code below to delete suppressed parts in a pattern (entire pattern)?

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

 Code works fine if there are single instances of the part. It throws a error when you have a suppressed pattern.

Thank you in advance.

Alex.

[Vladimir.Ananyev · Accepted solution]

If occurrence is a pattern element you have to delete its pattern object. Could you test the following sample iLogic rule.  It  deletes all suppressed rectangular patterns in the active assembly document.

  Dim oAsmDoc As AssemblyDocument = ThisDoc.Document
  Dim oAsmDef As AssemblyComponentDefinition _
  	= oAsmDoc.ComponentDefinition
    
RunAgain:
  oAsmDoc.Update
  Dim oOccs As ComponentOccurrences = oAsmDef.Occurrences

  For Each oOcc As ComponentOccurrence In oOccs
    If oOcc.Suppressed Then
      If oOcc.IsPatternElement Then
        Dim oPattern As RectangularOccurrencePattern _
        	= oOcc.PatternElement.Parent
        oPattern.Delete
        Goto RunAgain
      End If
    End If
  Next

Cheers,

[Anonymous]

Vladimir!

Thanks a lot. I have to use both codes together (your code 1st, my code in original posting 2nd) to be able to delete suppressed pattern and then suppressed parts.

Alex

[Anonymous]

do you know hoy to delete a derived part in inventor using ilogic ?

[Anonymous]

Try this:

doc = ThisDoc.Document
Dim compOcc As ComponentOccurrence =Component.InventorComponent("PartA:1")
compOcc.Delete()

doc = ThisDoc.Document
Dim compOcc As ComponentOccurrence = Component.InventorComponent("PartA:1")
compOcc.Delete()

[Anonymous]

but ,  isnt an assembly , just derived part in the simple model

[Vladimir.Ananyev]

You have to break link and then delete derived component.

Here is a quick test:

Private Sub DerivedComponent_SuppressLink()
  Dim oPartDoc As PartDocument
  Set oPartDoc = ThisApplication.ActiveDocument
  Dim oPartDef As PartComponentDefinition
  Set oPartDef = oPartDoc.ComponentDefinition
  Dim oDerivedComponent As DerivedPartComponent
  Set oDerivedComponent = oPartDef.ReferenceComponents _
        .DerivedPartComponents.Item(1)
  ' break link to file and delete derived component
  Call oDerivedComponent.BreakLinkToFile
  Call oDerivedComponent.Delete
End Sub

 Cheers,

[Anonymous]

sorry im new , i have some error ,  this is my model attached , could you help me to resolve it  ?