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 ObjectDim boolstatus As BooleanDim swFeature As SldWorks.FeatureDim nbrinstances As IntegerDim swCircularPatternFeatureData As ICircularPatternFeatureDataSet swApp = Application.SldWorksSet Part = swApp.ActiveDocboolstatus = Part.Extension.SelectByID2("Kreismuster1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)Set swFeature = Part.SelectionManager.GetSelectedObject6(1, -1)Set swCircularPatternFeatureData = swFeature.GetDefinitionswCircularPatternFeatureData.ISetSkippedItemArray 0, 0End Sub
Sincerely,
Udo
SolidworksApi macros