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