Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Anonymous

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