How to skip the holes (2,1) and 3,1 This program skip alwaysthe Hole (2,1) why?
boolstatus = Part.Extension.SelectByID2("Hole1", "BODYFEATURE", 0,0, 0, False, 4, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Axis_X", "AXIS", 0, 0, 0,True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Axis_Y", "AXIS", 0, 0, 0,True, 2, Nothing, 0)
Set swPattern = Part.FeatureManager.FeatureLinearPattern2(3, 3 *25.4 / 1000, 2, 4 * 25.4 / 1000, False, False, "NULL", "NULL",False)
Part.ClearSelection2 True
Set swLPattern = swPattern.GetDefinition
swLPattern.SkippedItemArray = Array(2, 1)
swLPattern.SkippedItemArray = Array(3, 1)
boolstatus = swPattern.ModifyDefinition (swLPattern, Part, Nothing)
Although
swLPattern.SkippedItemArray = Array(1, 1)
He skip the Hole (2,1) again
Help me
Marc
SolidworksApi macros
boolstatus = Part.Extension.SelectByID2("Hole1", "BODYFEATURE", 0,0, 0, False, 4, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Axis_X", "AXIS", 0, 0, 0,True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Axis_Y", "AXIS", 0, 0, 0,True, 2, Nothing, 0)
Set swPattern = Part.FeatureManager.FeatureLinearPattern2(3, 3 *25.4 / 1000, 2, 4 * 25.4 / 1000, False, False, "NULL", "NULL",False)
Part.ClearSelection2 True
Set swLPattern = swPattern.GetDefinition
swLPattern.SkippedItemArray = Array(2, 1)
swLPattern.SkippedItemArray = Array(3, 1)
boolstatus = swPattern.ModifyDefinition (swLPattern, Part, Nothing)
Although
swLPattern.SkippedItemArray = Array(1, 1)
He skip the Hole (2,1) again
Help me
Marc
SolidworksApi macros