AutoCAD Inventor :: Copy Filename To Part Number For All Parts And Sub-assemblies In Assembly

here's a macro I wrote to copy the filename to the Part Number iProperty for all parts and sub-assemblies contained in a top-level assembly. I wrote this after using a bunch of custom iParts and all the Part Numbers were the same for each part! (my fault of course, but a pain to fix one at a time).

Public Sub SetAllComponentPartNumbersToFileName()
Dim oAsmDoc As AssemblyDocument
Set oAsmDoc = GetActiveAssembly
If oAsmDoc Is Nothing Then Exit Sub
SetAssemblyComponentPartNumbersToFileName oAsmDoc
End Sub

[code]....