---

Hallo Leute,

ich habe ein Problem und zwar, möchte ich an ein Teil Material und Render-Stil übergeben.
Hier ein Paar Zeilen:

Dim oApp As Inventor.Application
Dim oAsm As AssemblyDocument
Dim oNewDoc As PartDocument
Dim oMaterial As Material
Dim oRenderStyle As RenderStyle
Dim oTransGeom As TransientGeometry
Dim CurrentTransform As Matrix

Set oApp = GetObject(, "Inventor.Application")
Set oAsm = oApp.ActiveDocument

Set oTransGeom = oApp.TransientGeometry
CurrentTransform.SetToIdentity

Set oNewDoc = oApp.Documents.Open("C:\Temp\Test.ipt", False)

Set oMaterial = oNewDoc.Materials.Item("1.2162 21 MnCr 5")
Set oRenderStyle = oNewDoc.RenderStyles.Item("Chrom")

oMaterial.RenderStyle = oRenderStyle

Call oNewDoc.Update

Das Material bleibt aber immer gleich, egal was ich übergebe. Ich habe in einer anderen Funktion das schon mal gemacht, und es hat gefunzt, aber es war nicht wirklich identisch. Deklarationen wie oben, nur hier:

Dim oDerivedAsmDef As DerivedAssemblyDefinition

Set oPartDoc = oApp.Documents.Add(kPartDocumentObject, oApp.FileManager.GetTemplateFile(kPartDocumentObject))
Set oDerivedAsmDef = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedAssemblyComponents.CreateDefinition(sFilePath & "test.iam")

oDerivedAsmDef.Occurrences.Item("meine Occurence").InclusionOption = kDerivedIncludeAll

Call oPartDoc.ComponentDefinition.ReferenceComponents.DerivedAssemblyComponents.Add(oDerivedAsmDef)

Dim oMaterial As material
Set oMaterial = oPartDoc.Materials.Item("Standard")

Dim oRenderStyle As RenderStyle
Set oRenderStyle = oPartDoc.RenderStyles.Item("Gold (metallisch)")

oMaterial.RenderStyle = oRenderStyle
 
Call oPartDoc.Update

Irgendwie sieht der erste Quellcode "richtiger" als der zweite, es ist aber nicht so.

Vielleicht weiss jemand wo das Problem liegt ?

------------------
Grüße daywa1k3r

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

---

Hi Daywalker,

also wenn ich die wesentlichen Zeilen:

Set oApp = ThisApplication
Set oNewDoc = oApp.Documents.Open("C:\Temp\Test.ipt", False)

Set oMaterial = oNewDoc.Materials.Item("1.2162 21 MnCr 5")
Set oRenderStyle = oNewDoc.RenderStyles.Item("Chrom")

oMaterial.RenderStyle = oRenderStyle

bei mir laufen lasse, so funktioniert das Programm. Ich habe vorher eine test.ipt erzeugt, die das Material "1.2162 21 MnCr 5" enthält mit einem anderen RenderStyle und nach dem Durchlauf war der Renderstyle "chrom".

Es gab mal Probleme mit Materialien und Zugriff via .item("Name"): http://ww3.cad.de/foren/ubb/Forum50/HTML/000909.shtml
aber es scheint, dass der Bug in IV6 behoben ist...

------------------
Grüße Jörgen

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

---

Hallo Jörgen,

ja,... Die Zeile Set oApp = ThisApplication ist beim paste and copy verloren gegangen. Im Projekt ist die schon drinn. Das Problem ist weniger mit Renderstyle, da der immer gleich bleibt. Ich setzte es immer wieder auf "Chrom", weil wen Material umgestellt wird, verstellt sich der Renderstyle auch. Vielleicht konnte ich daswegen keine veränderungen sehen. Mein Problem ist mehr das Material, da es immer gleich bleibt. Wenn Du bei test.ipt manuel irgendein anderes Material zuweist, wirst Du sehen, dass es so auch bleibt. Ich wusste nichts von dem "Name Bug" bei Material, und das sieht genau so aus. Wenn das so ist, wie soll ich denn über den Index auf die Material Liste zugreifen ?!? Ich habe mein Material doch in Form eines Strings "vorliegen". Da ist doch der Zugriff über Name viel einfacher...

Naja, ich hoffe, Du kannst es kurz testen, mit anderen Material.

Danke und

------------------
Grüße daywa1k3r

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

---

mmmh,
wenn Du die Veränderung im Bauteil sehen willst, dann musst du das Material dem Bauteil auch zuweisen:

oPartDoc.ComponentDefinition.Material = oMaterial (oder so ähnlich)

Da liegt vielleicht der Unterschied ziwschen deinen beiden Beispielen, da das Zweite das Material "Standard" manipuliert und das Bauteil wahrscheinlich auf Standard stand...

------------------
Grüße Jörgen

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

---

Hi,

Zitat:

---

oPartDoc.ComponentDefinition.Material = oMaterial

---

Ja, das klingt doch logisch, aber wie übergebe ich ein String an oMaterial ? Da würde es doch meckern. Oder nicht ?

Danke

------------------
Grüße daywa1k3r

Ah ja, oMaterial.Name = "1.2162 21 MnCr 5" könnte funzen. Ich probiere es mal.

[Diese Nachricht wurde von daywa1k3r am 26. November 2002 editiert.]

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

---

Ne, du hast doch oMaterial dir aus der Liste schon rausgesucht:

Set oMaterial = oNewDoc.Materials.Item("1.2162 21 MnCr 5")

Und das jetzt zuweisen...

------------------
Grüße Jörgen

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

---

Nein, das mit "oMaterial.Name =" war Schwachsinn, da ich, wenn überhaupt nur den Namen ändern kann. Ich habe jetzt das

Set oMaterial = oNewDoc.Materials.Item(Die Varialble die das Material enthält)
oNewDoc.ComponentDefinition.Material = oMaterial

probiert, und in debug Modus sehe ich, dass die Variable auf "1.1730 C45W3" steht, obwohl ich "1.2767 x45 NiCrMo 4" ausgewählt habe. Peinlich, nicht Wahr ? Ich schaue erst, dass meine Variablen richtig funzen, dann melde ich mich wieder. Ist ja kein Wunder, dass ich kein Erfolg habe, da "1.1730 C45W3" die Standard Einstellung ist 

Danke

------------------
Grüße daywa1k3r

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

---

Juhu,

es funzt !!! Ich glaube ich weine gerade... Oder auch nicht 

DANKE !!!

------------------
Grüße daywa1k3r

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

---

Ja, das sind so die kurzen Glücksgefühle des Programmiererdaseins.

Aber wehe, der nächste Bug lauert schon und er wird niederträchtiger sein als der vorhergehende...

Viel Spaß auch! 

------------------
Grüße Jörgen

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