---

Guten Tag zusammen,

nach langer Zeit darf ich mal wieder was machen und stehe gleich auf den "Schlauch".
Kann mir einer sagen (schreiben) wie man ein "Render Material" einem Körper zuordnet. => Zum auslesen habe ich was gefunden.
Da ich nach wie vor nicht so sicher im Programmieren (VB) bin würde ich mich über ein Schnipsel freuen.
Ich benötige lediglich den Bereich für die Auswahl und Zuordnung eines "Render Materials".

Vielen Dank für eure Mühe.

      Rolf

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

---

Hallo Rolf,

wird beim interaktiven Zuweisen etwas aufgezeichnet ?

Gruß, Michael

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit selt'ner als das "Bitte, Bitte".

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

---

Hallo Michael,

leider nicht.

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

---

Über welche Methode kannst du auslesen ? Evtl. hilft das auf die Sprünge.

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit selt'ner als das "Bitte, Bitte".

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

---

Hallo Michael,

hier der Code:

Option Strict Off
Imports System
Imports System.Collections
Imports NXOpen
Imports NXOpen.UF
Module report_studio_materials_in_part
Dim theSession As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim theUI As UI = UI.GetUI()
Dim lw As ListingWindow = theSession.ListingWindow
Sub Main
Dim materials As New SortedList()
get_part_materials(materials)
lw.Open()
If materials.Count = 0 Then
lw.WriteLine("Part has no materials applied.")
Else
For Each material As DictionaryEntry in materials
lw.WriteLine("Part Material " + material.Key.ToString() + " is " + material.Value)
Next
End If
End Sub
Function get_part_materials(ByRef materials As SortedList)
Dim matTag As Tag = Tag.Null
ufs.Obj.CycleObjsInPart ( theSession.Parts.Work.Tag, _
UFConstants.UF_material_type, _
matTag)
While matTag <> Tag.Null
Dim matName As String = Nothing
ufs.Obj.AskName(matTag, matName)
materials.Add(matTag, matName)
ufs.Obj.CycleObjsInPart ( theSession.Parts.Work.Tag, _
UFConstants.UF_material_type, _
matTag)
End While
End Function
End Module

Das Ergebnis ist z.B.:

Part Material 77140 is Schwarz pulverbeschichtet
Part Material 77169 is Aluminium

Gruß Rolf

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

---

Hallo Rolf,

durch ein Cycle kriegst Du zwar die im Part vorhandenen, aber nicht das einem Body zugewiesene Material. Das hilft also leider nicht weiter.

Gruß, Michael

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit selt'ner als das "Bitte, Bitte".

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

---

Hallo Michael,

kommt ein bisschen spät die Antwort. => Sorry.

Ja, hast recht.
Nun stehe ich noch mehr auf dem Schlauch.

Mal sehen, eventuell kommt ja noch mal was.
Ich werde jetzt wieder weiter sehen ob ich was dazu finde.

Gruß

Rolf

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

---

Hallo Rolf,

über UF_DISP kommst Du an die Materialien dran. Da gibt's z.B. ein AskMaterial zur Abfrage des Materials.

Gruß, Michael

------------------
Ein Mensch wird laut, wenn er was will;
wenn er's erst hat, dann wird er still;
Das "Danke" ist, nach alter Sitte,
Weit selt'ner als das "Bitte, Bitte".

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

---

Hallo Michael,

ich werde mir das mal ansehen.
Ob ich das umsetzen kann, mal sehn.

Vielen Dank

Rolf

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