Code:
Language="VBSCRIPT"Sub CATMain()
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set parameters1 = part1.Parameters
Set angle1 = parameters1.Item("Winkelstellung Kurbelwelle")
Dim n 'As Integer
n = 0
For n = n To 180
angle1.Value = n
'angle1.Value = 1.000000
part1.Update
Set bodies1 = part1.Bodies
Set body1 = bodies1.Item("PartBody")
Set sketches1 = body1.Sketches
Set sketch1 = sketches1.Item("Sketch.1")
Set constraints1 = sketch1.Constraints
Set constraint1 = constraints1.Item("Radius.5")
Set length1 = constraint1.Dimension
length1.Value = 10.000000
Set constraint2 = constraints1.Item("Offset.6")
Set length2 = constraint2.Dimension
length2.Value = 42.000000
Set constraint3 = constraints1.Item("Angle.7")
constraint3.AngleSector = catCstAngleSector3
Set constraint4 = constraints1.Item("Offset.15")
Set length3 = constraint4.Dimension
length3.Value = 87.000000
Set constraint5 = constraints1.Item("Offset.17")
Set length4 = constraint5.Dimension
length4.Value = 65.000000
Set constraint6 = constraints1.Item("Radius.20")
Set length5 = constraint6.Dimension
length5.Value = 10.000000
Set constraint7 = constraints1.Item("Offset.21")
Set length6 = constraint7.Dimension
length6.Value = 28.500000
Set constraint8 = constraints1.Item("Length.24")
Set length7 = constraint8.Dimension
length7.Value = 145.000000
Set relations1 = part1.Relations
Set designTable1 = relations1.Item("DesignTable.1")
designTable1.AddNewRow
Next
End Sub