Anonymous
in reply to:
Anonymous
06-17-2016
02:50 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-17-2016
02:50 AM
Here in VBA. This will change material for all parts also in sub-assemblies. Material has to exist in material library.
Dim oApp As Inventor.Application
Set oApp = ThisApplication
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim strMaterialName As String
strMaterialName = "Aluminium"
Dim oOcc As ComponentOccurrence
For Each oOcc In oDoc.ComponentDefinition.Occurrences.AllLeafOccurrences
oOcc.Definition.Material = oDoc.Materials.Item(strMaterialName)
Next