---

Hallo zusammen 

bei uns haben sich die Materialbeschreibungen (insbesondere die Farben) geändert.

Wenn ich mit dem Makrorekorder aufnehme, das aktuelle Material neu zu laden, dann ändert sich die Farbe.
Wenn ich aber später das aufgenommene Makro laufen lasse, dann geschieht "nichts" ?!

PS : ich habe nachträglich das "ForceRebuild3" eingefügt - bringt aber leider auch nichts.

Was muss ich da ändern ? - DANKE !!

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

boolstatus = Part.Extension.SelectByID2("Unbekannt", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Unbekannt", "BROWSERITEM", 0, 0, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True
Part.SetMaterialPropertyName2 "Standard", "V:/Solid Works/Materialdatenbank/materialdatenbank branscheid.sldmat", "Edelstahl - NIRO"
Part.ClearSelection2 True

boolstatus = Part.ForceRebuild3(True)

End Sub

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

---

Moin,

ich habe hatte das gleiche Problem. ich habe das so gelöst, dass ich dann das Material einmal weggenommen und dann wieder gesetzt habe.

Hier mal der Ausschnitt

Code:

---

bRet = ModelDoc.SetMaterialPropertyName2("Standard", "", "")
bRet = ModelDoc.SetMaterialPropertyName2("Standard", "V:/Solid Works/Materialdatenbank/materialdatenbank branscheid.sldmat", "Edelstahl - NIRO")

---

Klappt bei mir ohne Probleme

Gruß Pete

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

---

"wir verstehen uns" - DANKE - es hat geklappt !

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