---

Hallo zusammen,

Ich beschäftige mich aktuell damit, wie man eine Material-Bibliothek neu aufsetzen könnte. Datenquelle ist dabei eine Excel-Liste, die den Namen, die Dichte und die Farbe für jedes Material bzw. Werkstoff enthält.

Mein Skript ist bisher so weit erfolgreich, als dass ich für jede Zeile meiner Tabelle auch ein Material mit der richtigen Dichte und dem richtigen Namen erzeuge. Leider weigert sich die Farbe beharrlich zu aktualisieren.
Konkret nutze ich folgenden Quelltext:

Code:

---

    For Each Eintrag In MatBibliothek.Keys
            Dim oMaterial As Material
            oMaterial = oMaterials.Add
            oMaterial.Name = MatBibliothek(Eintrag)(0)
            Dim AnalysisMaterial1 = oMaterial.CreateAnalysisData("SAMAnisotropicMaterial")
            Dim tempNumber As Double = Double.Parse(MatBibliothek(Eintrag)(1))
            tempNumber = tempNumber * 1000
            oMaterial.AnalysisMaterial.PutValue("SAMDensity", tempNumber.ToString)
            Dim renderingMat As RenderingMaterial = oMaterial.CreateRenderingData()
            Dim array(2)
            array(0) = 0
            array(1) = 123
            array(2) = 0
            renderingMat.PutDiffuseColor(array)
        Next

---

Die Zahlen für das RenderingMaterial sind bisher nur Platzhalter, die auch korrekt übertragen werden. Leider müsste ich jetzt jedes Material von Hand öffnen und schließen, damit es auch mit der korrekten Farbe angezeigt wird.
Was mache ich falsch? Was fehlt mir?

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

---

Servus

Musst du vielleicht noch weitere Werte definieren (weitere Farben und Koeffizienten)?
ggf werden ja beim manuellen öffnen der Materialdefinition diese Werte automatisch angelegt (mit Lokal/Watchfenster vor und nach dem öffnen prüfen)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Moin Bernd,
Das probiere ich mal aus. Vielen Dank für den Hinweis 
Ich schreibe hier rein, wenn ich erfolgreich war 

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