FeatureCircularPattern2 always fails

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

SolidworksApi macros