Change IPT iProperty "Material" with a VBA macro

[isocam]

Can anybody help???

Does anybody know how to change an "IPT" files iProperty "Material" with a VBA macro?

For example,

If I have created a part (ipt) file, the iProperties "material" is set to "Default"

How can I change the material to say...."GOLD" (Example Only!!!) using a AutoDesk Inventor VBA macro?

Many thanks in advance!!!!

Darren

[Yijiang.Cai]

Hi Darren,

Please see the code lines below -

Sub test()
Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument

oPartDoc.ComponentDefinition.Material = oPartDoc.Materials("Gold")

oPartDoc.Update2
End Sub

Hope it helpful for you!