Autodesk Inventor 宏代码：清除零件外观替代

下面是一个示例代码，可以清除当前零件的外观替代：

Sub ClearAppearanceOverrides()
    Dim doc As PartDocument
    Set doc = ThisApplication.ActiveDocument
    
    Dim compDef As PartComponentDefinition
    Set compDef = doc.ComponentDefinition
    
    Dim appearOverrides As AppearanceOverrides
    Set appearOverrides = compDef.AppearanceOverrides
    
    appearOverrides.ClearAllOverrides
End Sub

请将此代码复制到 Autodesk Inventor 的宏编辑器中，并在需要清除外观替代的时候执行该宏。