Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByRay(-5.81596588411344E-02, 2.47654446213232E-02, 2.34517259855238E-04, -0.577381545199981, -0.577287712085548, -0.577381545199979, 1.57359077741066E-03, 1, False, 0, 0)
Set swedge = Part.SelectionManager.GetSelectedObject6(1, -1)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByRay(-1.33680887414585E-02, -9.08584763345743E-03, -1.99999999999534E-03, -0.821234743714012, -0.560561193384781, 0.106511239726198, 1.57359077741066E-03, 2, False, 0, 0)
Set swface = Part.SelectionManager.GetSelectedObject6(1, -1)
Part.ClearSelection2 True
Set featdata = Part.FeatureManager.CreateDefinition(swFmTabAndSlot)
Set grp = featdata.SelectionAddNewGroup
grp.Offset = True
grp.SelectionTabEdge = swedge
grp.SelectionSlotFace = swface
Part.FeatureManager.CreateFeature featdata
Stop
' Select Tab and Slot-Tab1 in the FeatureManager design tree; 5 tabs/slots created on the part
' Press F5 to continue
Set feat = Part.SelectionManager.GetSelectedObject6(1, -1)
Set newFeatData = feat.GetDefinition
Dim var As Variant
newFeatData.AccessSelections Part, Nothing
var = newFeatData.SelectionGetGroups
var(0).Offset = False
var(0).SpacingType = 0
var(0).SpacingNumberOfInstances = 1
feat.ModifyDefinition newFeatData, Part, Nothing
' Select Tab and Slot-Tab1 in the FeatureManager design tree; only one tab and slot remain