---

Hallo!

Bin neu hier und habe ein Problem mit dem ich nicht weiterkomme.
Ich habe bisher zwar etwas Erfahrung mit Excel VBA, bin aber kpl. neu in Inventor VBA.
Habe Inventor 2009 und möchte aus einer Baugruppe bestimmte Komponenten parametergesteuert löschen.

Das Lösch-Makro soll mit anklicken des "Aktualisieren"-Buttons gestartet werden.

Mit dem nachfolgenden Code kann ich zwar Baugruppen, aber keine Bauteile löschen.

Code:
_______________________________________________________________
Public Sub Löschen()
   
    Dim oAsm As Inventor.AssemblyDocument
    Set oAsm = ThisApplication.ActiveDocument

    Dim oPara As Integer
    oPara = oAsm.ComponentDefinition.Parameters.Item("TeilJN").Value
   
   
    If oPara = 1 Then
    oAsm.ComponentDefinition.Occurrences.ItemByName("560100:1").Delete
    oAsm.ComponentDefinition.Occurrences.ItemByName("560101:1").Delete
   
    End If
   
   
End Sub
_______________________________________________________________
Kann mir hier jemand helfen?
Danke!

Gruß
Rzggb

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi

Bauteile in der Hauptbaugruppe sollten sich mit deinem Code eigentlich auch löschen lassen. Kann es ein, das du Occurrences in einer Unterbaugruppe auch löschen möchtest? Das wird so nicht funktionieren.

Probier's mal so (Code ungetestet):

Code:

---

Private Sub ProcessOcc()

Dim oCompDef As ComponentDefinition
Set oCompDef = ThisApplication.ActiveDocument.ComponentDefinition

Dim oPara As Integer
oPara = oCompDef.Parameters.Item("TeilJN").Value

If oPara = 1 Then
    Dim oCompOcc As ComponentOccurrence
   
    For Each oCompOcc In oCompDef.Occurrences
        If oCompOcc.Suppressed = False Then
            If InStr(oCompOcc.Name, "560100:1") Then
                oCompOcc.Delete
            Else
                If oCompOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
                    Call processAllSubOcc(oCompOcc) ' subassembly
                End If
            End If
        End If
    Next
End If

End Sub

Private Sub processAllSubOcc(ByVal oCompOcc As ComponentOccurrence)

Dim oSubCompOcc As ComponentOccurrence

For Each oSubCompOcc In oCompOcc.SubOccurrences
    If oSubCompOcc.Suppressed = False Then
        If InStr(oCompOcc.Name, "560100:1") Then
            oSubCompOcc.Delete
        Else
            If oSubCompOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
                Call processAllSubOcc(oSubCompOcc)
            End If
        End If
    End If
Next

End Sub

---

------------------
MfG
RK

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP