Hey,
I am trying to make circular pattern for the gear teeth:
Dim swApp As Object 'SldWorks.SldWorks Dim swModel As Object 'SldWorks.modelDoc
swApp = CreateObject("SldWorks.Application") 'Set the Visibility option swApp.Visible =True swApp.NewPart() swModel = swApp.ActiveDoc()
.
.
.
.
.
.
.
.
'Create Circular Pattern swModel.ActivateSelectedFeature() swModel.SelectByID("Cut-Sweep1", "BODYFEATURE", 0, 0, 0) swModel.AndSelectByID("Axis2", "AXIS", 0, 0, 0) swModel.FeatureCircularPattern2(Z_p, 2.0 * Math.PI / Z_p, 0 "NULL", 1) Anyone could give me help why the FeatureCircularPattern2 does not work also FeatureCirPattern Thank you