---

Hallo Zusammen,

ich denke dass wurde schon öfters gefragt, jedoch bitte ich um Eure mithilfe.

Ich würde gerne in der Baugruppe eine netsprechende Fläche einfärben. Ich hatte auch schon mal was gefunden, hedoch weiß i9ch nicht mehr wo.

Ich würde mich über entsprechende Vorschläge freuen.

Danke.

Gruß Nitti

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

---

Hallo Nitti

Schau mal hier

Grüße

EIBe 3D

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

---

Leider hilft mir das nicht so richtig weiter.

Ich müsste in der Baugruppe ein Fläche eines Bauteils einfärben:

Bauspiel:

2 Flacheisen werden erst verschweißt.
An eine Flacheisen wird danach eine Fläche abgefräßt.
Ich möchte diese eine Fläche kenntlich machen.

MFG

Nitti

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

---

Bearbeiten in der Baugruppe und dann diese Bearbeitung eine andere Farbe geben.
habe ich gerade probiert, geht gar nicht! 
Früher habe ich das mal gemacht, weiß aber nicht mehr wie?

[Diese Nachricht wurde von Xantes am 07. Mai. 2021 editiert.]

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

---

Hallo zusammen,

es ist nicht möglich einer Fläche eines Teils auf Baugruppenebene einzufärben. Dafür muss die Fläche in der ipt eingefärbt werden. Bei einer Baugruppenbearbeitung wird Bearbeitung allerdings nicht in die ipt übernommen. Somit ist in der ipt auch keine Fläche vorhanden welche eingefärbt werden kann. Zu Darstellungszwecken wäre es möglich die unbearbeiteten ipts in AKs zu übernehmen ,dort die Bearbeitung durchzuführen und einzufärben.

Angehängtes Makro ist in der Lage direkt aus der BG heraus eine Fläche im Bauteil einzufärben. Aber, wie oben erwähnt muss die Fläche bereits im Bauteil vorhanden sein ansonsten kommt es zu einem Fehler.

Code:

---

Public Sub FlaecheBGFaerben()
    Dim oSelectSet As SelectSet
    Set oSelectSet = ThisApplication.ActiveDocument.SelectSet
   
    Dim Obj As Object
   
   
    Set Obj = ThisApplication.CommandManager.Pick(kPartFaceFilter, "Element Wählen")
   
    Call oSelectSet.Select(Obj)
   
    On Error Resume Next
    If oSelectSet.Count <> 1 Then
        Exit Sub
    End If
   
    Dim oFaceProxy As FaceProxy
    Set oFaceProxy = oSelectSet.Item(1)
   
    If oFaceProxy Is Nothing Then
        Exit Sub
    End If
    On Error GoTo 0
   
    Dim oFace As Face
    Set oFace = oFaceProxy.NativeObject
   
    Dim oDoc As Document
    Set oDoc = oFace.Parent.ComponentDefinition.Document
   
    Dim oStyle As RenderStyle
    Set oStyle = oDoc.RenderStyles.Item("Rot") 'Farbe anpassen, muss vorhanden sein !
   
    Call oFace.SetRenderStyle(kOverrideRenderStyle, oStyle)
End Sub

---

Grüße

EIBe 3D

Edit: hier noch ein Workaround um Baugruppenbearbeitungen sichtbar zu machen
https://ww3.cad.de/foren/ubb/Forum50/HTML/025060.shtml#000002

Würde man auch über ein Makro lösen können

[Diese Nachricht wurde von EIBe 3D am 10. Mai. 2021 editiert.]

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