---

Hallo zusammen,

ich habe per VBA einem Body ein Material zugewiesen. Jetzt möchte ich für dieses Material gerne den InheritanceMode auf 3 setzen. Wie bekomme ich Zugriff auf das Objekt PositionedMaterial für diesen Body?

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

---

Servus

Hast du dir schon die Methode GetMaterialOnBody angeschaut (siehe Doku)?
Oder geht das nur mit "normalen" Materials?

Gruß
Bernd

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

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

---

Wenn ich mir das Material über den MaterialManager mit getMaterialOnBody wieder ausgeben lasse bekomme ich ein Material zurück. Aber wenn ich darauf direkt die Eigenschaft "InheritanceMode" anwende gibts die Fehlermeldung "Objekt unterstützt Eigenschaft/Methode nicht". Ich denke man braucht ein Objekt vom Typ PositionedMaterial oder sowas für die diese EIgenschaft gilt.

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

---

Servus

Wie fügst du das "PositionedMaterial" hinzu?
Liefert dir die Objektauflösung was brauchbares zurück? (eventuell gibt es da undokumentierte Methoden/Funktionen (die dann Intellisense anzeigt)).
In der Doku steht was, dass man über GetItem("CATMaterialVBExt") auf die zugreifen sollte (ungetestet).

Gruß
Bernd

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

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

---

Servus,

ich füge das Material ganz normal über den MaterialManager hinzu und kann es auch über diesen wieder abgreifen.
 

Code:

---

oManager.ApplyMaterialOnBody oRootPart.Bodies.Item(i), oMaterial, LinkMode
oManager.GetMaterialOnBody oRootPart.Bodies.Item(i), appliedMat

---

Auf das appliedMat kann ich "InheritanceMode" aber nicht anwenden.
Die Eigenschaft InheritanceMode läuft unter PositionedMaterials, die eine eigene Gruppe unter den CatMatInterfaces bilden.
Ich habe daher den Verdacht, dass man auf diese anders zugreifen muss, sowie man für die Zuweisung der Materialien auch den MaterialManager nutzen muss.

Code:

---

Set oManager = oRootPart.GetItem("CATMatManagerVBExt")

---

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

---

Servus

Ich hab noch mal was rumprobiert.
Dieser Code läuft bei mir:

Code:

---

Dim oPositionedMaterial As PositionedMaterial

Set oPositionedMaterial = oBody.GetItem("CATMaterialVBExt")
oPositionedMaterial.InheritanceMode = 2

---

Das GetItem einfach auf das Objekt los lassen, an dem das Material hängt (Body, Product, ...).

Gruß
Bernd

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

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

---

Servus,

super, so läufts!!
Aber warum zur Hölle heißt des Material "CATMaterialVBExt" ????

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

---

Servus

Weil es Dassault so festgelegt hat, und es so auch in der Doku steht.
Der Materialmanager ist wohl zum Zuordnen von Material zB aus einer Bibliothek, PositionedMaterial für ein schon zugeordnetes Material.

Gruß
Bernd

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

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

---

Servus,

das ist aber höllisch gut versteckt. 
In der Doku gibt es genau ein Thema dazu, in der "CATMaterialVBExt" genau 1x erwähnt wird. Im ObjectBrowser findet man da gar nichts.

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