---

Hacken_Erscheinungsbild.PNG

Hallo CADŽler,

wenn ich per Hand einem Teil ein Material zuweise kann ich den Hacken "Anwenden des Erscheinungsbilds von..." setzten oder auch nicht (ist bei mir Standardmäßig gesetzt).

Kann ich den Hacken auch beim Material ändern per VBA setzten? 
Ich habe in der API-Hilfe keine entsprechende Funktion gefunden.

Gruß Christoph

------------------
Wer einen Fehler findet darf ihn behalten,
wer zwei findet kann beide behalten,
ab fünf Fehler gibs Rabatt :-)

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

---

Gefunden im SolidWorks-Forum:

Code:

---

Dim swApp As SldWorks.SldWorks
Dim swPart As SldWorks.PartDoc
Dim vMat As Variant

Sub main()

Set swApp = Application.SldWorks
Set swPart = swApp.ActiveDoc

vMat = swPart.Extension.GetMaterialPropertyValues(swInConfigurationOpts_e.swThisConfiguration, "")

swPart.SetMaterialPropertyName2 "", "", "Brass"
swPart.Extension.SetMaterialPropertyValues vMat, swInConfigurationOpts_e.swThisConfiguration, ""

swPart.EditRebuild3

End Sub

---

Kleiner Tip: Wenn ich sowas suche, stelle ich mir mein SWX mal kurz auf englisch um, schaue, wie der Befehl oder das Feature im englischen genannt wird und suche dann damit...

Gruß, Jens 

------------------
CSWA, CSWP, CSWPA-SM =)

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

---

Hallo Jens,

Danke funktioniert  

Nur zum Verständnis meinerseits:

Die Funktion

Code:

---

vMat = swPart.Extension.GetMaterialPropertyValues(swInConfigurationOpts_e.swThisConfiguration, "")

---

kopiert die Erscheinungsbilder und die Funktion

Code:

---

swPart.Extension.SetMaterialPropertyValues vMat, swInConfigurationOpts_e.swThisConfiguration, ""

---

fügt sie nach dem ändern des Materials wieder ein?

Das mit dem Englisch stellen mache ich auch, aber mit "appearance" bin ich nur auf Funktionen gestoßen die Die Erscheinungsbilder auf einzelne  Köper und Oberflächen und nicht die des ganzen Teils kopiert.

Gruß Christoph

------------------
Wer einen Fehler findet darf ihn behalten,
wer zwei findet kann beide behalten,
ab fünf Fehler gibs Rabatt :-)

[Diese Nachricht wurde von Christoph Weise am 13. Apr. 2017 editiert.]

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

---

Zitat:

---

Original erstellt von Christoph Weise:
[B
Die Funktion [...] kopiert die Erscheinungsbilder und [...]
fügt sie nach dem ändern des Materials wieder ein?
[/B]

---

Frei nach Radio Eriwan: Im Prinzip ja. :D

Mit GetMaterialPropertyValues liest du ja alle Eigenschaften aus:

Zitat:

---

The material values returned include the face color (R,G,B values), reflectivity (ambient, diffuse, specular, shininess), transparency, and emission.

---

Mit der nächsten Code-Zeile wird aber nur der Material-Name überschrieben, der Rest bleibt erhalten.

Beim SetMaterialPropertyValues wird damit das Material mit den alten Eigenschaften aber einem neuem Material-Namen eingesetzt.

Gruß, Jens

------------------
CSWA, CSWP, CSWPA-SM =)

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