---

Wie kann ich in VBA mit dem ApprenticeServer das Material (Werkstoff) eines Teiles ändern? alle anderen iProps lassen sich ja damit überschreiben nur mit dem Material habe ich Schwierigkeiten.
Alternativ suche ich nach einem schnellen Weg den Wekstoff mehrer Teile von außen (möglichst Excel) zu ändern.

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

---

Hi

Material wird nicht über die iProps geschrieben, sondern über PartDocument.ComponentDefinition.Material

Code:

---

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oMat As Material
Set oMat = oDoc.Materials.Item("Aluminium - 6061")

oDoc.ComponentDefinition.Material = oMat

End Sub

---

Müßtest du mal mit Apprentice testen. Wenn ein Not implemented Fehler kommt, geht's nicht. Eventuell müssen die physikalischen Eigenschaften noch aktualisiert werden.

------------------
MfG
RK

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

---

Ne war schon klar wie das mit Inventor geht , das problem mit dem Apprentice ist das das oDoc As ApprenticeServerDocument die eigenschaft ComponentDefinition.Material nicht hat und so sich damit nicht updaten läßt, andere vorschläge, denn der Weg mit dem Inventor.Document ist ja doch viel langsamer, läßt sich mit dem ApprenticeServerDocument der DisplayName verändern ???? wenn ja wie ?
zum Anderen is das Material im gewissen Sinne doch ein iProperty  zum auslesen geht es auch so :

oDoc As ApprenticeServerDocument
oDoc.PropertySets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").ItemByPropId(kMaterialDesignTrackingProperties).Value

[Diese Nachricht wurde von HEINA-CAD am 11. Mai. 2011 editiert.]

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