Traverse Assembly & Force all Files to Require Save

[Anonymous]

I'm looking for code that will iterate through all the referenced files in an assembly and set a flag that will force the file to require a save.

The workflow (for the user will be)

1 - Open Assembly
2 - Run my Macro
3 - Click "Save" and ALL files will show as requiring a save.

Thanks,

Steve

[Anonymous]

This macro sets every part referenced by the active assembly to be "dirty"
which means Inventor thinks it has been modified since it was last opened
and needs to be saved.

Public Sub MakeAllDirty()
' Get the active assembly.
Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = ThisApplication.ActiveDocument

' Iterate over all of the files referenced by the assembly.
Dim oRefDoc As Document
For Each oRefDoc In oAsmDoc.AllReferencedDocuments
' Set the document to be dirty.
oRefDoc.Dirty = True
Next
End Sub

--
Brian Ekins
Autodesk Inventor API