Hi,
not quite clear what you really wanted to do. To get the name
of a material that is assigned to a part you can use the
properties:
Dim sMaterial As String
sMaterial = <oDoc>.Properties.Item("MechanicalModeling")("Material").Value
To assigne a new one you can read the Material.mtl and pull
the values from it
dy