Involute - Visual Basic Scripting / Generative Shape Design - CATIA V5

Sub CATMain() Set partDocument1 = CATIA.ActiveDocument Set part1 = partDocument1.Part Set parameters1 = part1.Parameters Set hybridShapeFactory1 = part1.HybridShapeFactory Set hybridBodies1 = part1.HybridBodies Set angle1 = parameters1.Item("angle_of_rotation") Set hB1 = hybridBodies1.Item("construction_of_involute") Set hS1 = hB1.HybridShapes Set hS_point_of_involute = hS1.Item("point_of_involute") Set hB2 = hybridBodies1.Item("points_of_involute") Set hS2 = hB2.HybridShapes Set hS_standpoint_of_involute = hS2.Item("standpoint_of_involute") Set hybridShapeSpline1 = hybridShapeFactory1.AddNewSpline() hybridShapeSpline1.SetSplineType 0 hybridShapeSpline1.SetClosing 0 ReDim xyz(3) For A = 0.01 To 180 Step 0.5 angle1.Value = A part1.Update hS_point_of_involute.GetCoordinates xyz Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(xyz(0), xyz(1), xyz(2)) hB2.AppendHybridShape hybridShapePointCoord1 part1.Update Set reference1 = part1.CreateReferenceFromObject(hybridShapePointCoord1) hybridShapeSpline1.AddPointWithConstraintExplicit reference1, Nothing, -1#, 1, Nothing, 0# Next hB1.AppendHybridShape hybridShapeSpline1 part1.InWorkObject = hybridShapeSpline1 part1.Updat End Sub