---

An einem Bauteil (ipt) habe ich an diversen Elementen Farben definiert. Nun möchte ich die vorhandenen Farben auf den Flächen entfernen, so dass ich die an den Elementen beibehalten bleiben. Dies funktioniert nicht mit Überschreibung löschen. Und ich möchte nicht jede Fläche einzeln anwählen. Hat jemand eine Idee?

[Diese Nachricht wurde von DerungsPhilip am 15. Jun. 2015 editiert.]

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

---

du kannst features auswaehlen oder bodies, wenn du Multibody machst

------------------
alle Räder stehen still, wenn Kinematiks starker Arm das will

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

---

Hi,

ggf. alle Flächen per VBA-Makro auswählen.

Dann Überschreibung entfernen auswählen.
Der letzte Schritt kann bestimmt auch in VBA umgesetzt werden.
Habe hierzu aktuell leider nicht die Zeit.

Sorry.

Grüße
MB-Ing.

Public Sub alleflaechen()
'Wählt alle Flächen des aktiven Bauteil aus.

On Error Resume Next
' No Documents, then Exit
If ThisApplication.Documents.Count = 0 Then Exit Sub

' No Part-Dokument, then Exit
If ThisApplication.ActiveDocument.DocumentType <> kPartDocumentObject Then Exit Sub

    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim osurfbody As SurfaceBody
    Dim oface As Face

    For Each osurfbody In oPart.ComponentDefinition.SurfaceBodies
        For Each oface In osurfbody.Faces
            oPart.SelectSet.Select oface
        Next
    Next
End Sub

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

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

---

WM1.png WM2.png

Hi,

vllt. funzt es auch ohne Makro.

Extras > Anpassen > Tastatur

Kategorie Extras, Filter Alle

Dem Befehlsname "Löschen" eine Taste zuweisen (WM=Wie Material, ich benutze gerne "sprechende" Kürzel, WB=Wähle Bauteil etc.)

Dann sollte bei der Eingabe der Tastenkombi ein entsprechender Dialog erscheinen, in dem man alle Überschreibungen rasch entfernen kann.

HTH.

Grüße
MB-Ing.

------------------
Wissen ist Macht. Nichts wissen macht auch nichts  

[Diese Nachricht wurde von mb-ing am 18. Jun. 2015 editiert.]

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

---

Zitat:

---

Original erstellt von mb-ing:
... ein entsprechender Dialog erscheinen, in dem man alle Überschreibungen rasch entfernen kann. ...

---

Nur möchte DerungsPhilip nicht alle Überschreibungen entfernen, sondern nur die der Flächen. Die Überschreibungen der Elemente sollen ja erhalten bleiben.

Zitat:

---

Original erstellt von DerungsPhilip:
... Nun möchte ich die vorhandenen Farben auf den Flächen entfernen, so dass ich die an den Elementen beibehalten bleiben. ...

---

Und leider funktioniert die Auswahlpriorität nicht bei der Auswahl der zu entfernenden Überschreibungen.

------------------
Michael Puschner
Autodesk Inventor Certified Expert
Autodesk Inventor Certified Professional
Mensch und Maschine Scholle GmbH

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

---

Aso sorry.

dann ggf. doch per Makro...

Grüße
MB-Ing.

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

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

---

Hallo zusammen,

in folgendem Makro werden alle Flächen des aktiven BT's evaluiert und die bestehende Farbüberschreibung auf "Vorgabe" gesetzt.

Das KE sollte hierbei unberührt bleiben.

Oder habe ich das Ganze wieder falsch aufgefasst? ^^

Grüße

MB-Ing.

--------------------------------------------------

Public Sub AlleFlaechen()
'MB-Ing.
'Wählt alle Flächen des aktiven Bauteil aus und weißt dessen Flächen den RenderStyle "Vorgabe" zu (Sprachpaket, individuelle Gegebenheiten etc. beachten).

'Fehlerhandhabung
On Error Resume Next

' Wenn kein Dokument geöffnet ist » Makro beenden
If ThisApplication.Documents.Count = 0 Then Exit Sub

' Wenn kein Bauteil-Dokument geöffnet ist » Makro beenden
If ThisApplication.ActiveDocument.DocumentType <> kPartDocumentObject Then Exit Sub

    Dim oPart As PartDocument
    Set oPart = ThisApplication.ActiveDocument
   
    Dim osurfbody As SurfaceBody
    Dim oface As Face

    For Each osurfbody In oPart.ComponentDefinition.SurfaceBodies
        For Each oface In osurfbody.Faces
            oPart.SelectSet.Select oface
            oface.SetRenderStyle kOverrideRenderStyle, oPart.RenderStyles("Vorgabe") 'Hier RenderStyle eintragen
        Next
    Next
End Sub

------------------
Wissen ist Macht. Nichts wissen macht auch nichts 

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