Hallo
I want to delete all Skipped Items from a Circular Pattern. I have written a Code which is running without any error message but the pattern is not changed.

Why does the code not work?

Sub main()
Dim swApp As Object
Dim boolstatus As Boolean
Dim swFeature As SldWorks.Feature
Dim nbrinstances As Integer
Dim swCircularPatternFeatureData As ICircularPatternFeatureData
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Kreismuster1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Set swFeature = Part.SelectionManager.GetSelectedObject6(1, -1)
Set swCircularPatternFeatureData = swFeature.GetDefinition
swCircularPatternFeatureData.ISetSkippedItemArray 0, 0
End Sub