---

Ich habe einen Bauteil mit abgeleiteten Skizzen von meinem Masterlayout, nun möchte ich alle nicht verwendeten Skizzen aus der abgeleiteten Komponente entfernen. Weiß jemand warum das Makro unten nicht funktioniert bzw. keine Auswirkungen zeigt?

Public Sub test()

    If ThisApplication.ActiveEditObject.DocumentType = kPartDocumentObject Then
        Dim oPart As PartDocument
        Set oPart = ThisApplication.ActiveEditObject
        Dim derivedPart As DerivedPartComponent
        Dim item As DerivedPartEntity
       
        For Each derivedPart In oPart.ComponentDefinition.ReferenceComponents.DerivedPartComponents
            For Each item In derivedPart.Definition.Sketches
                item.IncludeEntity = False
            Next
        Next
       
        ThisApplication.ActiveView.Update
    End If
End Sub

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

---

Hallo

Gilt für dein Problem auch: Link

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

[Diese Nachricht wurde von rkauskh am 17. Sep. 2010 editiert.]

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