Change material content center part through vba

[frederic.vandenplas]

I wrote (by accident  ) a little piece of code that allows me to change the material of default content center parts (out of the box)

Strange, because i cannot change the material throught the interface of a standard cc part (default behaviour)

Even stranger is that i can add unknown materials, but through the iproperties the part shows allways the default (steel, mild ) material,

except in de BOM.

This is a very strange behaviour or even a bug/leak or is there another explanation for it? someone ever came across this?

[wispoxy]

Wow, what a disaster. I would just reset everything back to defaults.

[Wind_Talker]

Hi Frederic,

This is strange indeed. I am more interested in the code. Will you be happy to provide the code for us all?

Your help is appreciated.

Regards

[wispoxy]

Same as @Wind_Talker, I'm interested in the code. Please share.

[frederic.vandenplas]

Public Sub ChangeMaterialAssembly()

' Get the active assembly.
Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument

' Get all of the referenced documents.
Dim oRefDocs As DocumentsEnumerator
Set oRefDocs = oAsmDoc.AllReferencedDocuments

' Iterate through the list of documents.
Dim oRefDoc As Document
For Each oRefDoc In oRefDocs
    oRefDoc.PropertySets(3).Item("Material").Value = "S235JR" '
Next

End Sub

Sub ChangeMaterialPart()

Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument
oPartDoc.PropertySets(3).Item("Material").Value = "S235JR"

End Sub

This code is quite simple but does the "trick"