Delete Suppressed Features in Part Document using Macro

[Anonymous]

Hi,

This may help someone who looks for macro to delete the Suppressed Features in Part Document.

----------------------------------------

Function Delete_Suppressed_Feature()

Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.ActiveDocument
 
    ' Iterate through all featuresand Delete the Suppressed Features.
    Dim oPartFeature As PartFeature
    For Each oPartFeature In oPartDoc.ComponentDefinition.Features
        If oPartFeature.Suppressed = True Then
            On Error Resume Next
            oPartFeature.Delete
        End If
    Next
   
    MsgBox "All Suppressed Parts Features are now Deleted."

End Function

----------------------------------------

Regards

Alex

[MechMachineMan]

Annnd answers to the inevitable questions of "Can you make it not delete sketches?" etc. can be found here:

http://help.autodesk.com/view/INVNTOR/2018/ENU/?guid=GUID-32BF44C7-7F65-4991-AE07-2E31E0AD8E63