Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("Body.2")

Set shapes1 = body1.Shapes

Set pocket1 = shapes1.Item("Pocket.1")


Dim partDocument1 As Document
Dim part1 As Part
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim intParam1 As Parameter
Set intParam1 = parameters1.Item("Integer.2")


If intParam1.value = 0 Then
pocket1.DirectionOrientation = catRegularOrientation
End If

If intParam1.value = 1 Then
pocket1.DirectionOrientation = catInverseOrientation
End If

part1.UpdateObject pocket1

End Sub