---

Inv_Koerpereigenschaften.jpg

Hallo zusammen,

ich habe eine Baugruppe bekommen in der bei allen Bauteilen, in den Körpereigenschaften unter Körper-Darstellung "Vorgabe" steht, ich hätte da gerne "Wie Bauteil" drin.

ist es möglich in einer geöffneten Baugruppe mit x Unterbaugruppen und y Bauteilen für alle Bauteile diese Eigenschaft einzustellen?

MfG MacFly

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

[Diese Nachricht wurde von MacFly8 am 10. Jul. 2025 editiert.]

[Diese Nachricht wurde von MacFly8 am 10. Jul. 2025 editiert.]

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

---

Moin

Kannst du mal diese iLogicregel in der Baugruppe probieren?

Code:

---

Dim oAssDoc As AssemblyDocument = ThisDoc.Document
Dim oPartDoc As PartDocument
Dim oRefedDoc As Document

For Each oRefedDoc In oAssDoc.AllReferencedDocuments
If oRefedDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
oPartDoc = DirectCast(oRefedDoc, PartDocument)
If oPartDoc.ComponentDefinition.FactoryDocument IsNot Nothing Then oPartDoc=oPartDoc.ComponentDefinition.FactoryDocument
    Dim obj As Object
    For Each obj In oPartDoc.ComponentDefinition.AppearanceOverridesObjects
        If TypeOf obj Is SurfaceBody Then
Dim oSB As SurfaceBody = DirectCast(obj, SurfaceBody)
            oSB.AppearanceSourceType = AppearanceSourceTypeEnum.kPartAppearance
        ElseIf TypeOf obj Is PartFeature Then
Dim oPF As PartFeature = DirectCast(obj, PartFeature)
            oPF.AppearanceSourceType = AppearanceSourceTypeEnum.kBodyAppearance
        ElseIf TypeOf obj Is Face Then
Dim oFace As Face = DirectCast(obj, Face)
            oFace.AppearanceSourceType = AppearanceSourceTypeEnum.kFeatureAppearance
        Else
            MsgBox("Unbekannter Überschreibungstyp: " & TypeName(obj))
        End If
    Next

End If
Next

oAssDoc.Update

---

------------------
MfG
Ralf

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

---

Moin Ralf,

danke, danke ... dein Code l#uft problemlos durch, hat mir gerade die erste Baugruppe mit 2424 Bauteilen in ca. 3min.
durchgerasselt.
Jetzt noch 12 Baugruppen mit insgesamt ca. 15000 Bauteilen...

Du hast mir mein Wochenende gerettet...    

MfG Mac

------------------
- - - der Erleuchtung ist es egal wie du Sie erlangst - - -
- - - Wir leben alle unter demselben Himmel, aber wir haben nicht alle denselben Horizont - - - (K. Adenauer)

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

---

Moin

Schönes Wochenende 

------------------
MfG
Ralf

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