Hallo zusammen
hab hier schon einige Post durchsucht aber leider nichts gefunden zu Thema Farbüberschreibung zurück setzen.
Ich färbe Bauteile in Baugruppen und Flächen von Bauteilen mit bestimmten Farben per Makro ein das funktiniert auch soweit gut.
Jetzt will ich die Farbüberschreibung wieder entfernen bei noch nicht gespeicherten Teilen geht das gut über zurück aber wenn die Teile gespeichert wurden und dann noch einige Feature hinzugekommen sind geht das mit zurück nicht.
Kann mir jemand von euch sagen wie ich die Überschreibung deaktivieren kann. Die Farbe über gebe ich durch klicken eines Buttons
hier mein Code zu einfärben
Private Sub FarbeAendern()
Dim strColorName As String
strColorName = RS
On Error Resume Next
Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument
If Err Then
MsgBox "A part document must be active."
Exit Sub
End If
Dim oRenderStyle As RenderStyle
Set oRenderStyle = oPartDoc.RenderStyles.Item(strColorName)
If Err Then
MsgBox "Der angegebene Stil """ & strColorName & """ existiert nicht."
Exit Sub
End If
On Error GoTo 0
' Create a list of the selected faces.
Dim oFaceCollection As FaceCollection
Set oFaceCollection = ThisApplication.TransientObjects.CreateFaceCollection
Dim i As Integer
For i = 1 To oPartDoc.SelectSet.count
On Error Resume Next
Dim oFace As Face
Set oFace = oPartDoc.SelectSet.Item(i)
If Err.Number = 0 Then
oFaceCollection.Add oFace
End If
Next
' Set the color of the selected faces.
For Each oFace In oFaceCollection
Call oFace.SetRenderStyle(kOverrideRenderStyle, oRenderStyle)
Next
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP