' Make this rule trigger when the ID or OD changes
Trigger = ID + OD + GrooveWidth + GrooveSpacing

' Define stuff
Dim oDoc As PartDocument = ThisApplication.ActiveEditDocument
Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition
Dim oSketch As PlanarSketch = oDef.Sketches.Item(1)
Dim oRev As RevolveFeature = oDef.Features.RevolveFeatures.Item("Revolution1")

oDoc.Update

' Define profile
Dim oProfile As Profile = oSketch.Profiles.AddForSolid

Try
' Update the revolution feature to use all the patterned profiles in sketch
oRev.Profile = oProfile
Catch
MsgBox("There's something wrong with your inputs!")
End Try

oDoc.Update