Attribute VB_Name = "build_planes"
Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim hybridShapeCircleExplicit1 As HybridShapeCircleExplicit
Set hybridShapeCircleExplicit1 = parameters1.Item("Kreis.1")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim parameters2 As Parameters
Set parameters2 = part1.Parameters

Dim hybridShapePointExplicit1 As HybridShapePointExplicit
Set hybridShapePointExplicit1 = parameters2.Item("Punkt.298")

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromObject(hybridShapePointExplicit1)

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapePointOnCurve1 As HybridShapePointOnCurve
Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveWithReferenceFromDistance(reference1, reference2, 50#, False)

hybridShapePointOnCurve1.DistanceType = 1

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Planes")

hybridBody1.AppendHybridShape hybridShapePointOnCurve1

part1.InWorkObject = hybridShapePointOnCurve1

part1.Update

Dim parameters3 As Parameters
Set parameters3 = part1.Parameters

Dim length1 As Length
Set length1 = parameters3.Item("Punkt\Spacing")

length1.Value = 10#

Dim reference3 As Reference
Set reference3 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference4 As Reference
Set reference4 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePlaneNormal1 As HybridShapePlaneNormal
Set hybridShapePlaneNormal1 = hybridShapeFactory1.AddNewPlaneNormal(reference3, reference4)

hybridBody1.AppendHybridShape hybridShapePlaneNormal1

part1.InWorkObject = hybridShapePlaneNormal1

part1.Update

Dim reference5 As Reference
Set reference5 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve2 As HybridShapePointOnCurve
Set hybridShapePointOnCurve2 = hybridShapeFactory1.DuplicateGSMSpec(reference5)

Dim reference6 As Reference
Set reference6 = part1.CreateReferenceFromObject(hybridShapePointOnCurve2)

Dim reference7 As Reference
Set reference7 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference6, reference7

Dim relations1 As Relations
Set relations1 = part1.Relations

Dim parameters4 As Parameters
Set parameters4 = part1.Parameters

Dim length2 As Length
Set length2 = parameters4.Item("Punkt\Spacing")

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("", "", length2, "Punkt\Spacing * 2")

Dim reference8 As Reference
Set reference8 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference9 As Reference
Set reference9 = part1.CreateReferenceFromObject(hybridShapePointOnCurve2)

Dim hybridShapePlaneNormal2 As HybridShapePlaneNormal
Set hybridShapePlaneNormal2 = hybridShapeFactory1.AddNewPlaneNormal(reference8, reference9)

hybridBody1.AppendHybridShape hybridShapePlaneNormal2

part1.InWorkObject = hybridShapePlaneNormal2

part1.Update

Dim reference10 As Reference
Set reference10 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve3 As HybridShapePointOnCurve
Set hybridShapePointOnCurve3 = hybridShapeFactory1.DuplicateGSMSpec(reference10)

Dim reference11 As Reference
Set reference11 = part1.CreateReferenceFromObject(hybridShapePointOnCurve3)

Dim reference12 As Reference
Set reference12 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference11, reference12

Dim relations2 As Relations
Set relations2 = part1.Relations

Dim parameters5 As Parameters
Set parameters5 = part1.Parameters

Dim length3 As Length
Set length3 = parameters5.Item("Punkt\Spacing")

Dim formula2 As Formula
Set formula2 = relations2.CreateFormula("", "", length3, "Punkt\Spacing * 3")

Dim reference13 As Reference
Set reference13 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference14 As Reference
Set reference14 = part1.CreateReferenceFromObject(hybridShapePointOnCurve3)

Dim hybridShapePlaneNormal3 As HybridShapePlaneNormal
Set hybridShapePlaneNormal3 = hybridShapeFactory1.AddNewPlaneNormal(reference13, reference14)

hybridBody1.AppendHybridShape hybridShapePlaneNormal3

part1.InWorkObject = hybridShapePlaneNormal3

part1.Update

Dim reference15 As Reference
Set reference15 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve4 As HybridShapePointOnCurve
Set hybridShapePointOnCurve4 = hybridShapeFactory1.DuplicateGSMSpec(reference15)

Dim reference16 As Reference
Set reference16 = part1.CreateReferenceFromObject(hybridShapePointOnCurve4)

Dim reference17 As Reference
Set reference17 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference16, reference17

Dim relations3 As Relations
Set relations3 = part1.Relations

Dim parameters6 As Parameters
Set parameters6 = part1.Parameters

Dim length4 As Length
Set length4 = parameters6.Item("Punkt\Spacing")

Dim formula3 As Formula
Set formula3 = relations3.CreateFormula("", "", length4, "Punkt\Spacing * 4")

Dim reference18 As Reference
Set reference18 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference19 As Reference
Set reference19 = part1.CreateReferenceFromObject(hybridShapePointOnCurve4)

Dim hybridShapePlaneNormal4 As HybridShapePlaneNormal
Set hybridShapePlaneNormal4 = hybridShapeFactory1.AddNewPlaneNormal(reference18, reference19)

hybridBody1.AppendHybridShape hybridShapePlaneNormal4

part1.InWorkObject = hybridShapePlaneNormal4

part1.Update

Dim reference20 As Reference
Set reference20 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve5 As HybridShapePointOnCurve
Set hybridShapePointOnCurve5 = hybridShapeFactory1.DuplicateGSMSpec(reference20)

Dim reference21 As Reference
Set reference21 = part1.CreateReferenceFromObject(hybridShapePointOnCurve5)

Dim reference22 As Reference
Set reference22 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference21, reference22

Dim relations4 As Relations
Set relations4 = part1.Relations

Dim parameters7 As Parameters
Set parameters7 = part1.Parameters

Dim length5 As Length
Set length5 = parameters7.Item("Punkt\Spacing")

Dim formula4 As Formula
Set formula4 = relations4.CreateFormula("", "", length5, "Punkt\Spacing * 5")

Dim reference23 As Reference
Set reference23 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference24 As Reference
Set reference24 = part1.CreateReferenceFromObject(hybridShapePointOnCurve5)

Dim hybridShapePlaneNormal5 As HybridShapePlaneNormal
Set hybridShapePlaneNormal5 = hybridShapeFactory1.AddNewPlaneNormal(reference23, reference24)

hybridBody1.AppendHybridShape hybridShapePlaneNormal5

part1.InWorkObject = hybridShapePlaneNormal5

part1.Update

Dim reference25 As Reference
Set reference25 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve6 As HybridShapePointOnCurve
Set hybridShapePointOnCurve6 = hybridShapeFactory1.DuplicateGSMSpec(reference25)

Dim reference26 As Reference
Set reference26 = part1.CreateReferenceFromObject(hybridShapePointOnCurve6)

Dim reference27 As Reference
Set reference27 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference26, reference27

Dim relations5 As Relations
Set relations5 = part1.Relations

Dim parameters8 As Parameters
Set parameters8 = part1.Parameters

Dim length6 As Length
Set length6 = parameters8.Item("Punkt\Spacing")

Dim formula5 As Formula
Set formula5 = relations5.CreateFormula("", "", length6, "Punkt\Spacing * 6")

Dim reference28 As Reference
Set reference28 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference29 As Reference
Set reference29 = part1.CreateReferenceFromObject(hybridShapePointOnCurve6)

Dim hybridShapePlaneNormal6 As HybridShapePlaneNormal
Set hybridShapePlaneNormal6 = hybridShapeFactory1.AddNewPlaneNormal(reference28, reference29)

hybridBody1.AppendHybridShape hybridShapePlaneNormal6

part1.InWorkObject = hybridShapePlaneNormal6

part1.Update

Dim reference30 As Reference
Set reference30 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve7 As HybridShapePointOnCurve
Set hybridShapePointOnCurve7 = hybridShapeFactory1.DuplicateGSMSpec(reference30)

Dim reference31 As Reference
Set reference31 = part1.CreateReferenceFromObject(hybridShapePointOnCurve7)

Dim reference32 As Reference
Set reference32 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference31, reference32

Dim relations6 As Relations
Set relations6 = part1.Relations

Dim parameters9 As Parameters
Set parameters9 = part1.Parameters

Dim length7 As Length
Set length7 = parameters9.Item("Punkt\Spacing")

Dim formula6 As Formula
Set formula6 = relations6.CreateFormula("", "", length7, "Punkt\Spacing * 7")

Dim reference33 As Reference
Set reference33 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference34 As Reference
Set reference34 = part1.CreateReferenceFromObject(hybridShapePointOnCurve7)

Dim hybridShapePlaneNormal7 As HybridShapePlaneNormal
Set hybridShapePlaneNormal7 = hybridShapeFactory1.AddNewPlaneNormal(reference33, reference34)

hybridBody1.AppendHybridShape hybridShapePlaneNormal7

part1.InWorkObject = hybridShapePlaneNormal7

part1.Update

Dim reference35 As Reference
Set reference35 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve8 As HybridShapePointOnCurve
Set hybridShapePointOnCurve8 = hybridShapeFactory1.DuplicateGSMSpec(reference35)

Dim reference36 As Reference
Set reference36 = part1.CreateReferenceFromObject(hybridShapePointOnCurve8)

Dim reference37 As Reference
Set reference37 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference36, reference37

Dim relations7 As Relations
Set relations7 = part1.Relations

Dim parameters10 As Parameters
Set parameters10 = part1.Parameters

Dim length8 As Length
Set length8 = parameters10.Item("Punkt\Spacing")

Dim formula7 As Formula
Set formula7 = relations7.CreateFormula("", "", length8, "Punkt\Spacing * 8")

Dim reference38 As Reference
Set reference38 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference39 As Reference
Set reference39 = part1.CreateReferenceFromObject(hybridShapePointOnCurve8)

Dim hybridShapePlaneNormal8 As HybridShapePlaneNormal
Set hybridShapePlaneNormal8 = hybridShapeFactory1.AddNewPlaneNormal(reference38, reference39)

hybridBody1.AppendHybridShape hybridShapePlaneNormal8

part1.InWorkObject = hybridShapePlaneNormal8

part1.Update

Dim reference40 As Reference
Set reference40 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve9 As HybridShapePointOnCurve
Set hybridShapePointOnCurve9 = hybridShapeFactory1.DuplicateGSMSpec(reference40)

Dim reference41 As Reference
Set reference41 = part1.CreateReferenceFromObject(hybridShapePointOnCurve9)

Dim reference42 As Reference
Set reference42 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference41, reference42

Dim relations8 As Relations
Set relations8 = part1.Relations

Dim parameters11 As Parameters
Set parameters11 = part1.Parameters

Dim length9 As Length
Set length9 = parameters11.Item("Punkt\Spacing")

Dim formula8 As Formula
Set formula8 = relations8.CreateFormula("", "", length9, "Punkt\Spacing * 9")

Dim reference43 As Reference
Set reference43 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference44 As Reference
Set reference44 = part1.CreateReferenceFromObject(hybridShapePointOnCurve9)

Dim hybridShapePlaneNormal9 As HybridShapePlaneNormal
Set hybridShapePlaneNormal9 = hybridShapeFactory1.AddNewPlaneNormal(reference43, reference44)

hybridBody1.AppendHybridShape hybridShapePlaneNormal9

part1.InWorkObject = hybridShapePlaneNormal9

part1.Update

Dim reference45 As Reference
Set reference45 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve10 As HybridShapePointOnCurve
Set hybridShapePointOnCurve10 = hybridShapeFactory1.DuplicateGSMSpec(reference45)

Dim reference46 As Reference
Set reference46 = part1.CreateReferenceFromObject(hybridShapePointOnCurve10)

Dim reference47 As Reference
Set reference47 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference46, reference47

Dim relations9 As Relations
Set relations9 = part1.Relations

Dim parameters12 As Parameters
Set parameters12 = part1.Parameters

Dim length10 As Length
Set length10 = parameters12.Item("Punkt\Spacing")

Dim formula9 As Formula
Set formula9 = relations9.CreateFormula("", "", length10, "Punkt\Spacing * 10")

Dim reference48 As Reference
Set reference48 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference49 As Reference
Set reference49 = part1.CreateReferenceFromObject(hybridShapePointOnCurve10)

Dim hybridShapePlaneNormal10 As HybridShapePlaneNormal
Set hybridShapePlaneNormal10 = hybridShapeFactory1.AddNewPlaneNormal(reference48, reference49)

hybridBody1.AppendHybridShape hybridShapePlaneNormal10

part1.InWorkObject = hybridShapePlaneNormal10

part1.Update

Dim reference50 As Reference
Set reference50 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve11 As HybridShapePointOnCurve
Set hybridShapePointOnCurve11 = hybridShapeFactory1.DuplicateGSMSpec(reference50)

Dim reference51 As Reference
Set reference51 = part1.CreateReferenceFromObject(hybridShapePointOnCurve11)

Dim reference52 As Reference
Set reference52 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference51, reference52

Dim relations10 As Relations
Set relations10 = part1.Relations

Dim parameters13 As Parameters
Set parameters13 = part1.Parameters

Dim length11 As Length
Set length11 = parameters13.Item("Punkt\Spacing")

Dim formula10 As Formula
Set formula10 = relations10.CreateFormula("", "", length11, "Punkt\Spacing * 11")

Dim reference53 As Reference
Set reference53 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference54 As Reference
Set reference54 = part1.CreateReferenceFromObject(hybridShapePointOnCurve11)

Dim hybridShapePlaneNormal11 As HybridShapePlaneNormal
Set hybridShapePlaneNormal11 = hybridShapeFactory1.AddNewPlaneNormal(reference53, reference54)

hybridBody1.AppendHybridShape hybridShapePlaneNormal11

part1.InWorkObject = hybridShapePlaneNormal11

part1.Update

Dim reference55 As Reference
Set reference55 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve12 As HybridShapePointOnCurve
Set hybridShapePointOnCurve12 = hybridShapeFactory1.DuplicateGSMSpec(reference55)

Dim reference56 As Reference
Set reference56 = part1.CreateReferenceFromObject(hybridShapePointOnCurve12)

Dim reference57 As Reference
Set reference57 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference56, reference57

Dim relations11 As Relations
Set relations11 = part1.Relations

Dim parameters14 As Parameters
Set parameters14 = part1.Parameters

Dim length12 As Length
Set length12 = parameters14.Item("Punkt\Spacing")

Dim formula11 As Formula
Set formula11 = relations11.CreateFormula("", "", length12, "Punkt\Spacing * 12")

Dim reference58 As Reference
Set reference58 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference59 As Reference
Set reference59 = part1.CreateReferenceFromObject(hybridShapePointOnCurve12)

Dim hybridShapePlaneNormal12 As HybridShapePlaneNormal
Set hybridShapePlaneNormal12 = hybridShapeFactory1.AddNewPlaneNormal(reference58, reference59)

hybridBody1.AppendHybridShape hybridShapePlaneNormal12

part1.InWorkObject = hybridShapePlaneNormal12

part1.Update

Dim reference60 As Reference
Set reference60 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve13 As HybridShapePointOnCurve
Set hybridShapePointOnCurve13 = hybridShapeFactory1.DuplicateGSMSpec(reference60)

Dim reference61 As Reference
Set reference61 = part1.CreateReferenceFromObject(hybridShapePointOnCurve13)

Dim reference62 As Reference
Set reference62 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference61, reference62

Dim relations12 As Relations
Set relations12 = part1.Relations

Dim parameters15 As Parameters
Set parameters15 = part1.Parameters

Dim length13 As Length
Set length13 = parameters15.Item("Punkt\Spacing")

Dim formula12 As Formula
Set formula12 = relations12.CreateFormula("", "", length13, "Punkt\Spacing * 13")

Dim reference63 As Reference
Set reference63 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference64 As Reference
Set reference64 = part1.CreateReferenceFromObject(hybridShapePointOnCurve13)

Dim hybridShapePlaneNormal13 As HybridShapePlaneNormal
Set hybridShapePlaneNormal13 = hybridShapeFactory1.AddNewPlaneNormal(reference63, reference64)

hybridBody1.AppendHybridShape hybridShapePlaneNormal13

part1.InWorkObject = hybridShapePlaneNormal13

part1.Update

Dim reference65 As Reference
Set reference65 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve14 As HybridShapePointOnCurve
Set hybridShapePointOnCurve14 = hybridShapeFactory1.DuplicateGSMSpec(reference65)

Dim reference66 As Reference
Set reference66 = part1.CreateReferenceFromObject(hybridShapePointOnCurve14)

Dim reference67 As Reference
Set reference67 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference66, reference67

Dim relations13 As Relations
Set relations13 = part1.Relations

Dim parameters16 As Parameters
Set parameters16 = part1.Parameters

Dim length14 As Length
Set length14 = parameters16.Item("Punkt\Spacing")

Dim formula13 As Formula
Set formula13 = relations13.CreateFormula("", "", length14, "Punkt\Spacing * 14")

Dim reference68 As Reference
Set reference68 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference69 As Reference
Set reference69 = part1.CreateReferenceFromObject(hybridShapePointOnCurve14)

Dim hybridShapePlaneNormal14 As HybridShapePlaneNormal
Set hybridShapePlaneNormal14 = hybridShapeFactory1.AddNewPlaneNormal(reference68, reference69)

hybridBody1.AppendHybridShape hybridShapePlaneNormal14

part1.InWorkObject = hybridShapePlaneNormal14

part1.Update

Dim reference70 As Reference
Set reference70 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve15 As HybridShapePointOnCurve
Set hybridShapePointOnCurve15 = hybridShapeFactory1.DuplicateGSMSpec(reference70)

Dim reference71 As Reference
Set reference71 = part1.CreateReferenceFromObject(hybridShapePointOnCurve15)

Dim reference72 As Reference
Set reference72 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference71, reference72

Dim relations14 As Relations
Set relations14 = part1.Relations

Dim parameters17 As Parameters
Set parameters17 = part1.Parameters

Dim length15 As Length
Set length15 = parameters17.Item("Punkt\Spacing")

Dim formula14 As Formula
Set formula14 = relations14.CreateFormula("", "", length15, "Punkt\Spacing * 15")

Dim reference73 As Reference
Set reference73 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference74 As Reference
Set reference74 = part1.CreateReferenceFromObject(hybridShapePointOnCurve15)

Dim hybridShapePlaneNormal15 As HybridShapePlaneNormal
Set hybridShapePlaneNormal15 = hybridShapeFactory1.AddNewPlaneNormal(reference73, reference74)

hybridBody1.AppendHybridShape hybridShapePlaneNormal15

part1.InWorkObject = hybridShapePlaneNormal15

part1.Update

Dim reference75 As Reference
Set reference75 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve16 As HybridShapePointOnCurve
Set hybridShapePointOnCurve16 = hybridShapeFactory1.DuplicateGSMSpec(reference75)

Dim reference76 As Reference
Set reference76 = part1.CreateReferenceFromObject(hybridShapePointOnCurve16)

Dim reference77 As Reference
Set reference77 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference76, reference77

Dim relations15 As Relations
Set relations15 = part1.Relations

Dim parameters18 As Parameters
Set parameters18 = part1.Parameters

Dim length16 As Length
Set length16 = parameters18.Item("Punkt\Spacing")

Dim formula15 As Formula
Set formula15 = relations15.CreateFormula("", "", length16, "Punkt\Spacing * 16")

Dim reference78 As Reference
Set reference78 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference79 As Reference
Set reference79 = part1.CreateReferenceFromObject(hybridShapePointOnCurve16)

Dim hybridShapePlaneNormal16 As HybridShapePlaneNormal
Set hybridShapePlaneNormal16 = hybridShapeFactory1.AddNewPlaneNormal(reference78, reference79)

hybridBody1.AppendHybridShape hybridShapePlaneNormal16

part1.InWorkObject = hybridShapePlaneNormal16

part1.Update

Dim reference80 As Reference
Set reference80 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve17 As HybridShapePointOnCurve
Set hybridShapePointOnCurve17 = hybridShapeFactory1.DuplicateGSMSpec(reference80)

Dim reference81 As Reference
Set reference81 = part1.CreateReferenceFromObject(hybridShapePointOnCurve17)

Dim reference82 As Reference
Set reference82 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference81, reference82

Dim relations16 As Relations
Set relations16 = part1.Relations

Dim parameters19 As Parameters
Set parameters19 = part1.Parameters

Dim length17 As Length
Set length17 = parameters19.Item("Punkt\Spacing")

Dim formula16 As Formula
Set formula16 = relations16.CreateFormula("", "", length17, "Punkt\Spacing * 17")

Dim reference83 As Reference
Set reference83 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference84 As Reference
Set reference84 = part1.CreateReferenceFromObject(hybridShapePointOnCurve17)

Dim hybridShapePlaneNormal17 As HybridShapePlaneNormal
Set hybridShapePlaneNormal17 = hybridShapeFactory1.AddNewPlaneNormal(reference83, reference84)

hybridBody1.AppendHybridShape hybridShapePlaneNormal17

part1.InWorkObject = hybridShapePlaneNormal17

part1.Update

Dim reference85 As Reference
Set reference85 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve18 As HybridShapePointOnCurve
Set hybridShapePointOnCurve18 = hybridShapeFactory1.DuplicateGSMSpec(reference85)

Dim reference86 As Reference
Set reference86 = part1.CreateReferenceFromObject(hybridShapePointOnCurve18)

Dim reference87 As Reference
Set reference87 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference86, reference87

Dim relations17 As Relations
Set relations17 = part1.Relations

Dim parameters20 As Parameters
Set parameters20 = part1.Parameters

Dim length18 As Length
Set length18 = parameters20.Item("Punkt\Spacing")

Dim formula17 As Formula
Set formula17 = relations17.CreateFormula("", "", length18, "Punkt\Spacing * 18")

Dim reference88 As Reference
Set reference88 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference89 As Reference
Set reference89 = part1.CreateReferenceFromObject(hybridShapePointOnCurve18)

Dim hybridShapePlaneNormal18 As HybridShapePlaneNormal
Set hybridShapePlaneNormal18 = hybridShapeFactory1.AddNewPlaneNormal(reference88, reference89)

hybridBody1.AppendHybridShape hybridShapePlaneNormal18

part1.InWorkObject = hybridShapePlaneNormal18

part1.Update

Dim reference90 As Reference
Set reference90 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve19 As HybridShapePointOnCurve
Set hybridShapePointOnCurve19 = hybridShapeFactory1.DuplicateGSMSpec(reference90)

Dim reference91 As Reference
Set reference91 = part1.CreateReferenceFromObject(hybridShapePointOnCurve19)

Dim reference92 As Reference
Set reference92 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference91, reference92

Dim relations18 As Relations
Set relations18 = part1.Relations

Dim parameters21 As Parameters
Set parameters21 = part1.Parameters

Dim length19 As Length
Set length19 = parameters21.Item("Punkt\Spacing")

Dim formula18 As Formula
Set formula18 = relations18.CreateFormula("", "", length19, "Punkt\Spacing * 19")

Dim reference93 As Reference
Set reference93 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference94 As Reference
Set reference94 = part1.CreateReferenceFromObject(hybridShapePointOnCurve19)

Dim hybridShapePlaneNormal19 As HybridShapePlaneNormal
Set hybridShapePlaneNormal19 = hybridShapeFactory1.AddNewPlaneNormal(reference93, reference94)

hybridBody1.AppendHybridShape hybridShapePlaneNormal19

part1.InWorkObject = hybridShapePlaneNormal19

part1.Update

Dim reference95 As Reference
Set reference95 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve20 As HybridShapePointOnCurve
Set hybridShapePointOnCurve20 = hybridShapeFactory1.DuplicateGSMSpec(reference95)

Dim reference96 As Reference
Set reference96 = part1.CreateReferenceFromObject(hybridShapePointOnCurve20)

Dim reference97 As Reference
Set reference97 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference96, reference97

Dim relations19 As Relations
Set relations19 = part1.Relations

Dim parameters22 As Parameters
Set parameters22 = part1.Parameters

Dim length20 As Length
Set length20 = parameters22.Item("Punkt\Spacing")

Dim formula19 As Formula
Set formula19 = relations19.CreateFormula("", "", length20, "Punkt\Spacing * 20")

Dim reference98 As Reference
Set reference98 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference99 As Reference
Set reference99 = part1.CreateReferenceFromObject(hybridShapePointOnCurve20)

Dim hybridShapePlaneNormal20 As HybridShapePlaneNormal
Set hybridShapePlaneNormal20 = hybridShapeFactory1.AddNewPlaneNormal(reference98, reference99)

hybridBody1.AppendHybridShape hybridShapePlaneNormal20

part1.InWorkObject = hybridShapePlaneNormal20

part1.Update

Dim reference100 As Reference
Set reference100 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve21 As HybridShapePointOnCurve
Set hybridShapePointOnCurve21 = hybridShapeFactory1.DuplicateGSMSpec(reference100)

Dim reference101 As Reference
Set reference101 = part1.CreateReferenceFromObject(hybridShapePointOnCurve21)

Dim reference102 As Reference
Set reference102 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference101, reference102

Dim relations20 As Relations
Set relations20 = part1.Relations

Dim parameters23 As Parameters
Set parameters23 = part1.Parameters

Dim length21 As Length
Set length21 = parameters23.Item("Punkt\Spacing")

Dim formula20 As Formula
Set formula20 = relations20.CreateFormula("", "", length21, "Punkt\Spacing * 21")

Dim reference103 As Reference
Set reference103 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference104 As Reference
Set reference104 = part1.CreateReferenceFromObject(hybridShapePointOnCurve21)

Dim hybridShapePlaneNormal21 As HybridShapePlaneNormal
Set hybridShapePlaneNormal21 = hybridShapeFactory1.AddNewPlaneNormal(reference103, reference104)

hybridBody1.AppendHybridShape hybridShapePlaneNormal21

part1.InWorkObject = hybridShapePlaneNormal21

part1.Update

Dim reference105 As Reference
Set reference105 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve22 As HybridShapePointOnCurve
Set hybridShapePointOnCurve22 = hybridShapeFactory1.DuplicateGSMSpec(reference105)

Dim reference106 As Reference
Set reference106 = part1.CreateReferenceFromObject(hybridShapePointOnCurve22)

Dim reference107 As Reference
Set reference107 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference106, reference107

Dim relations21 As Relations
Set relations21 = part1.Relations

Dim parameters24 As Parameters
Set parameters24 = part1.Parameters

Dim length22 As Length
Set length22 = parameters24.Item("Punkt\Spacing")

Dim formula21 As Formula
Set formula21 = relations21.CreateFormula("", "", length22, "Punkt\Spacing * 22")

Dim reference108 As Reference
Set reference108 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference109 As Reference
Set reference109 = part1.CreateReferenceFromObject(hybridShapePointOnCurve22)

Dim hybridShapePlaneNormal22 As HybridShapePlaneNormal
Set hybridShapePlaneNormal22 = hybridShapeFactory1.AddNewPlaneNormal(reference108, reference109)

hybridBody1.AppendHybridShape hybridShapePlaneNormal22

part1.InWorkObject = hybridShapePlaneNormal22

part1.Update

Dim reference110 As Reference
Set reference110 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve23 As HybridShapePointOnCurve
Set hybridShapePointOnCurve23 = hybridShapeFactory1.DuplicateGSMSpec(reference110)

Dim reference111 As Reference
Set reference111 = part1.CreateReferenceFromObject(hybridShapePointOnCurve23)

Dim reference112 As Reference
Set reference112 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference111, reference112

Dim relations22 As Relations
Set relations22 = part1.Relations

Dim parameters25 As Parameters
Set parameters25 = part1.Parameters

Dim length23 As Length
Set length23 = parameters25.Item("Punkt\Spacing")

Dim formula22 As Formula
Set formula22 = relations22.CreateFormula("", "", length23, "Punkt\Spacing * 23")

Dim reference113 As Reference
Set reference113 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference114 As Reference
Set reference114 = part1.CreateReferenceFromObject(hybridShapePointOnCurve23)

Dim hybridShapePlaneNormal23 As HybridShapePlaneNormal
Set hybridShapePlaneNormal23 = hybridShapeFactory1.AddNewPlaneNormal(reference113, reference114)

hybridBody1.AppendHybridShape hybridShapePlaneNormal23

part1.InWorkObject = hybridShapePlaneNormal23

part1.Update

Dim reference115 As Reference
Set reference115 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve24 As HybridShapePointOnCurve
Set hybridShapePointOnCurve24 = hybridShapeFactory1.DuplicateGSMSpec(reference115)

Dim reference116 As Reference
Set reference116 = part1.CreateReferenceFromObject(hybridShapePointOnCurve24)

Dim reference117 As Reference
Set reference117 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference116, reference117

Dim relations23 As Relations
Set relations23 = part1.Relations

Dim parameters26 As Parameters
Set parameters26 = part1.Parameters

Dim length24 As Length
Set length24 = parameters26.Item("Punkt\Spacing")

Dim formula23 As Formula
Set formula23 = relations23.CreateFormula("", "", length24, "Punkt\Spacing * 24")

Dim reference118 As Reference
Set reference118 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference119 As Reference
Set reference119 = part1.CreateReferenceFromObject(hybridShapePointOnCurve24)

Dim hybridShapePlaneNormal24 As HybridShapePlaneNormal
Set hybridShapePlaneNormal24 = hybridShapeFactory1.AddNewPlaneNormal(reference118, reference119)

hybridBody1.AppendHybridShape hybridShapePlaneNormal24

part1.InWorkObject = hybridShapePlaneNormal24

part1.Update

Dim reference120 As Reference
Set reference120 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve25 As HybridShapePointOnCurve
Set hybridShapePointOnCurve25 = hybridShapeFactory1.DuplicateGSMSpec(reference120)

Dim reference121 As Reference
Set reference121 = part1.CreateReferenceFromObject(hybridShapePointOnCurve25)

Dim reference122 As Reference
Set reference122 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference121, reference122

Dim relations24 As Relations
Set relations24 = part1.Relations

Dim parameters27 As Parameters
Set parameters27 = part1.Parameters

Dim length25 As Length
Set length25 = parameters27.Item("Punkt\Spacing")

Dim formula24 As Formula
Set formula24 = relations24.CreateFormula("", "", length25, "Punkt\Spacing * 25")

Dim reference123 As Reference
Set reference123 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference124 As Reference
Set reference124 = part1.CreateReferenceFromObject(hybridShapePointOnCurve25)

Dim hybridShapePlaneNormal25 As HybridShapePlaneNormal
Set hybridShapePlaneNormal25 = hybridShapeFactory1.AddNewPlaneNormal(reference123, reference124)

hybridBody1.AppendHybridShape hybridShapePlaneNormal25

part1.InWorkObject = hybridShapePlaneNormal25

part1.Update

Dim reference125 As Reference
Set reference125 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve26 As HybridShapePointOnCurve
Set hybridShapePointOnCurve26 = hybridShapeFactory1.DuplicateGSMSpec(reference125)

Dim reference126 As Reference
Set reference126 = part1.CreateReferenceFromObject(hybridShapePointOnCurve26)

Dim reference127 As Reference
Set reference127 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference126, reference127

Dim relations25 As Relations
Set relations25 = part1.Relations

Dim parameters28 As Parameters
Set parameters28 = part1.Parameters

Dim length26 As Length
Set length26 = parameters28.Item("Punkt\Spacing")

Dim formula25 As Formula
Set formula25 = relations25.CreateFormula("", "", length26, "Punkt\Spacing * 26")

Dim reference128 As Reference
Set reference128 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference129 As Reference
Set reference129 = part1.CreateReferenceFromObject(hybridShapePointOnCurve26)

Dim hybridShapePlaneNormal26 As HybridShapePlaneNormal
Set hybridShapePlaneNormal26 = hybridShapeFactory1.AddNewPlaneNormal(reference128, reference129)

hybridBody1.AppendHybridShape hybridShapePlaneNormal26

part1.InWorkObject = hybridShapePlaneNormal26

part1.Update

Dim reference130 As Reference
Set reference130 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve27 As HybridShapePointOnCurve
Set hybridShapePointOnCurve27 = hybridShapeFactory1.DuplicateGSMSpec(reference130)

Dim reference131 As Reference
Set reference131 = part1.CreateReferenceFromObject(hybridShapePointOnCurve27)

Dim reference132 As Reference
Set reference132 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference131, reference132

Dim relations26 As Relations
Set relations26 = part1.Relations

Dim parameters29 As Parameters
Set parameters29 = part1.Parameters

Dim length27 As Length
Set length27 = parameters29.Item("Punkt\Spacing")

Dim formula26 As Formula
Set formula26 = relations26.CreateFormula("", "", length27, "Punkt\Spacing * 27")

Dim reference133 As Reference
Set reference133 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference134 As Reference
Set reference134 = part1.CreateReferenceFromObject(hybridShapePointOnCurve27)

Dim hybridShapePlaneNormal27 As HybridShapePlaneNormal
Set hybridShapePlaneNormal27 = hybridShapeFactory1.AddNewPlaneNormal(reference133, reference134)

hybridBody1.AppendHybridShape hybridShapePlaneNormal27

part1.InWorkObject = hybridShapePlaneNormal27

part1.Update

Dim reference135 As Reference
Set reference135 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve28 As HybridShapePointOnCurve
Set hybridShapePointOnCurve28 = hybridShapeFactory1.DuplicateGSMSpec(reference135)

Dim reference136 As Reference
Set reference136 = part1.CreateReferenceFromObject(hybridShapePointOnCurve28)

Dim reference137 As Reference
Set reference137 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference136, reference137

Dim relations27 As Relations
Set relations27 = part1.Relations

Dim parameters30 As Parameters
Set parameters30 = part1.Parameters

Dim length28 As Length
Set length28 = parameters30.Item("Punkt\Spacing")

Dim formula27 As Formula
Set formula27 = relations27.CreateFormula("", "", length28, "Punkt\Spacing * 28")

Dim reference138 As Reference
Set reference138 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference139 As Reference
Set reference139 = part1.CreateReferenceFromObject(hybridShapePointOnCurve28)

Dim hybridShapePlaneNormal28 As HybridShapePlaneNormal
Set hybridShapePlaneNormal28 = hybridShapeFactory1.AddNewPlaneNormal(reference138, reference139)

hybridBody1.AppendHybridShape hybridShapePlaneNormal28

part1.InWorkObject = hybridShapePlaneNormal28

part1.Update

Dim reference140 As Reference
Set reference140 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve29 As HybridShapePointOnCurve
Set hybridShapePointOnCurve29 = hybridShapeFactory1.DuplicateGSMSpec(reference140)

Dim reference141 As Reference
Set reference141 = part1.CreateReferenceFromObject(hybridShapePointOnCurve29)

Dim reference142 As Reference
Set reference142 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference141, reference142

Dim relations28 As Relations
Set relations28 = part1.Relations

Dim parameters31 As Parameters
Set parameters31 = part1.Parameters

Dim length29 As Length
Set length29 = parameters31.Item("Punkt\Spacing")

Dim formula28 As Formula
Set formula28 = relations28.CreateFormula("", "", length29, "Punkt\Spacing * 29")

Dim reference143 As Reference
Set reference143 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference144 As Reference
Set reference144 = part1.CreateReferenceFromObject(hybridShapePointOnCurve29)

Dim hybridShapePlaneNormal29 As HybridShapePlaneNormal
Set hybridShapePlaneNormal29 = hybridShapeFactory1.AddNewPlaneNormal(reference143, reference144)

hybridBody1.AppendHybridShape hybridShapePlaneNormal29

part1.InWorkObject = hybridShapePlaneNormal29

part1.Update

Dim reference145 As Reference
Set reference145 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve30 As HybridShapePointOnCurve
Set hybridShapePointOnCurve30 = hybridShapeFactory1.DuplicateGSMSpec(reference145)

Dim reference146 As Reference
Set reference146 = part1.CreateReferenceFromObject(hybridShapePointOnCurve30)

Dim reference147 As Reference
Set reference147 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference146, reference147

Dim relations29 As Relations
Set relations29 = part1.Relations

Dim parameters32 As Parameters
Set parameters32 = part1.Parameters

Dim length30 As Length
Set length30 = parameters32.Item("Punkt\Spacing")

Dim formula29 As Formula
Set formula29 = relations29.CreateFormula("", "", length30, "Punkt\Spacing * 30")

Dim reference148 As Reference
Set reference148 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference149 As Reference
Set reference149 = part1.CreateReferenceFromObject(hybridShapePointOnCurve30)

Dim hybridShapePlaneNormal30 As HybridShapePlaneNormal
Set hybridShapePlaneNormal30 = hybridShapeFactory1.AddNewPlaneNormal(reference148, reference149)

hybridBody1.AppendHybridShape hybridShapePlaneNormal30

part1.InWorkObject = hybridShapePlaneNormal30

part1.Update

Dim reference150 As Reference
Set reference150 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve31 As HybridShapePointOnCurve
Set hybridShapePointOnCurve31 = hybridShapeFactory1.DuplicateGSMSpec(reference150)

Dim reference151 As Reference
Set reference151 = part1.CreateReferenceFromObject(hybridShapePointOnCurve31)

Dim reference152 As Reference
Set reference152 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference151, reference152

Dim relations30 As Relations
Set relations30 = part1.Relations

Dim parameters33 As Parameters
Set parameters33 = part1.Parameters

Dim length31 As Length
Set length31 = parameters33.Item("Punkt\Spacing")

Dim formula30 As Formula
Set formula30 = relations30.CreateFormula("", "", length31, "Punkt\Spacing * 31")

Dim reference153 As Reference
Set reference153 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference154 As Reference
Set reference154 = part1.CreateReferenceFromObject(hybridShapePointOnCurve31)

Dim hybridShapePlaneNormal31 As HybridShapePlaneNormal
Set hybridShapePlaneNormal31 = hybridShapeFactory1.AddNewPlaneNormal(reference153, reference154)

hybridBody1.AppendHybridShape hybridShapePlaneNormal31

part1.InWorkObject = hybridShapePlaneNormal31

part1.Update

Dim reference155 As Reference
Set reference155 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve32 As HybridShapePointOnCurve
Set hybridShapePointOnCurve32 = hybridShapeFactory1.DuplicateGSMSpec(reference155)

Dim reference156 As Reference
Set reference156 = part1.CreateReferenceFromObject(hybridShapePointOnCurve32)

Dim reference157 As Reference
Set reference157 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference156, reference157

Dim relations31 As Relations
Set relations31 = part1.Relations

Dim parameters34 As Parameters
Set parameters34 = part1.Parameters

Dim length32 As Length
Set length32 = parameters34.Item("Punkt\Spacing")

Dim formula31 As Formula
Set formula31 = relations31.CreateFormula("", "", length32, "Punkt\Spacing * 32")

Dim reference158 As Reference
Set reference158 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference159 As Reference
Set reference159 = part1.CreateReferenceFromObject(hybridShapePointOnCurve32)

Dim hybridShapePlaneNormal32 As HybridShapePlaneNormal
Set hybridShapePlaneNormal32 = hybridShapeFactory1.AddNewPlaneNormal(reference158, reference159)

hybridBody1.AppendHybridShape hybridShapePlaneNormal32

part1.InWorkObject = hybridShapePlaneNormal32

part1.Update

Dim reference160 As Reference
Set reference160 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve33 As HybridShapePointOnCurve
Set hybridShapePointOnCurve33 = hybridShapeFactory1.DuplicateGSMSpec(reference160)

Dim reference161 As Reference
Set reference161 = part1.CreateReferenceFromObject(hybridShapePointOnCurve33)

Dim reference162 As Reference
Set reference162 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference161, reference162

Dim relations32 As Relations
Set relations32 = part1.Relations

Dim parameters35 As Parameters
Set parameters35 = part1.Parameters

Dim length33 As Length
Set length33 = parameters35.Item("Punkt\Spacing")

Dim formula32 As Formula
Set formula32 = relations32.CreateFormula("", "", length33, "Punkt\Spacing * 33")

Dim reference163 As Reference
Set reference163 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference164 As Reference
Set reference164 = part1.CreateReferenceFromObject(hybridShapePointOnCurve33)

Dim hybridShapePlaneNormal33 As HybridShapePlaneNormal
Set hybridShapePlaneNormal33 = hybridShapeFactory1.AddNewPlaneNormal(reference163, reference164)

hybridBody1.AppendHybridShape hybridShapePlaneNormal33

part1.InWorkObject = hybridShapePlaneNormal33

part1.Update

Dim reference165 As Reference
Set reference165 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve34 As HybridShapePointOnCurve
Set hybridShapePointOnCurve34 = hybridShapeFactory1.DuplicateGSMSpec(reference165)

Dim reference166 As Reference
Set reference166 = part1.CreateReferenceFromObject(hybridShapePointOnCurve34)

Dim reference167 As Reference
Set reference167 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference166, reference167

Dim relations33 As Relations
Set relations33 = part1.Relations

Dim parameters36 As Parameters
Set parameters36 = part1.Parameters

Dim length34 As Length
Set length34 = parameters36.Item("Punkt\Spacing")

Dim formula33 As Formula
Set formula33 = relations33.CreateFormula("", "", length34, "Punkt\Spacing * 34")

Dim reference168 As Reference
Set reference168 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference169 As Reference
Set reference169 = part1.CreateReferenceFromObject(hybridShapePointOnCurve34)

Dim hybridShapePlaneNormal34 As HybridShapePlaneNormal
Set hybridShapePlaneNormal34 = hybridShapeFactory1.AddNewPlaneNormal(reference168, reference169)

hybridBody1.AppendHybridShape hybridShapePlaneNormal34

part1.InWorkObject = hybridShapePlaneNormal34

part1.Update

Dim reference170 As Reference
Set reference170 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve35 As HybridShapePointOnCurve
Set hybridShapePointOnCurve35 = hybridShapeFactory1.DuplicateGSMSpec(reference170)

Dim reference171 As Reference
Set reference171 = part1.CreateReferenceFromObject(hybridShapePointOnCurve35)

Dim reference172 As Reference
Set reference172 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference171, reference172

Dim relations34 As Relations
Set relations34 = part1.Relations

Dim parameters37 As Parameters
Set parameters37 = part1.Parameters

Dim length35 As Length
Set length35 = parameters37.Item("Punkt\Spacing")

Dim formula34 As Formula
Set formula34 = relations34.CreateFormula("", "", length35, "Punkt\Spacing * 35")

Dim reference173 As Reference
Set reference173 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference174 As Reference
Set reference174 = part1.CreateReferenceFromObject(hybridShapePointOnCurve35)

Dim hybridShapePlaneNormal35 As HybridShapePlaneNormal
Set hybridShapePlaneNormal35 = hybridShapeFactory1.AddNewPlaneNormal(reference173, reference174)

hybridBody1.AppendHybridShape hybridShapePlaneNormal35

part1.InWorkObject = hybridShapePlaneNormal35

part1.Update

Dim reference175 As Reference
Set reference175 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve36 As HybridShapePointOnCurve
Set hybridShapePointOnCurve36 = hybridShapeFactory1.DuplicateGSMSpec(reference175)

Dim reference176 As Reference
Set reference176 = part1.CreateReferenceFromObject(hybridShapePointOnCurve36)

Dim reference177 As Reference
Set reference177 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference176, reference177

Dim relations35 As Relations
Set relations35 = part1.Relations

Dim parameters38 As Parameters
Set parameters38 = part1.Parameters

Dim length36 As Length
Set length36 = parameters38.Item("Punkt\Spacing")

Dim formula35 As Formula
Set formula35 = relations35.CreateFormula("", "", length36, "Punkt\Spacing * 36")

Dim reference178 As Reference
Set reference178 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference179 As Reference
Set reference179 = part1.CreateReferenceFromObject(hybridShapePointOnCurve36)

Dim hybridShapePlaneNormal36 As HybridShapePlaneNormal
Set hybridShapePlaneNormal36 = hybridShapeFactory1.AddNewPlaneNormal(reference178, reference179)

hybridBody1.AppendHybridShape hybridShapePlaneNormal36

part1.InWorkObject = hybridShapePlaneNormal36

part1.Update

Dim reference180 As Reference
Set reference180 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve37 As HybridShapePointOnCurve
Set hybridShapePointOnCurve37 = hybridShapeFactory1.DuplicateGSMSpec(reference180)

Dim reference181 As Reference
Set reference181 = part1.CreateReferenceFromObject(hybridShapePointOnCurve37)

Dim reference182 As Reference
Set reference182 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference181, reference182

Dim relations36 As Relations
Set relations36 = part1.Relations

Dim parameters39 As Parameters
Set parameters39 = part1.Parameters

Dim length37 As Length
Set length37 = parameters39.Item("Punkt\Spacing")

Dim formula36 As Formula
Set formula36 = relations36.CreateFormula("", "", length37, "Punkt\Spacing * 37")

Dim reference183 As Reference
Set reference183 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference184 As Reference
Set reference184 = part1.CreateReferenceFromObject(hybridShapePointOnCurve37)

Dim hybridShapePlaneNormal37 As HybridShapePlaneNormal
Set hybridShapePlaneNormal37 = hybridShapeFactory1.AddNewPlaneNormal(reference183, reference184)

hybridBody1.AppendHybridShape hybridShapePlaneNormal37

part1.InWorkObject = hybridShapePlaneNormal37

part1.Update

Dim reference185 As Reference
Set reference185 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve38 As HybridShapePointOnCurve
Set hybridShapePointOnCurve38 = hybridShapeFactory1.DuplicateGSMSpec(reference185)

Dim reference186 As Reference
Set reference186 = part1.CreateReferenceFromObject(hybridShapePointOnCurve38)

Dim reference187 As Reference
Set reference187 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference186, reference187

Dim relations37 As Relations
Set relations37 = part1.Relations

Dim parameters40 As Parameters
Set parameters40 = part1.Parameters

Dim length38 As Length
Set length38 = parameters40.Item("Punkt\Spacing")

Dim formula37 As Formula
Set formula37 = relations37.CreateFormula("", "", length38, "Punkt\Spacing * 38")

Dim reference188 As Reference
Set reference188 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference189 As Reference
Set reference189 = part1.CreateReferenceFromObject(hybridShapePointOnCurve38)

Dim hybridShapePlaneNormal38 As HybridShapePlaneNormal
Set hybridShapePlaneNormal38 = hybridShapeFactory1.AddNewPlaneNormal(reference188, reference189)

hybridBody1.AppendHybridShape hybridShapePlaneNormal38

part1.InWorkObject = hybridShapePlaneNormal38

part1.Update

Dim reference190 As Reference
Set reference190 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve39 As HybridShapePointOnCurve
Set hybridShapePointOnCurve39 = hybridShapeFactory1.DuplicateGSMSpec(reference190)

Dim reference191 As Reference
Set reference191 = part1.CreateReferenceFromObject(hybridShapePointOnCurve39)

Dim reference192 As Reference
Set reference192 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference191, reference192

Dim relations38 As Relations
Set relations38 = part1.Relations

Dim parameters41 As Parameters
Set parameters41 = part1.Parameters

Dim length39 As Length
Set length39 = parameters41.Item("Punkt\Spacing")

Dim formula38 As Formula
Set formula38 = relations38.CreateFormula("", "", length39, "Punkt\Spacing * 39")

Dim reference193 As Reference
Set reference193 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference194 As Reference
Set reference194 = part1.CreateReferenceFromObject(hybridShapePointOnCurve39)

Dim hybridShapePlaneNormal39 As HybridShapePlaneNormal
Set hybridShapePlaneNormal39 = hybridShapeFactory1.AddNewPlaneNormal(reference193, reference194)

hybridBody1.AppendHybridShape hybridShapePlaneNormal39

part1.InWorkObject = hybridShapePlaneNormal39

part1.Update

Dim reference195 As Reference
Set reference195 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve40 As HybridShapePointOnCurve
Set hybridShapePointOnCurve40 = hybridShapeFactory1.DuplicateGSMSpec(reference195)

Dim reference196 As Reference
Set reference196 = part1.CreateReferenceFromObject(hybridShapePointOnCurve40)

Dim reference197 As Reference
Set reference197 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference196, reference197

Dim relations39 As Relations
Set relations39 = part1.Relations

Dim parameters42 As Parameters
Set parameters42 = part1.Parameters

Dim length40 As Length
Set length40 = parameters42.Item("Punkt\Spacing")

Dim formula39 As Formula
Set formula39 = relations39.CreateFormula("", "", length40, "Punkt\Spacing * 40")

Dim reference198 As Reference
Set reference198 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference199 As Reference
Set reference199 = part1.CreateReferenceFromObject(hybridShapePointOnCurve40)

Dim hybridShapePlaneNormal40 As HybridShapePlaneNormal
Set hybridShapePlaneNormal40 = hybridShapeFactory1.AddNewPlaneNormal(reference198, reference199)

hybridBody1.AppendHybridShape hybridShapePlaneNormal40

part1.InWorkObject = hybridShapePlaneNormal40

part1.Update

Dim reference200 As Reference
Set reference200 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve41 As HybridShapePointOnCurve
Set hybridShapePointOnCurve41 = hybridShapeFactory1.DuplicateGSMSpec(reference200)

Dim reference201 As Reference
Set reference201 = part1.CreateReferenceFromObject(hybridShapePointOnCurve41)

Dim reference202 As Reference
Set reference202 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference201, reference202

Dim relations40 As Relations
Set relations40 = part1.Relations

Dim parameters43 As Parameters
Set parameters43 = part1.Parameters

Dim length41 As Length
Set length41 = parameters43.Item("Punkt\Spacing")

Dim formula40 As Formula
Set formula40 = relations40.CreateFormula("", "", length41, "Punkt\Spacing * 41")

Dim reference203 As Reference
Set reference203 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference204 As Reference
Set reference204 = part1.CreateReferenceFromObject(hybridShapePointOnCurve41)

Dim hybridShapePlaneNormal41 As HybridShapePlaneNormal
Set hybridShapePlaneNormal41 = hybridShapeFactory1.AddNewPlaneNormal(reference203, reference204)

hybridBody1.AppendHybridShape hybridShapePlaneNormal41

part1.InWorkObject = hybridShapePlaneNormal41

part1.Update

Dim reference205 As Reference
Set reference205 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve42 As HybridShapePointOnCurve
Set hybridShapePointOnCurve42 = hybridShapeFactory1.DuplicateGSMSpec(reference205)

Dim reference206 As Reference
Set reference206 = part1.CreateReferenceFromObject(hybridShapePointOnCurve42)

Dim reference207 As Reference
Set reference207 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference206, reference207

Dim relations41 As Relations
Set relations41 = part1.Relations

Dim parameters44 As Parameters
Set parameters44 = part1.Parameters

Dim length42 As Length
Set length42 = parameters44.Item("Punkt\Spacing")

Dim formula41 As Formula
Set formula41 = relations41.CreateFormula("", "", length42, "Punkt\Spacing * 42")

Dim reference208 As Reference
Set reference208 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference209 As Reference
Set reference209 = part1.CreateReferenceFromObject(hybridShapePointOnCurve42)

Dim hybridShapePlaneNormal42 As HybridShapePlaneNormal
Set hybridShapePlaneNormal42 = hybridShapeFactory1.AddNewPlaneNormal(reference208, reference209)

hybridBody1.AppendHybridShape hybridShapePlaneNormal42

part1.InWorkObject = hybridShapePlaneNormal42

part1.Update

Dim reference210 As Reference
Set reference210 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve43 As HybridShapePointOnCurve
Set hybridShapePointOnCurve43 = hybridShapeFactory1.DuplicateGSMSpec(reference210)

Dim reference211 As Reference
Set reference211 = part1.CreateReferenceFromObject(hybridShapePointOnCurve43)

Dim reference212 As Reference
Set reference212 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference211, reference212

Dim relations42 As Relations
Set relations42 = part1.Relations

Dim parameters45 As Parameters
Set parameters45 = part1.Parameters

Dim length43 As Length
Set length43 = parameters45.Item("Punkt\Spacing")

Dim formula42 As Formula
Set formula42 = relations42.CreateFormula("", "", length43, "Punkt\Spacing * 43")

Dim reference213 As Reference
Set reference213 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference214 As Reference
Set reference214 = part1.CreateReferenceFromObject(hybridShapePointOnCurve43)

Dim hybridShapePlaneNormal43 As HybridShapePlaneNormal
Set hybridShapePlaneNormal43 = hybridShapeFactory1.AddNewPlaneNormal(reference213, reference214)

hybridBody1.AppendHybridShape hybridShapePlaneNormal43

part1.InWorkObject = hybridShapePlaneNormal43

part1.Update

Dim reference215 As Reference
Set reference215 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve44 As HybridShapePointOnCurve
Set hybridShapePointOnCurve44 = hybridShapeFactory1.DuplicateGSMSpec(reference215)

Dim reference216 As Reference
Set reference216 = part1.CreateReferenceFromObject(hybridShapePointOnCurve44)

Dim reference217 As Reference
Set reference217 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference216, reference217

Dim relations43 As Relations
Set relations43 = part1.Relations

Dim parameters46 As Parameters
Set parameters46 = part1.Parameters

Dim length44 As Length
Set length44 = parameters46.Item("Punkt\Spacing")

Dim formula43 As Formula
Set formula43 = relations43.CreateFormula("", "", length44, "Punkt\Spacing * 44")

Dim reference218 As Reference
Set reference218 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference219 As Reference
Set reference219 = part1.CreateReferenceFromObject(hybridShapePointOnCurve44)

Dim hybridShapePlaneNormal44 As HybridShapePlaneNormal
Set hybridShapePlaneNormal44 = hybridShapeFactory1.AddNewPlaneNormal(reference218, reference219)

hybridBody1.AppendHybridShape hybridShapePlaneNormal44

part1.InWorkObject = hybridShapePlaneNormal44

part1.Update

Dim reference220 As Reference
Set reference220 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve45 As HybridShapePointOnCurve
Set hybridShapePointOnCurve45 = hybridShapeFactory1.DuplicateGSMSpec(reference220)

Dim reference221 As Reference
Set reference221 = part1.CreateReferenceFromObject(hybridShapePointOnCurve45)

Dim reference222 As Reference
Set reference222 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference221, reference222

Dim relations44 As Relations
Set relations44 = part1.Relations

Dim parameters47 As Parameters
Set parameters47 = part1.Parameters

Dim length45 As Length
Set length45 = parameters47.Item("Punkt\Spacing")

Dim formula44 As Formula
Set formula44 = relations44.CreateFormula("", "", length45, "Punkt\Spacing * 45")

Dim reference223 As Reference
Set reference223 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference224 As Reference
Set reference224 = part1.CreateReferenceFromObject(hybridShapePointOnCurve45)

Dim hybridShapePlaneNormal45 As HybridShapePlaneNormal
Set hybridShapePlaneNormal45 = hybridShapeFactory1.AddNewPlaneNormal(reference223, reference224)

hybridBody1.AppendHybridShape hybridShapePlaneNormal45

part1.InWorkObject = hybridShapePlaneNormal45

part1.Update

Dim reference225 As Reference
Set reference225 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve46 As HybridShapePointOnCurve
Set hybridShapePointOnCurve46 = hybridShapeFactory1.DuplicateGSMSpec(reference225)

Dim reference226 As Reference
Set reference226 = part1.CreateReferenceFromObject(hybridShapePointOnCurve46)

Dim reference227 As Reference
Set reference227 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference226, reference227

Dim relations45 As Relations
Set relations45 = part1.Relations

Dim parameters48 As Parameters
Set parameters48 = part1.Parameters

Dim length46 As Length
Set length46 = parameters48.Item("Punkt\Spacing")

Dim formula45 As Formula
Set formula45 = relations45.CreateFormula("", "", length46, "Punkt\Spacing * 46")

Dim reference228 As Reference
Set reference228 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference229 As Reference
Set reference229 = part1.CreateReferenceFromObject(hybridShapePointOnCurve46)

Dim hybridShapePlaneNormal46 As HybridShapePlaneNormal
Set hybridShapePlaneNormal46 = hybridShapeFactory1.AddNewPlaneNormal(reference228, reference229)

hybridBody1.AppendHybridShape hybridShapePlaneNormal46

part1.InWorkObject = hybridShapePlaneNormal46

part1.Update

Dim reference230 As Reference
Set reference230 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve47 As HybridShapePointOnCurve
Set hybridShapePointOnCurve47 = hybridShapeFactory1.DuplicateGSMSpec(reference230)

Dim reference231 As Reference
Set reference231 = part1.CreateReferenceFromObject(hybridShapePointOnCurve47)

Dim reference232 As Reference
Set reference232 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference231, reference232

Dim relations46 As Relations
Set relations46 = part1.Relations

Dim parameters49 As Parameters
Set parameters49 = part1.Parameters

Dim length47 As Length
Set length47 = parameters49.Item("Punkt\Spacing")

Dim formula46 As Formula
Set formula46 = relations46.CreateFormula("", "", length47, "Punkt\Spacing * 47")

Dim reference233 As Reference
Set reference233 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference234 As Reference
Set reference234 = part1.CreateReferenceFromObject(hybridShapePointOnCurve47)

Dim hybridShapePlaneNormal47 As HybridShapePlaneNormal
Set hybridShapePlaneNormal47 = hybridShapeFactory1.AddNewPlaneNormal(reference233, reference234)

hybridBody1.AppendHybridShape hybridShapePlaneNormal47

part1.InWorkObject = hybridShapePlaneNormal47

part1.Update

Dim reference235 As Reference
Set reference235 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve48 As HybridShapePointOnCurve
Set hybridShapePointOnCurve48 = hybridShapeFactory1.DuplicateGSMSpec(reference235)

Dim reference236 As Reference
Set reference236 = part1.CreateReferenceFromObject(hybridShapePointOnCurve48)

Dim reference237 As Reference
Set reference237 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference236, reference237

Dim relations47 As Relations
Set relations47 = part1.Relations

Dim parameters50 As Parameters
Set parameters50 = part1.Parameters

Dim length48 As Length
Set length48 = parameters50.Item("Punkt\Spacing")

Dim formula47 As Formula
Set formula47 = relations47.CreateFormula("", "", length48, "Punkt\Spacing * 48")

Dim reference238 As Reference
Set reference238 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference239 As Reference
Set reference239 = part1.CreateReferenceFromObject(hybridShapePointOnCurve48)

Dim hybridShapePlaneNormal48 As HybridShapePlaneNormal
Set hybridShapePlaneNormal48 = hybridShapeFactory1.AddNewPlaneNormal(reference238, reference239)

hybridBody1.AppendHybridShape hybridShapePlaneNormal48

part1.InWorkObject = hybridShapePlaneNormal48

part1.Update

Dim reference240 As Reference
Set reference240 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve49 As HybridShapePointOnCurve
Set hybridShapePointOnCurve49 = hybridShapeFactory1.DuplicateGSMSpec(reference240)

Dim reference241 As Reference
Set reference241 = part1.CreateReferenceFromObject(hybridShapePointOnCurve49)

Dim reference242 As Reference
Set reference242 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference241, reference242

Dim relations48 As Relations
Set relations48 = part1.Relations

Dim parameters51 As Parameters
Set parameters51 = part1.Parameters

Dim length49 As Length
Set length49 = parameters51.Item("Punkt\Spacing")

Dim formula48 As Formula
Set formula48 = relations48.CreateFormula("", "", length49, "Punkt\Spacing * 49")

Dim reference243 As Reference
Set reference243 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference244 As Reference
Set reference244 = part1.CreateReferenceFromObject(hybridShapePointOnCurve49)

Dim hybridShapePlaneNormal49 As HybridShapePlaneNormal
Set hybridShapePlaneNormal49 = hybridShapeFactory1.AddNewPlaneNormal(reference243, reference244)

hybridBody1.AppendHybridShape hybridShapePlaneNormal49

part1.InWorkObject = hybridShapePlaneNormal49

part1.Update

Dim reference245 As Reference
Set reference245 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve50 As HybridShapePointOnCurve
Set hybridShapePointOnCurve50 = hybridShapeFactory1.DuplicateGSMSpec(reference245)

Dim reference246 As Reference
Set reference246 = part1.CreateReferenceFromObject(hybridShapePointOnCurve50)

Dim reference247 As Reference
Set reference247 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference246, reference247

Dim relations49 As Relations
Set relations49 = part1.Relations

Dim parameters52 As Parameters
Set parameters52 = part1.Parameters

Dim length50 As Length
Set length50 = parameters52.Item("Punkt\Spacing")

Dim formula49 As Formula
Set formula49 = relations49.CreateFormula("", "", length50, "Punkt\Spacing * 50")

Dim reference248 As Reference
Set reference248 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference249 As Reference
Set reference249 = part1.CreateReferenceFromObject(hybridShapePointOnCurve50)

Dim hybridShapePlaneNormal50 As HybridShapePlaneNormal
Set hybridShapePlaneNormal50 = hybridShapeFactory1.AddNewPlaneNormal(reference248, reference249)

hybridBody1.AppendHybridShape hybridShapePlaneNormal50

part1.InWorkObject = hybridShapePlaneNormal50

part1.Update

Dim reference250 As Reference
Set reference250 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve51 As HybridShapePointOnCurve
Set hybridShapePointOnCurve51 = hybridShapeFactory1.DuplicateGSMSpec(reference250)

Dim reference251 As Reference
Set reference251 = part1.CreateReferenceFromObject(hybridShapePointOnCurve51)

Dim reference252 As Reference
Set reference252 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference251, reference252

Dim relations50 As Relations
Set relations50 = part1.Relations

Dim parameters53 As Parameters
Set parameters53 = part1.Parameters

Dim length51 As Length
Set length51 = parameters53.Item("Punkt\Spacing")

Dim formula50 As Formula
Set formula50 = relations50.CreateFormula("", "", length51, "Punkt\Spacing * 51")

Dim reference253 As Reference
Set reference253 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference254 As Reference
Set reference254 = part1.CreateReferenceFromObject(hybridShapePointOnCurve51)

Dim hybridShapePlaneNormal51 As HybridShapePlaneNormal
Set hybridShapePlaneNormal51 = hybridShapeFactory1.AddNewPlaneNormal(reference253, reference254)

hybridBody1.AppendHybridShape hybridShapePlaneNormal51

part1.InWorkObject = hybridShapePlaneNormal51

part1.Update

Dim reference255 As Reference
Set reference255 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve52 As HybridShapePointOnCurve
Set hybridShapePointOnCurve52 = hybridShapeFactory1.DuplicateGSMSpec(reference255)

Dim reference256 As Reference
Set reference256 = part1.CreateReferenceFromObject(hybridShapePointOnCurve52)

Dim reference257 As Reference
Set reference257 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference256, reference257

Dim relations51 As Relations
Set relations51 = part1.Relations

Dim parameters54 As Parameters
Set parameters54 = part1.Parameters

Dim length52 As Length
Set length52 = parameters54.Item("Punkt\Spacing")

Dim formula51 As Formula
Set formula51 = relations51.CreateFormula("", "", length52, "Punkt\Spacing * 52")

Dim reference258 As Reference
Set reference258 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference259 As Reference
Set reference259 = part1.CreateReferenceFromObject(hybridShapePointOnCurve52)

Dim hybridShapePlaneNormal52 As HybridShapePlaneNormal
Set hybridShapePlaneNormal52 = hybridShapeFactory1.AddNewPlaneNormal(reference258, reference259)

hybridBody1.AppendHybridShape hybridShapePlaneNormal52

part1.InWorkObject = hybridShapePlaneNormal52

part1.Update

Dim reference260 As Reference
Set reference260 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve53 As HybridShapePointOnCurve
Set hybridShapePointOnCurve53 = hybridShapeFactory1.DuplicateGSMSpec(reference260)

Dim reference261 As Reference
Set reference261 = part1.CreateReferenceFromObject(hybridShapePointOnCurve53)

Dim reference262 As Reference
Set reference262 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference261, reference262

Dim relations52 As Relations
Set relations52 = part1.Relations

Dim parameters55 As Parameters
Set parameters55 = part1.Parameters

Dim length53 As Length
Set length53 = parameters55.Item("Punkt\Spacing")

Dim formula52 As Formula
Set formula52 = relations52.CreateFormula("", "", length53, "Punkt\Spacing * 53")

Dim reference263 As Reference
Set reference263 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference264 As Reference
Set reference264 = part1.CreateReferenceFromObject(hybridShapePointOnCurve53)

Dim hybridShapePlaneNormal53 As HybridShapePlaneNormal
Set hybridShapePlaneNormal53 = hybridShapeFactory1.AddNewPlaneNormal(reference263, reference264)

hybridBody1.AppendHybridShape hybridShapePlaneNormal53

part1.InWorkObject = hybridShapePlaneNormal53

part1.Update

Dim reference265 As Reference
Set reference265 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve54 As HybridShapePointOnCurve
Set hybridShapePointOnCurve54 = hybridShapeFactory1.DuplicateGSMSpec(reference265)

Dim reference266 As Reference
Set reference266 = part1.CreateReferenceFromObject(hybridShapePointOnCurve54)

Dim reference267 As Reference
Set reference267 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference266, reference267

Dim relations53 As Relations
Set relations53 = part1.Relations

Dim parameters56 As Parameters
Set parameters56 = part1.Parameters

Dim length54 As Length
Set length54 = parameters56.Item("Punkt\Spacing")

Dim formula53 As Formula
Set formula53 = relations53.CreateFormula("", "", length54, "Punkt\Spacing * 54")

Dim reference268 As Reference
Set reference268 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference269 As Reference
Set reference269 = part1.CreateReferenceFromObject(hybridShapePointOnCurve54)

Dim hybridShapePlaneNormal54 As HybridShapePlaneNormal
Set hybridShapePlaneNormal54 = hybridShapeFactory1.AddNewPlaneNormal(reference268, reference269)

hybridBody1.AppendHybridShape hybridShapePlaneNormal54

part1.InWorkObject = hybridShapePlaneNormal54

part1.Update

Dim reference270 As Reference
Set reference270 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve55 As HybridShapePointOnCurve
Set hybridShapePointOnCurve55 = hybridShapeFactory1.DuplicateGSMSpec(reference270)

Dim reference271 As Reference
Set reference271 = part1.CreateReferenceFromObject(hybridShapePointOnCurve55)

Dim reference272 As Reference
Set reference272 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference271, reference272

Dim relations54 As Relations
Set relations54 = part1.Relations

Dim parameters57 As Parameters
Set parameters57 = part1.Parameters

Dim length55 As Length
Set length55 = parameters57.Item("Punkt\Spacing")

Dim formula54 As Formula
Set formula54 = relations54.CreateFormula("", "", length55, "Punkt\Spacing * 55")

Dim reference273 As Reference
Set reference273 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference274 As Reference
Set reference274 = part1.CreateReferenceFromObject(hybridShapePointOnCurve55)

Dim hybridShapePlaneNormal55 As HybridShapePlaneNormal
Set hybridShapePlaneNormal55 = hybridShapeFactory1.AddNewPlaneNormal(reference273, reference274)

hybridBody1.AppendHybridShape hybridShapePlaneNormal55

part1.InWorkObject = hybridShapePlaneNormal55

part1.Update

Dim reference275 As Reference
Set reference275 = part1.CreateReferenceFromObject(hybridShapePointOnCurve1)

Dim hybridShapePointOnCurve56 As HybridShapePointOnCurve
Set hybridShapePointOnCurve56 = hybridShapeFactory1.DuplicateGSMSpec(reference275)

Dim reference276 As Reference
Set reference276 = part1.CreateReferenceFromObject(hybridShapePointOnCurve56)

Dim reference277 As Reference
Set reference277 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference276, reference277

Dim relations55 As Relations
Set relations55 = part1.Relations

Dim parameters58 As Parameters
Set parameters58 = part1.Parameters

Dim length56 As Length
Set length56 = parameters58.Item("Punkt\Spacing")

Dim formula55 As Formula
Set formula55 = relations55.CreateFormula("", "", length56, "Punkt\Spacing * 56")

Dim reference278 As Reference
Set reference278 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference279 As Reference
Set reference279 = part1.CreateReferenceFromObject(hybridShapePointOnCurve56)

Dim hybridShapePlaneNormal56 As HybridShapePlaneNormal
Set hybridShapePlaneNormal56 = hybridShapeFactory1.AddNewPlaneNormal(reference278, reference279)

hybridBody1.AppendHybridShape hybridShapePlaneNormal56

part1.InWorkObject = hybridShapePlaneNormal56

part1.Update

Dim reference280 As Reference
Set reference280 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference281 As Reference
Set reference281 = part1.CreateReferenceFromObject(hybridShapePointExplicit1)

Dim hybridShapePointOnCurve57 As HybridShapePointOnCurve
Set hybridShapePointOnCurve57 = hybridShapeFactory1.AddNewPointOnCurveWithReferenceFromDistance(reference280, reference281, 50#, False)

hybridShapePointOnCurve57.DistanceType = 1

hybridBody1.AppendHybridShape hybridShapePointOnCurve57

part1.InWorkObject = hybridShapePointOnCurve57

part1.Update

Dim parameters59 As Parameters
Set parameters59 = part1.Parameters

Dim length57 As Length
Set length57 = parameters59.Item("Punkt\Spacing")

length57.Value = 50#

Dim reference282 As Reference
Set reference282 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference283 As Reference
Set reference283 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePlaneNormal57 As HybridShapePlaneNormal
Set hybridShapePlaneNormal57 = hybridShapeFactory1.AddNewPlaneNormal(reference282, reference283)

hybridBody1.AppendHybridShape hybridShapePlaneNormal57

part1.InWorkObject = hybridShapePlaneNormal57

part1.Update

Dim reference284 As Reference
Set reference284 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve58 As HybridShapePointOnCurve
Set hybridShapePointOnCurve58 = hybridShapeFactory1.DuplicateGSMSpec(reference284)

Dim reference285 As Reference
Set reference285 = part1.CreateReferenceFromObject(hybridShapePointOnCurve58)

Dim reference286 As Reference
Set reference286 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference285, reference286

Dim relations56 As Relations
Set relations56 = part1.Relations

Dim parameters60 As Parameters
Set parameters60 = part1.Parameters

Dim length58 As Length
Set length58 = parameters60.Item("Punkt\Spacing")

Dim formula56 As Formula
Set formula56 = relations56.CreateFormula("", "", length58, "Punkt\Spacing * 2")

Dim reference287 As Reference
Set reference287 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference288 As Reference
Set reference288 = part1.CreateReferenceFromObject(hybridShapePointOnCurve58)

Dim hybridShapePlaneNormal58 As HybridShapePlaneNormal
Set hybridShapePlaneNormal58 = hybridShapeFactory1.AddNewPlaneNormal(reference287, reference288)

hybridBody1.AppendHybridShape hybridShapePlaneNormal58

part1.InWorkObject = hybridShapePlaneNormal58

part1.Update

Dim reference289 As Reference
Set reference289 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve59 As HybridShapePointOnCurve
Set hybridShapePointOnCurve59 = hybridShapeFactory1.DuplicateGSMSpec(reference289)

Dim reference290 As Reference
Set reference290 = part1.CreateReferenceFromObject(hybridShapePointOnCurve59)

Dim reference291 As Reference
Set reference291 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference290, reference291

Dim relations57 As Relations
Set relations57 = part1.Relations

Dim parameters61 As Parameters
Set parameters61 = part1.Parameters

Dim length59 As Length
Set length59 = parameters61.Item("Punkt\Spacing")

Dim formula57 As Formula
Set formula57 = relations57.CreateFormula("", "", length59, "Punkt\Spacing * 3")

Dim reference292 As Reference
Set reference292 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference293 As Reference
Set reference293 = part1.CreateReferenceFromObject(hybridShapePointOnCurve59)

Dim hybridShapePlaneNormal59 As HybridShapePlaneNormal
Set hybridShapePlaneNormal59 = hybridShapeFactory1.AddNewPlaneNormal(reference292, reference293)

hybridBody1.AppendHybridShape hybridShapePlaneNormal59

part1.InWorkObject = hybridShapePlaneNormal59

part1.Update

Dim reference294 As Reference
Set reference294 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve60 As HybridShapePointOnCurve
Set hybridShapePointOnCurve60 = hybridShapeFactory1.DuplicateGSMSpec(reference294)

Dim reference295 As Reference
Set reference295 = part1.CreateReferenceFromObject(hybridShapePointOnCurve60)

Dim reference296 As Reference
Set reference296 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference295, reference296

Dim relations58 As Relations
Set relations58 = part1.Relations

Dim parameters62 As Parameters
Set parameters62 = part1.Parameters

Dim length60 As Length
Set length60 = parameters62.Item("Punkt\Spacing")

Dim formula58 As Formula
Set formula58 = relations58.CreateFormula("", "", length60, "Punkt\Spacing * 4")

Dim reference297 As Reference
Set reference297 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference298 As Reference
Set reference298 = part1.CreateReferenceFromObject(hybridShapePointOnCurve60)

Dim hybridShapePlaneNormal60 As HybridShapePlaneNormal
Set hybridShapePlaneNormal60 = hybridShapeFactory1.AddNewPlaneNormal(reference297, reference298)

hybridBody1.AppendHybridShape hybridShapePlaneNormal60

part1.InWorkObject = hybridShapePlaneNormal60

part1.Update

Dim reference299 As Reference
Set reference299 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve61 As HybridShapePointOnCurve
Set hybridShapePointOnCurve61 = hybridShapeFactory1.DuplicateGSMSpec(reference299)

Dim reference300 As Reference
Set reference300 = part1.CreateReferenceFromObject(hybridShapePointOnCurve61)

Dim reference301 As Reference
Set reference301 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference300, reference301

Dim relations59 As Relations
Set relations59 = part1.Relations

Dim parameters63 As Parameters
Set parameters63 = part1.Parameters

Dim length61 As Length
Set length61 = parameters63.Item("Punkt\Spacing")

Dim formula59 As Formula
Set formula59 = relations59.CreateFormula("", "", length61, "Punkt\Spacing * 5")

Dim reference302 As Reference
Set reference302 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference303 As Reference
Set reference303 = part1.CreateReferenceFromObject(hybridShapePointOnCurve61)

Dim hybridShapePlaneNormal61 As HybridShapePlaneNormal
Set hybridShapePlaneNormal61 = hybridShapeFactory1.AddNewPlaneNormal(reference302, reference303)

hybridBody1.AppendHybridShape hybridShapePlaneNormal61

part1.InWorkObject = hybridShapePlaneNormal61

part1.Update

Dim reference304 As Reference
Set reference304 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve62 As HybridShapePointOnCurve
Set hybridShapePointOnCurve62 = hybridShapeFactory1.DuplicateGSMSpec(reference304)

Dim reference305 As Reference
Set reference305 = part1.CreateReferenceFromObject(hybridShapePointOnCurve62)

Dim reference306 As Reference
Set reference306 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference305, reference306

Dim relations60 As Relations
Set relations60 = part1.Relations

Dim parameters64 As Parameters
Set parameters64 = part1.Parameters

Dim length62 As Length
Set length62 = parameters64.Item("Punkt\Spacing")

Dim formula60 As Formula
Set formula60 = relations60.CreateFormula("", "", length62, "Punkt\Spacing * 6")

Dim reference307 As Reference
Set reference307 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference308 As Reference
Set reference308 = part1.CreateReferenceFromObject(hybridShapePointOnCurve62)

Dim hybridShapePlaneNormal62 As HybridShapePlaneNormal
Set hybridShapePlaneNormal62 = hybridShapeFactory1.AddNewPlaneNormal(reference307, reference308)

hybridBody1.AppendHybridShape hybridShapePlaneNormal62

part1.InWorkObject = hybridShapePlaneNormal62

part1.Update

Dim reference309 As Reference
Set reference309 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve63 As HybridShapePointOnCurve
Set hybridShapePointOnCurve63 = hybridShapeFactory1.DuplicateGSMSpec(reference309)

Dim reference310 As Reference
Set reference310 = part1.CreateReferenceFromObject(hybridShapePointOnCurve63)

Dim reference311 As Reference
Set reference311 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference310, reference311

Dim relations61 As Relations
Set relations61 = part1.Relations

Dim parameters65 As Parameters
Set parameters65 = part1.Parameters

Dim length63 As Length
Set length63 = parameters65.Item("Punkt\Spacing")

Dim formula61 As Formula
Set formula61 = relations61.CreateFormula("", "", length63, "Punkt\Spacing * 7")

Dim reference312 As Reference
Set reference312 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference313 As Reference
Set reference313 = part1.CreateReferenceFromObject(hybridShapePointOnCurve63)

Dim hybridShapePlaneNormal63 As HybridShapePlaneNormal
Set hybridShapePlaneNormal63 = hybridShapeFactory1.AddNewPlaneNormal(reference312, reference313)

hybridBody1.AppendHybridShape hybridShapePlaneNormal63

part1.InWorkObject = hybridShapePlaneNormal63

part1.Update

Dim reference314 As Reference
Set reference314 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve64 As HybridShapePointOnCurve
Set hybridShapePointOnCurve64 = hybridShapeFactory1.DuplicateGSMSpec(reference314)

Dim reference315 As Reference
Set reference315 = part1.CreateReferenceFromObject(hybridShapePointOnCurve64)

Dim reference316 As Reference
Set reference316 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference315, reference316

Dim relations62 As Relations
Set relations62 = part1.Relations

Dim parameters66 As Parameters
Set parameters66 = part1.Parameters

Dim length64 As Length
Set length64 = parameters66.Item("Punkt\Spacing")

Dim formula62 As Formula
Set formula62 = relations62.CreateFormula("", "", length64, "Punkt\Spacing * 8")

Dim reference317 As Reference
Set reference317 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference318 As Reference
Set reference318 = part1.CreateReferenceFromObject(hybridShapePointOnCurve64)

Dim hybridShapePlaneNormal64 As HybridShapePlaneNormal
Set hybridShapePlaneNormal64 = hybridShapeFactory1.AddNewPlaneNormal(reference317, reference318)

hybridBody1.AppendHybridShape hybridShapePlaneNormal64

part1.InWorkObject = hybridShapePlaneNormal64

part1.Update

Dim reference319 As Reference
Set reference319 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve65 As HybridShapePointOnCurve
Set hybridShapePointOnCurve65 = hybridShapeFactory1.DuplicateGSMSpec(reference319)

Dim reference320 As Reference
Set reference320 = part1.CreateReferenceFromObject(hybridShapePointOnCurve65)

Dim reference321 As Reference
Set reference321 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference320, reference321

Dim relations63 As Relations
Set relations63 = part1.Relations

Dim parameters67 As Parameters
Set parameters67 = part1.Parameters

Dim length65 As Length
Set length65 = parameters67.Item("Punkt\Spacing")

Dim formula63 As Formula
Set formula63 = relations63.CreateFormula("", "", length65, "Punkt\Spacing * 9")

Dim reference322 As Reference
Set reference322 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference323 As Reference
Set reference323 = part1.CreateReferenceFromObject(hybridShapePointOnCurve65)

Dim hybridShapePlaneNormal65 As HybridShapePlaneNormal
Set hybridShapePlaneNormal65 = hybridShapeFactory1.AddNewPlaneNormal(reference322, reference323)

hybridBody1.AppendHybridShape hybridShapePlaneNormal65

part1.InWorkObject = hybridShapePlaneNormal65

part1.Update

Dim reference324 As Reference
Set reference324 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve66 As HybridShapePointOnCurve
Set hybridShapePointOnCurve66 = hybridShapeFactory1.DuplicateGSMSpec(reference324)

Dim reference325 As Reference
Set reference325 = part1.CreateReferenceFromObject(hybridShapePointOnCurve66)

Dim reference326 As Reference
Set reference326 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference325, reference326

Dim relations64 As Relations
Set relations64 = part1.Relations

Dim parameters68 As Parameters
Set parameters68 = part1.Parameters

Dim length66 As Length
Set length66 = parameters68.Item("Punkt\Spacing")

Dim formula64 As Formula
Set formula64 = relations64.CreateFormula("", "", length66, "Punkt\Spacing * 10")

Dim reference327 As Reference
Set reference327 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference328 As Reference
Set reference328 = part1.CreateReferenceFromObject(hybridShapePointOnCurve66)

Dim hybridShapePlaneNormal66 As HybridShapePlaneNormal
Set hybridShapePlaneNormal66 = hybridShapeFactory1.AddNewPlaneNormal(reference327, reference328)

hybridBody1.AppendHybridShape hybridShapePlaneNormal66

part1.InWorkObject = hybridShapePlaneNormal66

part1.Update

Dim reference329 As Reference
Set reference329 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve67 As HybridShapePointOnCurve
Set hybridShapePointOnCurve67 = hybridShapeFactory1.DuplicateGSMSpec(reference329)

Dim reference330 As Reference
Set reference330 = part1.CreateReferenceFromObject(hybridShapePointOnCurve67)

Dim reference331 As Reference
Set reference331 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference330, reference331

Dim relations65 As Relations
Set relations65 = part1.Relations

Dim parameters69 As Parameters
Set parameters69 = part1.Parameters

Dim length67 As Length
Set length67 = parameters69.Item("Punkt\Spacing")

Dim formula65 As Formula
Set formula65 = relations65.CreateFormula("", "", length67, "Punkt\Spacing * 11")

Dim reference332 As Reference
Set reference332 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference333 As Reference
Set reference333 = part1.CreateReferenceFromObject(hybridShapePointOnCurve67)

Dim hybridShapePlaneNormal67 As HybridShapePlaneNormal
Set hybridShapePlaneNormal67 = hybridShapeFactory1.AddNewPlaneNormal(reference332, reference333)

hybridBody1.AppendHybridShape hybridShapePlaneNormal67

part1.InWorkObject = hybridShapePlaneNormal67

part1.Update

Dim reference334 As Reference
Set reference334 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve68 As HybridShapePointOnCurve
Set hybridShapePointOnCurve68 = hybridShapeFactory1.DuplicateGSMSpec(reference334)

Dim reference335 As Reference
Set reference335 = part1.CreateReferenceFromObject(hybridShapePointOnCurve68)

Dim reference336 As Reference
Set reference336 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference335, reference336

Dim relations66 As Relations
Set relations66 = part1.Relations

Dim parameters70 As Parameters
Set parameters70 = part1.Parameters

Dim length68 As Length
Set length68 = parameters70.Item("Punkt\Spacing")

Dim formula66 As Formula
Set formula66 = relations66.CreateFormula("", "", length68, "Punkt\Spacing * 12")

Dim reference337 As Reference
Set reference337 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference338 As Reference
Set reference338 = part1.CreateReferenceFromObject(hybridShapePointOnCurve68)

Dim hybridShapePlaneNormal68 As HybridShapePlaneNormal
Set hybridShapePlaneNormal68 = hybridShapeFactory1.AddNewPlaneNormal(reference337, reference338)

hybridBody1.AppendHybridShape hybridShapePlaneNormal68

part1.InWorkObject = hybridShapePlaneNormal68

part1.Update

Dim reference339 As Reference
Set reference339 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve69 As HybridShapePointOnCurve
Set hybridShapePointOnCurve69 = hybridShapeFactory1.DuplicateGSMSpec(reference339)

Dim reference340 As Reference
Set reference340 = part1.CreateReferenceFromObject(hybridShapePointOnCurve69)

Dim reference341 As Reference
Set reference341 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference340, reference341

Dim relations67 As Relations
Set relations67 = part1.Relations

Dim parameters71 As Parameters
Set parameters71 = part1.Parameters

Dim length69 As Length
Set length69 = parameters71.Item("Punkt\Spacing")

Dim formula67 As Formula
Set formula67 = relations67.CreateFormula("", "", length69, "Punkt\Spacing * 13")

Dim reference342 As Reference
Set reference342 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference343 As Reference
Set reference343 = part1.CreateReferenceFromObject(hybridShapePointOnCurve69)

Dim hybridShapePlaneNormal69 As HybridShapePlaneNormal
Set hybridShapePlaneNormal69 = hybridShapeFactory1.AddNewPlaneNormal(reference342, reference343)

hybridBody1.AppendHybridShape hybridShapePlaneNormal69

part1.InWorkObject = hybridShapePlaneNormal69

part1.Update

Dim reference344 As Reference
Set reference344 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve70 As HybridShapePointOnCurve
Set hybridShapePointOnCurve70 = hybridShapeFactory1.DuplicateGSMSpec(reference344)

Dim reference345 As Reference
Set reference345 = part1.CreateReferenceFromObject(hybridShapePointOnCurve70)

Dim reference346 As Reference
Set reference346 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference345, reference346

Dim relations68 As Relations
Set relations68 = part1.Relations

Dim parameters72 As Parameters
Set parameters72 = part1.Parameters

Dim length70 As Length
Set length70 = parameters72.Item("Punkt\Spacing")

Dim formula68 As Formula
Set formula68 = relations68.CreateFormula("", "", length70, "Punkt\Spacing * 14")

Dim reference347 As Reference
Set reference347 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference348 As Reference
Set reference348 = part1.CreateReferenceFromObject(hybridShapePointOnCurve70)

Dim hybridShapePlaneNormal70 As HybridShapePlaneNormal
Set hybridShapePlaneNormal70 = hybridShapeFactory1.AddNewPlaneNormal(reference347, reference348)

hybridBody1.AppendHybridShape hybridShapePlaneNormal70

part1.InWorkObject = hybridShapePlaneNormal70

part1.Update

Dim reference349 As Reference
Set reference349 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve71 As HybridShapePointOnCurve
Set hybridShapePointOnCurve71 = hybridShapeFactory1.DuplicateGSMSpec(reference349)

Dim reference350 As Reference
Set reference350 = part1.CreateReferenceFromObject(hybridShapePointOnCurve71)

Dim reference351 As Reference
Set reference351 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference350, reference351

Dim relations69 As Relations
Set relations69 = part1.Relations

Dim parameters73 As Parameters
Set parameters73 = part1.Parameters

Dim length71 As Length
Set length71 = parameters73.Item("Punkt\Spacing")

Dim formula69 As Formula
Set formula69 = relations69.CreateFormula("", "", length71, "Punkt\Spacing * 15")

Dim reference352 As Reference
Set reference352 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference353 As Reference
Set reference353 = part1.CreateReferenceFromObject(hybridShapePointOnCurve71)

Dim hybridShapePlaneNormal71 As HybridShapePlaneNormal
Set hybridShapePlaneNormal71 = hybridShapeFactory1.AddNewPlaneNormal(reference352, reference353)

hybridBody1.AppendHybridShape hybridShapePlaneNormal71

part1.InWorkObject = hybridShapePlaneNormal71

part1.Update

Dim reference354 As Reference
Set reference354 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve72 As HybridShapePointOnCurve
Set hybridShapePointOnCurve72 = hybridShapeFactory1.DuplicateGSMSpec(reference354)

Dim reference355 As Reference
Set reference355 = part1.CreateReferenceFromObject(hybridShapePointOnCurve72)

Dim reference356 As Reference
Set reference356 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference355, reference356

Dim relations70 As Relations
Set relations70 = part1.Relations

Dim parameters74 As Parameters
Set parameters74 = part1.Parameters

Dim length72 As Length
Set length72 = parameters74.Item("Punkt\Spacing")

Dim formula70 As Formula
Set formula70 = relations70.CreateFormula("", "", length72, "Punkt\Spacing * 16")

Dim reference357 As Reference
Set reference357 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference358 As Reference
Set reference358 = part1.CreateReferenceFromObject(hybridShapePointOnCurve72)

Dim hybridShapePlaneNormal72 As HybridShapePlaneNormal
Set hybridShapePlaneNormal72 = hybridShapeFactory1.AddNewPlaneNormal(reference357, reference358)

hybridBody1.AppendHybridShape hybridShapePlaneNormal72

part1.InWorkObject = hybridShapePlaneNormal72

part1.Update

Dim reference359 As Reference
Set reference359 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve73 As HybridShapePointOnCurve
Set hybridShapePointOnCurve73 = hybridShapeFactory1.DuplicateGSMSpec(reference359)

Dim reference360 As Reference
Set reference360 = part1.CreateReferenceFromObject(hybridShapePointOnCurve73)

Dim reference361 As Reference
Set reference361 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference360, reference361

Dim relations71 As Relations
Set relations71 = part1.Relations

Dim parameters75 As Parameters
Set parameters75 = part1.Parameters

Dim length73 As Length
Set length73 = parameters75.Item("Punkt\Spacing")

Dim formula71 As Formula
Set formula71 = relations71.CreateFormula("", "", length73, "Punkt\Spacing * 17")

Dim reference362 As Reference
Set reference362 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference363 As Reference
Set reference363 = part1.CreateReferenceFromObject(hybridShapePointOnCurve73)

Dim hybridShapePlaneNormal73 As HybridShapePlaneNormal
Set hybridShapePlaneNormal73 = hybridShapeFactory1.AddNewPlaneNormal(reference362, reference363)

hybridBody1.AppendHybridShape hybridShapePlaneNormal73

part1.InWorkObject = hybridShapePlaneNormal73

part1.Update

Dim reference364 As Reference
Set reference364 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve74 As HybridShapePointOnCurve
Set hybridShapePointOnCurve74 = hybridShapeFactory1.DuplicateGSMSpec(reference364)

Dim reference365 As Reference
Set reference365 = part1.CreateReferenceFromObject(hybridShapePointOnCurve74)

Dim reference366 As Reference
Set reference366 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference365, reference366

Dim relations72 As Relations
Set relations72 = part1.Relations

Dim parameters76 As Parameters
Set parameters76 = part1.Parameters

Dim length74 As Length
Set length74 = parameters76.Item("Punkt\Spacing")

Dim formula72 As Formula
Set formula72 = relations72.CreateFormula("", "", length74, "Punkt\Spacing * 18")

Dim reference367 As Reference
Set reference367 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference368 As Reference
Set reference368 = part1.CreateReferenceFromObject(hybridShapePointOnCurve74)

Dim hybridShapePlaneNormal74 As HybridShapePlaneNormal
Set hybridShapePlaneNormal74 = hybridShapeFactory1.AddNewPlaneNormal(reference367, reference368)

hybridBody1.AppendHybridShape hybridShapePlaneNormal74

part1.InWorkObject = hybridShapePlaneNormal74

part1.Update

Dim reference369 As Reference
Set reference369 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve75 As HybridShapePointOnCurve
Set hybridShapePointOnCurve75 = hybridShapeFactory1.DuplicateGSMSpec(reference369)

Dim reference370 As Reference
Set reference370 = part1.CreateReferenceFromObject(hybridShapePointOnCurve75)

Dim reference371 As Reference
Set reference371 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference370, reference371

Dim relations73 As Relations
Set relations73 = part1.Relations

Dim parameters77 As Parameters
Set parameters77 = part1.Parameters

Dim length75 As Length
Set length75 = parameters77.Item("Punkt\Spacing")

Dim formula73 As Formula
Set formula73 = relations73.CreateFormula("", "", length75, "Punkt\Spacing * 19")

Dim reference372 As Reference
Set reference372 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference373 As Reference
Set reference373 = part1.CreateReferenceFromObject(hybridShapePointOnCurve75)

Dim hybridShapePlaneNormal75 As HybridShapePlaneNormal
Set hybridShapePlaneNormal75 = hybridShapeFactory1.AddNewPlaneNormal(reference372, reference373)

hybridBody1.AppendHybridShape hybridShapePlaneNormal75

part1.InWorkObject = hybridShapePlaneNormal75

part1.Update

Dim reference374 As Reference
Set reference374 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve76 As HybridShapePointOnCurve
Set hybridShapePointOnCurve76 = hybridShapeFactory1.DuplicateGSMSpec(reference374)

Dim reference375 As Reference
Set reference375 = part1.CreateReferenceFromObject(hybridShapePointOnCurve76)

Dim reference376 As Reference
Set reference376 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference375, reference376

Dim relations74 As Relations
Set relations74 = part1.Relations

Dim parameters78 As Parameters
Set parameters78 = part1.Parameters

Dim length76 As Length
Set length76 = parameters78.Item("Punkt\Spacing")

Dim formula74 As Formula
Set formula74 = relations74.CreateFormula("", "", length76, "Punkt\Spacing * 20")

Dim reference377 As Reference
Set reference377 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference378 As Reference
Set reference378 = part1.CreateReferenceFromObject(hybridShapePointOnCurve76)

Dim hybridShapePlaneNormal76 As HybridShapePlaneNormal
Set hybridShapePlaneNormal76 = hybridShapeFactory1.AddNewPlaneNormal(reference377, reference378)

hybridBody1.AppendHybridShape hybridShapePlaneNormal76

part1.InWorkObject = hybridShapePlaneNormal76

part1.Update

Dim reference379 As Reference
Set reference379 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve77 As HybridShapePointOnCurve
Set hybridShapePointOnCurve77 = hybridShapeFactory1.DuplicateGSMSpec(reference379)

Dim reference380 As Reference
Set reference380 = part1.CreateReferenceFromObject(hybridShapePointOnCurve77)

Dim reference381 As Reference
Set reference381 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference380, reference381

Dim relations75 As Relations
Set relations75 = part1.Relations

Dim parameters79 As Parameters
Set parameters79 = part1.Parameters

Dim length77 As Length
Set length77 = parameters79.Item("Punkt\Spacing")

Dim formula75 As Formula
Set formula75 = relations75.CreateFormula("", "", length77, "Punkt\Spacing * 21")

Dim reference382 As Reference
Set reference382 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference383 As Reference
Set reference383 = part1.CreateReferenceFromObject(hybridShapePointOnCurve77)

Dim hybridShapePlaneNormal77 As HybridShapePlaneNormal
Set hybridShapePlaneNormal77 = hybridShapeFactory1.AddNewPlaneNormal(reference382, reference383)

hybridBody1.AppendHybridShape hybridShapePlaneNormal77

part1.InWorkObject = hybridShapePlaneNormal77

part1.Update

Dim reference384 As Reference
Set reference384 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve78 As HybridShapePointOnCurve
Set hybridShapePointOnCurve78 = hybridShapeFactory1.DuplicateGSMSpec(reference384)

Dim reference385 As Reference
Set reference385 = part1.CreateReferenceFromObject(hybridShapePointOnCurve78)

Dim reference386 As Reference
Set reference386 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference385, reference386

Dim relations76 As Relations
Set relations76 = part1.Relations

Dim parameters80 As Parameters
Set parameters80 = part1.Parameters

Dim length78 As Length
Set length78 = parameters80.Item("Punkt\Spacing")

Dim formula76 As Formula
Set formula76 = relations76.CreateFormula("", "", length78, "Punkt\Spacing * 22")

Dim reference387 As Reference
Set reference387 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference388 As Reference
Set reference388 = part1.CreateReferenceFromObject(hybridShapePointOnCurve78)

Dim hybridShapePlaneNormal78 As HybridShapePlaneNormal
Set hybridShapePlaneNormal78 = hybridShapeFactory1.AddNewPlaneNormal(reference387, reference388)

hybridBody1.AppendHybridShape hybridShapePlaneNormal78

part1.InWorkObject = hybridShapePlaneNormal78

part1.Update

Dim reference389 As Reference
Set reference389 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve79 As HybridShapePointOnCurve
Set hybridShapePointOnCurve79 = hybridShapeFactory1.DuplicateGSMSpec(reference389)

Dim reference390 As Reference
Set reference390 = part1.CreateReferenceFromObject(hybridShapePointOnCurve79)

Dim reference391 As Reference
Set reference391 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference390, reference391

Dim relations77 As Relations
Set relations77 = part1.Relations

Dim parameters81 As Parameters
Set parameters81 = part1.Parameters

Dim length79 As Length
Set length79 = parameters81.Item("Punkt\Spacing")

Dim formula77 As Formula
Set formula77 = relations77.CreateFormula("", "", length79, "Punkt\Spacing * 23")

Dim reference392 As Reference
Set reference392 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference393 As Reference
Set reference393 = part1.CreateReferenceFromObject(hybridShapePointOnCurve79)

Dim hybridShapePlaneNormal79 As HybridShapePlaneNormal
Set hybridShapePlaneNormal79 = hybridShapeFactory1.AddNewPlaneNormal(reference392, reference393)

hybridBody1.AppendHybridShape hybridShapePlaneNormal79

part1.InWorkObject = hybridShapePlaneNormal79

part1.Update

Dim reference394 As Reference
Set reference394 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve80 As HybridShapePointOnCurve
Set hybridShapePointOnCurve80 = hybridShapeFactory1.DuplicateGSMSpec(reference394)

Dim reference395 As Reference
Set reference395 = part1.CreateReferenceFromObject(hybridShapePointOnCurve80)

Dim reference396 As Reference
Set reference396 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference395, reference396

Dim relations78 As Relations
Set relations78 = part1.Relations

Dim parameters82 As Parameters
Set parameters82 = part1.Parameters

Dim length80 As Length
Set length80 = parameters82.Item("Punkt\Spacing")

Dim formula78 As Formula
Set formula78 = relations78.CreateFormula("", "", length80, "Punkt\Spacing * 24")

Dim reference397 As Reference
Set reference397 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference398 As Reference
Set reference398 = part1.CreateReferenceFromObject(hybridShapePointOnCurve80)

Dim hybridShapePlaneNormal80 As HybridShapePlaneNormal
Set hybridShapePlaneNormal80 = hybridShapeFactory1.AddNewPlaneNormal(reference397, reference398)

hybridBody1.AppendHybridShape hybridShapePlaneNormal80

part1.InWorkObject = hybridShapePlaneNormal80

part1.Update

Dim reference399 As Reference
Set reference399 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve81 As HybridShapePointOnCurve
Set hybridShapePointOnCurve81 = hybridShapeFactory1.DuplicateGSMSpec(reference399)

Dim reference400 As Reference
Set reference400 = part1.CreateReferenceFromObject(hybridShapePointOnCurve81)

Dim reference401 As Reference
Set reference401 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference400, reference401

Dim relations79 As Relations
Set relations79 = part1.Relations

Dim parameters83 As Parameters
Set parameters83 = part1.Parameters

Dim length81 As Length
Set length81 = parameters83.Item("Punkt\Spacing")

Dim formula79 As Formula
Set formula79 = relations79.CreateFormula("", "", length81, "Punkt\Spacing * 25")

Dim reference402 As Reference
Set reference402 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference403 As Reference
Set reference403 = part1.CreateReferenceFromObject(hybridShapePointOnCurve81)

Dim hybridShapePlaneNormal81 As HybridShapePlaneNormal
Set hybridShapePlaneNormal81 = hybridShapeFactory1.AddNewPlaneNormal(reference402, reference403)

hybridBody1.AppendHybridShape hybridShapePlaneNormal81

part1.InWorkObject = hybridShapePlaneNormal81

part1.Update

Dim reference404 As Reference
Set reference404 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve82 As HybridShapePointOnCurve
Set hybridShapePointOnCurve82 = hybridShapeFactory1.DuplicateGSMSpec(reference404)

Dim reference405 As Reference
Set reference405 = part1.CreateReferenceFromObject(hybridShapePointOnCurve82)

Dim reference406 As Reference
Set reference406 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference405, reference406

Dim relations80 As Relations
Set relations80 = part1.Relations

Dim parameters84 As Parameters
Set parameters84 = part1.Parameters

Dim length82 As Length
Set length82 = parameters84.Item("Punkt\Spacing")

Dim formula80 As Formula
Set formula80 = relations80.CreateFormula("", "", length82, "Punkt\Spacing * 26")

Dim reference407 As Reference
Set reference407 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference408 As Reference
Set reference408 = part1.CreateReferenceFromObject(hybridShapePointOnCurve82)

Dim hybridShapePlaneNormal82 As HybridShapePlaneNormal
Set hybridShapePlaneNormal82 = hybridShapeFactory1.AddNewPlaneNormal(reference407, reference408)

hybridBody1.AppendHybridShape hybridShapePlaneNormal82

part1.InWorkObject = hybridShapePlaneNormal82

part1.Update

Dim reference409 As Reference
Set reference409 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve83 As HybridShapePointOnCurve
Set hybridShapePointOnCurve83 = hybridShapeFactory1.DuplicateGSMSpec(reference409)

Dim reference410 As Reference
Set reference410 = part1.CreateReferenceFromObject(hybridShapePointOnCurve83)

Dim reference411 As Reference
Set reference411 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference410, reference411

Dim relations81 As Relations
Set relations81 = part1.Relations

Dim parameters85 As Parameters
Set parameters85 = part1.Parameters

Dim length83 As Length
Set length83 = parameters85.Item("Punkt\Spacing")

Dim formula81 As Formula
Set formula81 = relations81.CreateFormula("", "", length83, "Punkt\Spacing * 27")

Dim reference412 As Reference
Set reference412 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference413 As Reference
Set reference413 = part1.CreateReferenceFromObject(hybridShapePointOnCurve83)

Dim hybridShapePlaneNormal83 As HybridShapePlaneNormal
Set hybridShapePlaneNormal83 = hybridShapeFactory1.AddNewPlaneNormal(reference412, reference413)

hybridBody1.AppendHybridShape hybridShapePlaneNormal83

part1.InWorkObject = hybridShapePlaneNormal83

part1.Update

Dim reference414 As Reference
Set reference414 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve84 As HybridShapePointOnCurve
Set hybridShapePointOnCurve84 = hybridShapeFactory1.DuplicateGSMSpec(reference414)

Dim reference415 As Reference
Set reference415 = part1.CreateReferenceFromObject(hybridShapePointOnCurve84)

Dim reference416 As Reference
Set reference416 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference415, reference416

Dim relations82 As Relations
Set relations82 = part1.Relations

Dim parameters86 As Parameters
Set parameters86 = part1.Parameters

Dim length84 As Length
Set length84 = parameters86.Item("Punkt\Spacing")

Dim formula82 As Formula
Set formula82 = relations82.CreateFormula("", "", length84, "Punkt\Spacing * 28")

Dim reference417 As Reference
Set reference417 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference418 As Reference
Set reference418 = part1.CreateReferenceFromObject(hybridShapePointOnCurve84)

Dim hybridShapePlaneNormal84 As HybridShapePlaneNormal
Set hybridShapePlaneNormal84 = hybridShapeFactory1.AddNewPlaneNormal(reference417, reference418)

hybridBody1.AppendHybridShape hybridShapePlaneNormal84

part1.InWorkObject = hybridShapePlaneNormal84

part1.Update

Dim reference419 As Reference
Set reference419 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve85 As HybridShapePointOnCurve
Set hybridShapePointOnCurve85 = hybridShapeFactory1.DuplicateGSMSpec(reference419)

Dim reference420 As Reference
Set reference420 = part1.CreateReferenceFromObject(hybridShapePointOnCurve85)

Dim reference421 As Reference
Set reference421 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference420, reference421

Dim relations83 As Relations
Set relations83 = part1.Relations

Dim parameters87 As Parameters
Set parameters87 = part1.Parameters

Dim length85 As Length
Set length85 = parameters87.Item("Punkt\Spacing")

Dim formula83 As Formula
Set formula83 = relations83.CreateFormula("", "", length85, "Punkt\Spacing * 29")

Dim reference422 As Reference
Set reference422 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference423 As Reference
Set reference423 = part1.CreateReferenceFromObject(hybridShapePointOnCurve85)

Dim hybridShapePlaneNormal85 As HybridShapePlaneNormal
Set hybridShapePlaneNormal85 = hybridShapeFactory1.AddNewPlaneNormal(reference422, reference423)

hybridBody1.AppendHybridShape hybridShapePlaneNormal85

part1.InWorkObject = hybridShapePlaneNormal85

part1.Update

Dim reference424 As Reference
Set reference424 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve86 As HybridShapePointOnCurve
Set hybridShapePointOnCurve86 = hybridShapeFactory1.DuplicateGSMSpec(reference424)

Dim reference425 As Reference
Set reference425 = part1.CreateReferenceFromObject(hybridShapePointOnCurve86)

Dim reference426 As Reference
Set reference426 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference425, reference426

Dim relations84 As Relations
Set relations84 = part1.Relations

Dim parameters88 As Parameters
Set parameters88 = part1.Parameters

Dim length86 As Length
Set length86 = parameters88.Item("Punkt\Spacing")

Dim formula84 As Formula
Set formula84 = relations84.CreateFormula("", "", length86, "Punkt\Spacing * 30")

Dim reference427 As Reference
Set reference427 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference428 As Reference
Set reference428 = part1.CreateReferenceFromObject(hybridShapePointOnCurve86)

Dim hybridShapePlaneNormal86 As HybridShapePlaneNormal
Set hybridShapePlaneNormal86 = hybridShapeFactory1.AddNewPlaneNormal(reference427, reference428)

hybridBody1.AppendHybridShape hybridShapePlaneNormal86

part1.InWorkObject = hybridShapePlaneNormal86

part1.Update

Dim reference429 As Reference
Set reference429 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve87 As HybridShapePointOnCurve
Set hybridShapePointOnCurve87 = hybridShapeFactory1.DuplicateGSMSpec(reference429)

Dim reference430 As Reference
Set reference430 = part1.CreateReferenceFromObject(hybridShapePointOnCurve87)

Dim reference431 As Reference
Set reference431 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference430, reference431

Dim relations85 As Relations
Set relations85 = part1.Relations

Dim parameters89 As Parameters
Set parameters89 = part1.Parameters

Dim length87 As Length
Set length87 = parameters89.Item("Punkt\Spacing")

Dim formula85 As Formula
Set formula85 = relations85.CreateFormula("", "", length87, "Punkt\Spacing * 31")

Dim reference432 As Reference
Set reference432 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference433 As Reference
Set reference433 = part1.CreateReferenceFromObject(hybridShapePointOnCurve87)

Dim hybridShapePlaneNormal87 As HybridShapePlaneNormal
Set hybridShapePlaneNormal87 = hybridShapeFactory1.AddNewPlaneNormal(reference432, reference433)

hybridBody1.AppendHybridShape hybridShapePlaneNormal87

part1.InWorkObject = hybridShapePlaneNormal87

part1.Update

Dim reference434 As Reference
Set reference434 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve88 As HybridShapePointOnCurve
Set hybridShapePointOnCurve88 = hybridShapeFactory1.DuplicateGSMSpec(reference434)

Dim reference435 As Reference
Set reference435 = part1.CreateReferenceFromObject(hybridShapePointOnCurve88)

Dim reference436 As Reference
Set reference436 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference435, reference436

Dim relations86 As Relations
Set relations86 = part1.Relations

Dim parameters90 As Parameters
Set parameters90 = part1.Parameters

Dim length88 As Length
Set length88 = parameters90.Item("Punkt\Spacing")

Dim formula86 As Formula
Set formula86 = relations86.CreateFormula("", "", length88, "Punkt\Spacing * 32")

Dim reference437 As Reference
Set reference437 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference438 As Reference
Set reference438 = part1.CreateReferenceFromObject(hybridShapePointOnCurve88)

Dim hybridShapePlaneNormal88 As HybridShapePlaneNormal
Set hybridShapePlaneNormal88 = hybridShapeFactory1.AddNewPlaneNormal(reference437, reference438)

hybridBody1.AppendHybridShape hybridShapePlaneNormal88

part1.InWorkObject = hybridShapePlaneNormal88

part1.Update

Dim reference439 As Reference
Set reference439 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve89 As HybridShapePointOnCurve
Set hybridShapePointOnCurve89 = hybridShapeFactory1.DuplicateGSMSpec(reference439)

Dim reference440 As Reference
Set reference440 = part1.CreateReferenceFromObject(hybridShapePointOnCurve89)

Dim reference441 As Reference
Set reference441 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference440, reference441

Dim relations87 As Relations
Set relations87 = part1.Relations

Dim parameters91 As Parameters
Set parameters91 = part1.Parameters

Dim length89 As Length
Set length89 = parameters91.Item("Punkt\Spacing")

Dim formula87 As Formula
Set formula87 = relations87.CreateFormula("", "", length89, "Punkt\Spacing * 33")

Dim reference442 As Reference
Set reference442 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference443 As Reference
Set reference443 = part1.CreateReferenceFromObject(hybridShapePointOnCurve89)

Dim hybridShapePlaneNormal89 As HybridShapePlaneNormal
Set hybridShapePlaneNormal89 = hybridShapeFactory1.AddNewPlaneNormal(reference442, reference443)

hybridBody1.AppendHybridShape hybridShapePlaneNormal89

part1.InWorkObject = hybridShapePlaneNormal89

part1.Update

Dim reference444 As Reference
Set reference444 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve90 As HybridShapePointOnCurve
Set hybridShapePointOnCurve90 = hybridShapeFactory1.DuplicateGSMSpec(reference444)

Dim reference445 As Reference
Set reference445 = part1.CreateReferenceFromObject(hybridShapePointOnCurve90)

Dim reference446 As Reference
Set reference446 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference445, reference446

Dim relations88 As Relations
Set relations88 = part1.Relations

Dim parameters92 As Parameters
Set parameters92 = part1.Parameters

Dim length90 As Length
Set length90 = parameters92.Item("Punkt\Spacing")

Dim formula88 As Formula
Set formula88 = relations88.CreateFormula("", "", length90, "Punkt\Spacing * 34")

Dim reference447 As Reference
Set reference447 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference448 As Reference
Set reference448 = part1.CreateReferenceFromObject(hybridShapePointOnCurve90)

Dim hybridShapePlaneNormal90 As HybridShapePlaneNormal
Set hybridShapePlaneNormal90 = hybridShapeFactory1.AddNewPlaneNormal(reference447, reference448)

hybridBody1.AppendHybridShape hybridShapePlaneNormal90

part1.InWorkObject = hybridShapePlaneNormal90

part1.Update

Dim reference449 As Reference
Set reference449 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve91 As HybridShapePointOnCurve
Set hybridShapePointOnCurve91 = hybridShapeFactory1.DuplicateGSMSpec(reference449)

Dim reference450 As Reference
Set reference450 = part1.CreateReferenceFromObject(hybridShapePointOnCurve91)

Dim reference451 As Reference
Set reference451 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference450, reference451

Dim relations89 As Relations
Set relations89 = part1.Relations

Dim parameters93 As Parameters
Set parameters93 = part1.Parameters

Dim length91 As Length
Set length91 = parameters93.Item("Punkt\Spacing")

Dim formula89 As Formula
Set formula89 = relations89.CreateFormula("", "", length91, "Punkt\Spacing * 35")

Dim reference452 As Reference
Set reference452 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference453 As Reference
Set reference453 = part1.CreateReferenceFromObject(hybridShapePointOnCurve91)

Dim hybridShapePlaneNormal91 As HybridShapePlaneNormal
Set hybridShapePlaneNormal91 = hybridShapeFactory1.AddNewPlaneNormal(reference452, reference453)

hybridBody1.AppendHybridShape hybridShapePlaneNormal91

part1.InWorkObject = hybridShapePlaneNormal91

part1.Update

Dim reference454 As Reference
Set reference454 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve92 As HybridShapePointOnCurve
Set hybridShapePointOnCurve92 = hybridShapeFactory1.DuplicateGSMSpec(reference454)

Dim reference455 As Reference
Set reference455 = part1.CreateReferenceFromObject(hybridShapePointOnCurve92)

Dim reference456 As Reference
Set reference456 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference455, reference456

Dim relations90 As Relations
Set relations90 = part1.Relations

Dim parameters94 As Parameters
Set parameters94 = part1.Parameters

Dim length92 As Length
Set length92 = parameters94.Item("Punkt\Spacing")

Dim formula90 As Formula
Set formula90 = relations90.CreateFormula("", "", length92, "Punkt\Spacing * 36")

Dim reference457 As Reference
Set reference457 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference458 As Reference
Set reference458 = part1.CreateReferenceFromObject(hybridShapePointOnCurve92)

Dim hybridShapePlaneNormal92 As HybridShapePlaneNormal
Set hybridShapePlaneNormal92 = hybridShapeFactory1.AddNewPlaneNormal(reference457, reference458)

hybridBody1.AppendHybridShape hybridShapePlaneNormal92

part1.InWorkObject = hybridShapePlaneNormal92

part1.Update

Dim reference459 As Reference
Set reference459 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve93 As HybridShapePointOnCurve
Set hybridShapePointOnCurve93 = hybridShapeFactory1.DuplicateGSMSpec(reference459)

Dim reference460 As Reference
Set reference460 = part1.CreateReferenceFromObject(hybridShapePointOnCurve93)

Dim reference461 As Reference
Set reference461 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference460, reference461

Dim relations91 As Relations
Set relations91 = part1.Relations

Dim parameters95 As Parameters
Set parameters95 = part1.Parameters

Dim length93 As Length
Set length93 = parameters95.Item("Punkt\Spacing")

Dim formula91 As Formula
Set formula91 = relations91.CreateFormula("", "", length93, "Punkt\Spacing * 37")

Dim reference462 As Reference
Set reference462 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference463 As Reference
Set reference463 = part1.CreateReferenceFromObject(hybridShapePointOnCurve93)

Dim hybridShapePlaneNormal93 As HybridShapePlaneNormal
Set hybridShapePlaneNormal93 = hybridShapeFactory1.AddNewPlaneNormal(reference462, reference463)

hybridBody1.AppendHybridShape hybridShapePlaneNormal93

part1.InWorkObject = hybridShapePlaneNormal93

part1.Update

Dim reference464 As Reference
Set reference464 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve94 As HybridShapePointOnCurve
Set hybridShapePointOnCurve94 = hybridShapeFactory1.DuplicateGSMSpec(reference464)

Dim reference465 As Reference
Set reference465 = part1.CreateReferenceFromObject(hybridShapePointOnCurve94)

Dim reference466 As Reference
Set reference466 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference465, reference466

Dim relations92 As Relations
Set relations92 = part1.Relations

Dim parameters96 As Parameters
Set parameters96 = part1.Parameters

Dim length94 As Length
Set length94 = parameters96.Item("Punkt\Spacing")

Dim formula92 As Formula
Set formula92 = relations92.CreateFormula("", "", length94, "Punkt\Spacing * 38")

Dim reference467 As Reference
Set reference467 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference468 As Reference
Set reference468 = part1.CreateReferenceFromObject(hybridShapePointOnCurve94)

Dim hybridShapePlaneNormal94 As HybridShapePlaneNormal
Set hybridShapePlaneNormal94 = hybridShapeFactory1.AddNewPlaneNormal(reference467, reference468)

hybridBody1.AppendHybridShape hybridShapePlaneNormal94

part1.InWorkObject = hybridShapePlaneNormal94

part1.Update

Dim reference469 As Reference
Set reference469 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve95 As HybridShapePointOnCurve
Set hybridShapePointOnCurve95 = hybridShapeFactory1.DuplicateGSMSpec(reference469)

Dim reference470 As Reference
Set reference470 = part1.CreateReferenceFromObject(hybridShapePointOnCurve95)

Dim reference471 As Reference
Set reference471 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference470, reference471

Dim relations93 As Relations
Set relations93 = part1.Relations

Dim parameters97 As Parameters
Set parameters97 = part1.Parameters

Dim length95 As Length
Set length95 = parameters97.Item("Punkt\Spacing")

Dim formula93 As Formula
Set formula93 = relations93.CreateFormula("", "", length95, "Punkt\Spacing * 39")

Dim reference472 As Reference
Set reference472 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference473 As Reference
Set reference473 = part1.CreateReferenceFromObject(hybridShapePointOnCurve95)

Dim hybridShapePlaneNormal95 As HybridShapePlaneNormal
Set hybridShapePlaneNormal95 = hybridShapeFactory1.AddNewPlaneNormal(reference472, reference473)

hybridBody1.AppendHybridShape hybridShapePlaneNormal95

part1.InWorkObject = hybridShapePlaneNormal95

part1.Update

Dim reference474 As Reference
Set reference474 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve96 As HybridShapePointOnCurve
Set hybridShapePointOnCurve96 = hybridShapeFactory1.DuplicateGSMSpec(reference474)

Dim reference475 As Reference
Set reference475 = part1.CreateReferenceFromObject(hybridShapePointOnCurve96)

Dim reference476 As Reference
Set reference476 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference475, reference476

Dim relations94 As Relations
Set relations94 = part1.Relations

Dim parameters98 As Parameters
Set parameters98 = part1.Parameters

Dim length96 As Length
Set length96 = parameters98.Item("Punkt\Spacing")

Dim formula94 As Formula
Set formula94 = relations94.CreateFormula("", "", length96, "Punkt\Spacing * 40")

Dim reference477 As Reference
Set reference477 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference478 As Reference
Set reference478 = part1.CreateReferenceFromObject(hybridShapePointOnCurve96)

Dim hybridShapePlaneNormal96 As HybridShapePlaneNormal
Set hybridShapePlaneNormal96 = hybridShapeFactory1.AddNewPlaneNormal(reference477, reference478)

hybridBody1.AppendHybridShape hybridShapePlaneNormal96

part1.InWorkObject = hybridShapePlaneNormal96

part1.Update

Dim reference479 As Reference
Set reference479 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve97 As HybridShapePointOnCurve
Set hybridShapePointOnCurve97 = hybridShapeFactory1.DuplicateGSMSpec(reference479)

Dim reference480 As Reference
Set reference480 = part1.CreateReferenceFromObject(hybridShapePointOnCurve97)

Dim reference481 As Reference
Set reference481 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference480, reference481

Dim relations95 As Relations
Set relations95 = part1.Relations

Dim parameters99 As Parameters
Set parameters99 = part1.Parameters

Dim length97 As Length
Set length97 = parameters99.Item("Punkt\Spacing")

Dim formula95 As Formula
Set formula95 = relations95.CreateFormula("", "", length97, "Punkt\Spacing * 41")

Dim reference482 As Reference
Set reference482 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference483 As Reference
Set reference483 = part1.CreateReferenceFromObject(hybridShapePointOnCurve97)

Dim hybridShapePlaneNormal97 As HybridShapePlaneNormal
Set hybridShapePlaneNormal97 = hybridShapeFactory1.AddNewPlaneNormal(reference482, reference483)

hybridBody1.AppendHybridShape hybridShapePlaneNormal97

part1.InWorkObject = hybridShapePlaneNormal97

part1.Update

Dim reference484 As Reference
Set reference484 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve98 As HybridShapePointOnCurve
Set hybridShapePointOnCurve98 = hybridShapeFactory1.DuplicateGSMSpec(reference484)

Dim reference485 As Reference
Set reference485 = part1.CreateReferenceFromObject(hybridShapePointOnCurve98)

Dim reference486 As Reference
Set reference486 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference485, reference486

Dim relations96 As Relations
Set relations96 = part1.Relations

Dim parameters100 As Parameters
Set parameters100 = part1.Parameters

Dim length98 As Length
Set length98 = parameters100.Item("Punkt\Spacing")

Dim formula96 As Formula
Set formula96 = relations96.CreateFormula("", "", length98, "Punkt\Spacing * 42")

Dim reference487 As Reference
Set reference487 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference488 As Reference
Set reference488 = part1.CreateReferenceFromObject(hybridShapePointOnCurve98)

Dim hybridShapePlaneNormal98 As HybridShapePlaneNormal
Set hybridShapePlaneNormal98 = hybridShapeFactory1.AddNewPlaneNormal(reference487, reference488)

hybridBody1.AppendHybridShape hybridShapePlaneNormal98

part1.InWorkObject = hybridShapePlaneNormal98

part1.Update

Dim reference489 As Reference
Set reference489 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve99 As HybridShapePointOnCurve
Set hybridShapePointOnCurve99 = hybridShapeFactory1.DuplicateGSMSpec(reference489)

Dim reference490 As Reference
Set reference490 = part1.CreateReferenceFromObject(hybridShapePointOnCurve99)

Dim reference491 As Reference
Set reference491 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference490, reference491

Dim relations97 As Relations
Set relations97 = part1.Relations

Dim parameters101 As Parameters
Set parameters101 = part1.Parameters

Dim length99 As Length
Set length99 = parameters101.Item("Punkt\Spacing")

Dim formula97 As Formula
Set formula97 = relations97.CreateFormula("", "", length99, "Punkt\Spacing * 43")

Dim reference492 As Reference
Set reference492 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference493 As Reference
Set reference493 = part1.CreateReferenceFromObject(hybridShapePointOnCurve99)

Dim hybridShapePlaneNormal99 As HybridShapePlaneNormal
Set hybridShapePlaneNormal99 = hybridShapeFactory1.AddNewPlaneNormal(reference492, reference493)

hybridBody1.AppendHybridShape hybridShapePlaneNormal99

part1.InWorkObject = hybridShapePlaneNormal99

part1.Update

Dim reference494 As Reference
Set reference494 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve100 As HybridShapePointOnCurve
Set hybridShapePointOnCurve100 = hybridShapeFactory1.DuplicateGSMSpec(reference494)

Dim reference495 As Reference
Set reference495 = part1.CreateReferenceFromObject(hybridShapePointOnCurve100)

Dim reference496 As Reference
Set reference496 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference495, reference496

Dim relations98 As Relations
Set relations98 = part1.Relations

Dim parameters102 As Parameters
Set parameters102 = part1.Parameters

Dim length100 As Length
Set length100 = parameters102.Item("Punkt\Spacing")

Dim formula98 As Formula
Set formula98 = relations98.CreateFormula("", "", length100, "Punkt\Spacing * 44")

Dim reference497 As Reference
Set reference497 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference498 As Reference
Set reference498 = part1.CreateReferenceFromObject(hybridShapePointOnCurve100)

Dim hybridShapePlaneNormal100 As HybridShapePlaneNormal
Set hybridShapePlaneNormal100 = hybridShapeFactory1.AddNewPlaneNormal(reference497, reference498)

hybridBody1.AppendHybridShape hybridShapePlaneNormal100

part1.InWorkObject = hybridShapePlaneNormal100

part1.Update

Dim reference499 As Reference
Set reference499 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve101 As HybridShapePointOnCurve
Set hybridShapePointOnCurve101 = hybridShapeFactory1.DuplicateGSMSpec(reference499)

Dim reference500 As Reference
Set reference500 = part1.CreateReferenceFromObject(hybridShapePointOnCurve101)

Dim reference501 As Reference
Set reference501 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference500, reference501

Dim relations99 As Relations
Set relations99 = part1.Relations

Dim parameters103 As Parameters
Set parameters103 = part1.Parameters

Dim length101 As Length
Set length101 = parameters103.Item("Punkt\Spacing")

Dim formula99 As Formula
Set formula99 = relations99.CreateFormula("", "", length101, "Punkt\Spacing * 45")

Dim reference502 As Reference
Set reference502 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference503 As Reference
Set reference503 = part1.CreateReferenceFromObject(hybridShapePointOnCurve101)

Dim hybridShapePlaneNormal101 As HybridShapePlaneNormal
Set hybridShapePlaneNormal101 = hybridShapeFactory1.AddNewPlaneNormal(reference502, reference503)

hybridBody1.AppendHybridShape hybridShapePlaneNormal101

part1.InWorkObject = hybridShapePlaneNormal101

part1.Update

Dim reference504 As Reference
Set reference504 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve102 As HybridShapePointOnCurve
Set hybridShapePointOnCurve102 = hybridShapeFactory1.DuplicateGSMSpec(reference504)

Dim reference505 As Reference
Set reference505 = part1.CreateReferenceFromObject(hybridShapePointOnCurve102)

Dim reference506 As Reference
Set reference506 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference505, reference506

Dim relations100 As Relations
Set relations100 = part1.Relations

Dim parameters104 As Parameters
Set parameters104 = part1.Parameters

Dim length102 As Length
Set length102 = parameters104.Item("Punkt\Spacing")

Dim formula100 As Formula
Set formula100 = relations100.CreateFormula("", "", length102, "Punkt\Spacing * 46")

Dim reference507 As Reference
Set reference507 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference508 As Reference
Set reference508 = part1.CreateReferenceFromObject(hybridShapePointOnCurve102)

Dim hybridShapePlaneNormal102 As HybridShapePlaneNormal
Set hybridShapePlaneNormal102 = hybridShapeFactory1.AddNewPlaneNormal(reference507, reference508)

hybridBody1.AppendHybridShape hybridShapePlaneNormal102

part1.InWorkObject = hybridShapePlaneNormal102

part1.Update

Dim reference509 As Reference
Set reference509 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve103 As HybridShapePointOnCurve
Set hybridShapePointOnCurve103 = hybridShapeFactory1.DuplicateGSMSpec(reference509)

Dim reference510 As Reference
Set reference510 = part1.CreateReferenceFromObject(hybridShapePointOnCurve103)

Dim reference511 As Reference
Set reference511 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference510, reference511

Dim relations101 As Relations
Set relations101 = part1.Relations

Dim parameters105 As Parameters
Set parameters105 = part1.Parameters

Dim length103 As Length
Set length103 = parameters105.Item("Punkt\Spacing")

Dim formula101 As Formula
Set formula101 = relations101.CreateFormula("", "", length103, "Punkt\Spacing * 47")

Dim reference512 As Reference
Set reference512 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference513 As Reference
Set reference513 = part1.CreateReferenceFromObject(hybridShapePointOnCurve103)

Dim hybridShapePlaneNormal103 As HybridShapePlaneNormal
Set hybridShapePlaneNormal103 = hybridShapeFactory1.AddNewPlaneNormal(reference512, reference513)

hybridBody1.AppendHybridShape hybridShapePlaneNormal103

part1.InWorkObject = hybridShapePlaneNormal103

part1.Update

Dim reference514 As Reference
Set reference514 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve104 As HybridShapePointOnCurve
Set hybridShapePointOnCurve104 = hybridShapeFactory1.DuplicateGSMSpec(reference514)

Dim reference515 As Reference
Set reference515 = part1.CreateReferenceFromObject(hybridShapePointOnCurve104)

Dim reference516 As Reference
Set reference516 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference515, reference516

Dim relations102 As Relations
Set relations102 = part1.Relations

Dim parameters106 As Parameters
Set parameters106 = part1.Parameters

Dim length104 As Length
Set length104 = parameters106.Item("Punkt\Spacing")

Dim formula102 As Formula
Set formula102 = relations102.CreateFormula("", "", length104, "Punkt\Spacing * 48")

Dim reference517 As Reference
Set reference517 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference518 As Reference
Set reference518 = part1.CreateReferenceFromObject(hybridShapePointOnCurve104)

Dim hybridShapePlaneNormal104 As HybridShapePlaneNormal
Set hybridShapePlaneNormal104 = hybridShapeFactory1.AddNewPlaneNormal(reference517, reference518)

hybridBody1.AppendHybridShape hybridShapePlaneNormal104

part1.InWorkObject = hybridShapePlaneNormal104

part1.Update

Dim reference519 As Reference
Set reference519 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve105 As HybridShapePointOnCurve
Set hybridShapePointOnCurve105 = hybridShapeFactory1.DuplicateGSMSpec(reference519)

Dim reference520 As Reference
Set reference520 = part1.CreateReferenceFromObject(hybridShapePointOnCurve105)

Dim reference521 As Reference
Set reference521 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference520, reference521

Dim relations103 As Relations
Set relations103 = part1.Relations

Dim parameters107 As Parameters
Set parameters107 = part1.Parameters

Dim length105 As Length
Set length105 = parameters107.Item("Punkt\Spacing")

Dim formula103 As Formula
Set formula103 = relations103.CreateFormula("", "", length105, "Punkt\Spacing * 49")

Dim reference522 As Reference
Set reference522 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference523 As Reference
Set reference523 = part1.CreateReferenceFromObject(hybridShapePointOnCurve105)

Dim hybridShapePlaneNormal105 As HybridShapePlaneNormal
Set hybridShapePlaneNormal105 = hybridShapeFactory1.AddNewPlaneNormal(reference522, reference523)

hybridBody1.AppendHybridShape hybridShapePlaneNormal105

part1.InWorkObject = hybridShapePlaneNormal105

part1.Update

Dim reference524 As Reference
Set reference524 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve106 As HybridShapePointOnCurve
Set hybridShapePointOnCurve106 = hybridShapeFactory1.DuplicateGSMSpec(reference524)

Dim reference525 As Reference
Set reference525 = part1.CreateReferenceFromObject(hybridShapePointOnCurve106)

Dim reference526 As Reference
Set reference526 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference525, reference526

Dim relations104 As Relations
Set relations104 = part1.Relations

Dim parameters108 As Parameters
Set parameters108 = part1.Parameters

Dim length106 As Length
Set length106 = parameters108.Item("Punkt\Spacing")

Dim formula104 As Formula
Set formula104 = relations104.CreateFormula("", "", length106, "Punkt\Spacing * 50")

Dim reference527 As Reference
Set reference527 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference528 As Reference
Set reference528 = part1.CreateReferenceFromObject(hybridShapePointOnCurve106)

Dim hybridShapePlaneNormal106 As HybridShapePlaneNormal
Set hybridShapePlaneNormal106 = hybridShapeFactory1.AddNewPlaneNormal(reference527, reference528)

hybridBody1.AppendHybridShape hybridShapePlaneNormal106

part1.InWorkObject = hybridShapePlaneNormal106

part1.Update

Dim reference529 As Reference
Set reference529 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve107 As HybridShapePointOnCurve
Set hybridShapePointOnCurve107 = hybridShapeFactory1.DuplicateGSMSpec(reference529)

Dim reference530 As Reference
Set reference530 = part1.CreateReferenceFromObject(hybridShapePointOnCurve107)

Dim reference531 As Reference
Set reference531 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference530, reference531

Dim relations105 As Relations
Set relations105 = part1.Relations

Dim parameters109 As Parameters
Set parameters109 = part1.Parameters

Dim length107 As Length
Set length107 = parameters109.Item("Punkt\Spacing")

Dim formula105 As Formula
Set formula105 = relations105.CreateFormula("", "", length107, "Punkt\Spacing * 51")

Dim reference532 As Reference
Set reference532 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference533 As Reference
Set reference533 = part1.CreateReferenceFromObject(hybridShapePointOnCurve107)

Dim hybridShapePlaneNormal107 As HybridShapePlaneNormal
Set hybridShapePlaneNormal107 = hybridShapeFactory1.AddNewPlaneNormal(reference532, reference533)

hybridBody1.AppendHybridShape hybridShapePlaneNormal107

part1.InWorkObject = hybridShapePlaneNormal107

part1.Update

Dim reference534 As Reference
Set reference534 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve108 As HybridShapePointOnCurve
Set hybridShapePointOnCurve108 = hybridShapeFactory1.DuplicateGSMSpec(reference534)

Dim reference535 As Reference
Set reference535 = part1.CreateReferenceFromObject(hybridShapePointOnCurve108)

Dim reference536 As Reference
Set reference536 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference535, reference536

Dim relations106 As Relations
Set relations106 = part1.Relations

Dim parameters110 As Parameters
Set parameters110 = part1.Parameters

Dim length108 As Length
Set length108 = parameters110.Item("Punkt\Spacing")

Dim formula106 As Formula
Set formula106 = relations106.CreateFormula("", "", length108, "Punkt\Spacing * 52")

Dim reference537 As Reference
Set reference537 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference538 As Reference
Set reference538 = part1.CreateReferenceFromObject(hybridShapePointOnCurve108)

Dim hybridShapePlaneNormal108 As HybridShapePlaneNormal
Set hybridShapePlaneNormal108 = hybridShapeFactory1.AddNewPlaneNormal(reference537, reference538)

hybridBody1.AppendHybridShape hybridShapePlaneNormal108

part1.InWorkObject = hybridShapePlaneNormal108

part1.Update

Dim reference539 As Reference
Set reference539 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve109 As HybridShapePointOnCurve
Set hybridShapePointOnCurve109 = hybridShapeFactory1.DuplicateGSMSpec(reference539)

Dim reference540 As Reference
Set reference540 = part1.CreateReferenceFromObject(hybridShapePointOnCurve109)

Dim reference541 As Reference
Set reference541 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference540, reference541

Dim relations107 As Relations
Set relations107 = part1.Relations

Dim parameters111 As Parameters
Set parameters111 = part1.Parameters

Dim length109 As Length
Set length109 = parameters111.Item("Punkt\Spacing")

Dim formula107 As Formula
Set formula107 = relations107.CreateFormula("", "", length109, "Punkt\Spacing * 53")

Dim reference542 As Reference
Set reference542 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference543 As Reference
Set reference543 = part1.CreateReferenceFromObject(hybridShapePointOnCurve109)

Dim hybridShapePlaneNormal109 As HybridShapePlaneNormal
Set hybridShapePlaneNormal109 = hybridShapeFactory1.AddNewPlaneNormal(reference542, reference543)

hybridBody1.AppendHybridShape hybridShapePlaneNormal109

part1.InWorkObject = hybridShapePlaneNormal109

part1.Update

Dim reference544 As Reference
Set reference544 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve110 As HybridShapePointOnCurve
Set hybridShapePointOnCurve110 = hybridShapeFactory1.DuplicateGSMSpec(reference544)

Dim reference545 As Reference
Set reference545 = part1.CreateReferenceFromObject(hybridShapePointOnCurve110)

Dim reference546 As Reference
Set reference546 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference545, reference546

Dim relations108 As Relations
Set relations108 = part1.Relations

Dim parameters112 As Parameters
Set parameters112 = part1.Parameters

Dim length110 As Length
Set length110 = parameters112.Item("Punkt\Spacing")

Dim formula108 As Formula
Set formula108 = relations108.CreateFormula("", "", length110, "Punkt\Spacing * 54")

Dim reference547 As Reference
Set reference547 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference548 As Reference
Set reference548 = part1.CreateReferenceFromObject(hybridShapePointOnCurve110)

Dim hybridShapePlaneNormal110 As HybridShapePlaneNormal
Set hybridShapePlaneNormal110 = hybridShapeFactory1.AddNewPlaneNormal(reference547, reference548)

hybridBody1.AppendHybridShape hybridShapePlaneNormal110

part1.InWorkObject = hybridShapePlaneNormal110

part1.Update

Dim reference549 As Reference
Set reference549 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve111 As HybridShapePointOnCurve
Set hybridShapePointOnCurve111 = hybridShapeFactory1.DuplicateGSMSpec(reference549)

Dim reference550 As Reference
Set reference550 = part1.CreateReferenceFromObject(hybridShapePointOnCurve111)

Dim reference551 As Reference
Set reference551 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference550, reference551

Dim relations109 As Relations
Set relations109 = part1.Relations

Dim parameters113 As Parameters
Set parameters113 = part1.Parameters

Dim length111 As Length
Set length111 = parameters113.Item("Punkt\Spacing")

Dim formula109 As Formula
Set formula109 = relations109.CreateFormula("", "", length111, "Punkt\Spacing * 55")

Dim reference552 As Reference
Set reference552 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference553 As Reference
Set reference553 = part1.CreateReferenceFromObject(hybridShapePointOnCurve111)

Dim hybridShapePlaneNormal111 As HybridShapePlaneNormal
Set hybridShapePlaneNormal111 = hybridShapeFactory1.AddNewPlaneNormal(reference552, reference553)

hybridBody1.AppendHybridShape hybridShapePlaneNormal111

part1.InWorkObject = hybridShapePlaneNormal111

part1.Update

Dim reference554 As Reference
Set reference554 = part1.CreateReferenceFromObject(hybridShapePointOnCurve57)

Dim hybridShapePointOnCurve112 As HybridShapePointOnCurve
Set hybridShapePointOnCurve112 = hybridShapeFactory1.DuplicateGSMSpec(reference554)

Dim reference555 As Reference
Set reference555 = part1.CreateReferenceFromObject(hybridShapePointOnCurve112)

Dim reference556 As Reference
Set reference556 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference555, reference556

Dim relations110 As Relations
Set relations110 = part1.Relations

Dim parameters114 As Parameters
Set parameters114 = part1.Parameters

Dim length112 As Length
Set length112 = parameters114.Item("Punkt\Spacing")

Dim formula110 As Formula
Set formula110 = relations110.CreateFormula("", "", length112, "Punkt\Spacing * 56")

Dim reference557 As Reference
Set reference557 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference558 As Reference
Set reference558 = part1.CreateReferenceFromObject(hybridShapePointOnCurve112)

Dim hybridShapePlaneNormal112 As HybridShapePlaneNormal
Set hybridShapePlaneNormal112 = hybridShapeFactory1.AddNewPlaneNormal(reference557, reference558)

hybridBody1.AppendHybridShape hybridShapePlaneNormal112

part1.InWorkObject = hybridShapePlaneNormal112

part1.Update

Dim reference559 As Reference
Set reference559 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference560 As Reference
Set reference560 = part1.CreateReferenceFromObject(hybridShapePointExplicit1)

Dim hybridShapePointOnCurve113 As HybridShapePointOnCurve
Set hybridShapePointOnCurve113 = hybridShapeFactory1.AddNewPointOnCurveWithReferenceFromDistance(reference559, reference560, 50#, False)

hybridShapePointOnCurve113.DistanceType = 1

hybridBody1.AppendHybridShape hybridShapePointOnCurve113

part1.InWorkObject = hybridShapePointOnCurve113

part1.Update

Dim parameters115 As Parameters
Set parameters115 = part1.Parameters

Dim length113 As Length
Set length113 = parameters115.Item("Punkt\Spacing")

length113.Value = 50#

Dim reference561 As Reference
Set reference561 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference562 As Reference
Set reference562 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePlaneNormal113 As HybridShapePlaneNormal
Set hybridShapePlaneNormal113 = hybridShapeFactory1.AddNewPlaneNormal(reference561, reference562)

hybridBody1.AppendHybridShape hybridShapePlaneNormal113

part1.InWorkObject = hybridShapePlaneNormal113

part1.Update

Dim reference563 As Reference
Set reference563 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve114 As HybridShapePointOnCurve
Set hybridShapePointOnCurve114 = hybridShapeFactory1.DuplicateGSMSpec(reference563)

Dim reference564 As Reference
Set reference564 = part1.CreateReferenceFromObject(hybridShapePointOnCurve114)

Dim reference565 As Reference
Set reference565 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference564, reference565

Dim relations111 As Relations
Set relations111 = part1.Relations

Dim parameters116 As Parameters
Set parameters116 = part1.Parameters

Dim length114 As Length
Set length114 = parameters116.Item("D533 70038 204 00\Planes\Punkt.694\Spacing")

Dim formula111 As Formula
Set formula111 = relations111.CreateFormula("", "", length114, "Spacing * 2")

Dim reference566 As Reference
Set reference566 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference567 As Reference
Set reference567 = part1.CreateReferenceFromObject(hybridShapePointOnCurve114)

Dim hybridShapePlaneNormal114 As HybridShapePlaneNormal
Set hybridShapePlaneNormal114 = hybridShapeFactory1.AddNewPlaneNormal(reference566, reference567)

hybridBody1.AppendHybridShape hybridShapePlaneNormal114

part1.InWorkObject = hybridShapePlaneNormal114

part1.Update

Dim reference568 As Reference
Set reference568 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve115 As HybridShapePointOnCurve
Set hybridShapePointOnCurve115 = hybridShapeFactory1.DuplicateGSMSpec(reference568)

Dim reference569 As Reference
Set reference569 = part1.CreateReferenceFromObject(hybridShapePointOnCurve115)

Dim reference570 As Reference
Set reference570 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference569, reference570

Dim relations112 As Relations
Set relations112 = part1.Relations

Dim parameters117 As Parameters
Set parameters117 = part1.Parameters

Dim length115 As Length
Set length115 = parameters117.Item("D533 70038 204 00\Planes\Punkt.695\Spacing")

Dim formula112 As Formula
Set formula112 = relations112.CreateFormula("", "", length115, "Spacing * 3")

Dim reference571 As Reference
Set reference571 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference572 As Reference
Set reference572 = part1.CreateReferenceFromObject(hybridShapePointOnCurve115)

Dim hybridShapePlaneNormal115 As HybridShapePlaneNormal
Set hybridShapePlaneNormal115 = hybridShapeFactory1.AddNewPlaneNormal(reference571, reference572)

hybridBody1.AppendHybridShape hybridShapePlaneNormal115

part1.InWorkObject = hybridShapePlaneNormal115

part1.Update

Dim reference573 As Reference
Set reference573 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve116 As HybridShapePointOnCurve
Set hybridShapePointOnCurve116 = hybridShapeFactory1.DuplicateGSMSpec(reference573)

Dim reference574 As Reference
Set reference574 = part1.CreateReferenceFromObject(hybridShapePointOnCurve116)

Dim reference575 As Reference
Set reference575 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference574, reference575

Dim relations113 As Relations
Set relations113 = part1.Relations

Dim parameters118 As Parameters
Set parameters118 = part1.Parameters

Dim length116 As Length
Set length116 = parameters118.Item("D533 70038 204 00\Planes\Punkt.696\Spacing")

Dim formula113 As Formula
Set formula113 = relations113.CreateFormula("", "", length116, "Spacing * 4")

Dim reference576 As Reference
Set reference576 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference577 As Reference
Set reference577 = part1.CreateReferenceFromObject(hybridShapePointOnCurve116)

Dim hybridShapePlaneNormal116 As HybridShapePlaneNormal
Set hybridShapePlaneNormal116 = hybridShapeFactory1.AddNewPlaneNormal(reference576, reference577)

hybridBody1.AppendHybridShape hybridShapePlaneNormal116

part1.InWorkObject = hybridShapePlaneNormal116

part1.Update

Dim reference578 As Reference
Set reference578 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve117 As HybridShapePointOnCurve
Set hybridShapePointOnCurve117 = hybridShapeFactory1.DuplicateGSMSpec(reference578)

Dim reference579 As Reference
Set reference579 = part1.CreateReferenceFromObject(hybridShapePointOnCurve117)

Dim reference580 As Reference
Set reference580 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference579, reference580

Dim relations114 As Relations
Set relations114 = part1.Relations

Dim parameters119 As Parameters
Set parameters119 = part1.Parameters

Dim length117 As Length
Set length117 = parameters119.Item("D533 70038 204 00\Planes\Punkt.697\Spacing")

Dim formula114 As Formula
Set formula114 = relations114.CreateFormula("", "", length117, "Spacing * 5")

Dim reference581 As Reference
Set reference581 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference582 As Reference
Set reference582 = part1.CreateReferenceFromObject(hybridShapePointOnCurve117)

Dim hybridShapePlaneNormal117 As HybridShapePlaneNormal
Set hybridShapePlaneNormal117 = hybridShapeFactory1.AddNewPlaneNormal(reference581, reference582)

hybridBody1.AppendHybridShape hybridShapePlaneNormal117

part1.InWorkObject = hybridShapePlaneNormal117

part1.Update

Dim reference583 As Reference
Set reference583 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve118 As HybridShapePointOnCurve
Set hybridShapePointOnCurve118 = hybridShapeFactory1.DuplicateGSMSpec(reference583)

Dim reference584 As Reference
Set reference584 = part1.CreateReferenceFromObject(hybridShapePointOnCurve118)

Dim reference585 As Reference
Set reference585 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference584, reference585

Dim relations115 As Relations
Set relations115 = part1.Relations

Dim parameters120 As Parameters
Set parameters120 = part1.Parameters

Dim length118 As Length
Set length118 = parameters120.Item("D533 70038 204 00\Planes\Punkt.698\Spacing")

Dim formula115 As Formula
Set formula115 = relations115.CreateFormula("", "", length118, "Spacing * 6")

Dim reference586 As Reference
Set reference586 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference587 As Reference
Set reference587 = part1.CreateReferenceFromObject(hybridShapePointOnCurve118)

Dim hybridShapePlaneNormal118 As HybridShapePlaneNormal
Set hybridShapePlaneNormal118 = hybridShapeFactory1.AddNewPlaneNormal(reference586, reference587)

hybridBody1.AppendHybridShape hybridShapePlaneNormal118

part1.InWorkObject = hybridShapePlaneNormal118

part1.Update

Dim reference588 As Reference
Set reference588 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve119 As HybridShapePointOnCurve
Set hybridShapePointOnCurve119 = hybridShapeFactory1.DuplicateGSMSpec(reference588)

Dim reference589 As Reference
Set reference589 = part1.CreateReferenceFromObject(hybridShapePointOnCurve119)

Dim reference590 As Reference
Set reference590 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference589, reference590

Dim relations116 As Relations
Set relations116 = part1.Relations

Dim parameters121 As Parameters
Set parameters121 = part1.Parameters

Dim length119 As Length
Set length119 = parameters121.Item("D533 70038 204 00\Planes\Punkt.699\Spacing")

Dim formula116 As Formula
Set formula116 = relations116.CreateFormula("", "", length119, "Spacing * 7")

Dim reference591 As Reference
Set reference591 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference592 As Reference
Set reference592 = part1.CreateReferenceFromObject(hybridShapePointOnCurve119)

Dim hybridShapePlaneNormal119 As HybridShapePlaneNormal
Set hybridShapePlaneNormal119 = hybridShapeFactory1.AddNewPlaneNormal(reference591, reference592)

hybridBody1.AppendHybridShape hybridShapePlaneNormal119

part1.InWorkObject = hybridShapePlaneNormal119

part1.Update

Dim reference593 As Reference
Set reference593 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve120 As HybridShapePointOnCurve
Set hybridShapePointOnCurve120 = hybridShapeFactory1.DuplicateGSMSpec(reference593)

Dim reference594 As Reference
Set reference594 = part1.CreateReferenceFromObject(hybridShapePointOnCurve120)

Dim reference595 As Reference
Set reference595 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference594, reference595

Dim relations117 As Relations
Set relations117 = part1.Relations

Dim parameters122 As Parameters
Set parameters122 = part1.Parameters

Dim length120 As Length
Set length120 = parameters122.Item("D533 70038 204 00\Planes\Punkt.700\Spacing")

Dim formula117 As Formula
Set formula117 = relations117.CreateFormula("", "", length120, "Spacing * 8")

Dim reference596 As Reference
Set reference596 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference597 As Reference
Set reference597 = part1.CreateReferenceFromObject(hybridShapePointOnCurve120)

Dim hybridShapePlaneNormal120 As HybridShapePlaneNormal
Set hybridShapePlaneNormal120 = hybridShapeFactory1.AddNewPlaneNormal(reference596, reference597)

hybridBody1.AppendHybridShape hybridShapePlaneNormal120

part1.InWorkObject = hybridShapePlaneNormal120

part1.Update

Dim reference598 As Reference
Set reference598 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve121 As HybridShapePointOnCurve
Set hybridShapePointOnCurve121 = hybridShapeFactory1.DuplicateGSMSpec(reference598)

Dim reference599 As Reference
Set reference599 = part1.CreateReferenceFromObject(hybridShapePointOnCurve121)

Dim reference600 As Reference
Set reference600 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference599, reference600

Dim relations118 As Relations
Set relations118 = part1.Relations

Dim parameters123 As Parameters
Set parameters123 = part1.Parameters

Dim length121 As Length
Set length121 = parameters123.Item("D533 70038 204 00\Planes\Punkt.701\Spacing")

Dim formula118 As Formula
Set formula118 = relations118.CreateFormula("", "", length121, "Spacing * 9")

Dim reference601 As Reference
Set reference601 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference602 As Reference
Set reference602 = part1.CreateReferenceFromObject(hybridShapePointOnCurve121)

Dim hybridShapePlaneNormal121 As HybridShapePlaneNormal
Set hybridShapePlaneNormal121 = hybridShapeFactory1.AddNewPlaneNormal(reference601, reference602)

hybridBody1.AppendHybridShape hybridShapePlaneNormal121

part1.InWorkObject = hybridShapePlaneNormal121

part1.Update

Dim reference603 As Reference
Set reference603 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve122 As HybridShapePointOnCurve
Set hybridShapePointOnCurve122 = hybridShapeFactory1.DuplicateGSMSpec(reference603)

Dim reference604 As Reference
Set reference604 = part1.CreateReferenceFromObject(hybridShapePointOnCurve122)

Dim reference605 As Reference
Set reference605 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference604, reference605

Dim relations119 As Relations
Set relations119 = part1.Relations

Dim parameters124 As Parameters
Set parameters124 = part1.Parameters

Dim length122 As Length
Set length122 = parameters124.Item("D533 70038 204 00\Planes\Punkt.702\Spacing")

Dim formula119 As Formula
Set formula119 = relations119.CreateFormula("", "", length122, "Spacing * 10")

Dim reference606 As Reference
Set reference606 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference607 As Reference
Set reference607 = part1.CreateReferenceFromObject(hybridShapePointOnCurve122)

Dim hybridShapePlaneNormal122 As HybridShapePlaneNormal
Set hybridShapePlaneNormal122 = hybridShapeFactory1.AddNewPlaneNormal(reference606, reference607)

hybridBody1.AppendHybridShape hybridShapePlaneNormal122

part1.InWorkObject = hybridShapePlaneNormal122

part1.Update

Dim reference608 As Reference
Set reference608 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve123 As HybridShapePointOnCurve
Set hybridShapePointOnCurve123 = hybridShapeFactory1.DuplicateGSMSpec(reference608)

Dim reference609 As Reference
Set reference609 = part1.CreateReferenceFromObject(hybridShapePointOnCurve123)

Dim reference610 As Reference
Set reference610 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference609, reference610

Dim relations120 As Relations
Set relations120 = part1.Relations

Dim parameters125 As Parameters
Set parameters125 = part1.Parameters

Dim length123 As Length
Set length123 = parameters125.Item("D533 70038 204 00\Planes\Punkt.703\Spacing")

Dim formula120 As Formula
Set formula120 = relations120.CreateFormula("", "", length123, "Spacing * 11")

Dim reference611 As Reference
Set reference611 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference612 As Reference
Set reference612 = part1.CreateReferenceFromObject(hybridShapePointOnCurve123)

Dim hybridShapePlaneNormal123 As HybridShapePlaneNormal
Set hybridShapePlaneNormal123 = hybridShapeFactory1.AddNewPlaneNormal(reference611, reference612)

hybridBody1.AppendHybridShape hybridShapePlaneNormal123

part1.InWorkObject = hybridShapePlaneNormal123

part1.Update

Dim reference613 As Reference
Set reference613 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve124 As HybridShapePointOnCurve
Set hybridShapePointOnCurve124 = hybridShapeFactory1.DuplicateGSMSpec(reference613)

Dim reference614 As Reference
Set reference614 = part1.CreateReferenceFromObject(hybridShapePointOnCurve124)

Dim reference615 As Reference
Set reference615 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference614, reference615

Dim relations121 As Relations
Set relations121 = part1.Relations

Dim parameters126 As Parameters
Set parameters126 = part1.Parameters

Dim length124 As Length
Set length124 = parameters126.Item("D533 70038 204 00\Planes\Punkt.704\Spacing")

Dim formula121 As Formula
Set formula121 = relations121.CreateFormula("", "", length124, "Spacing * 12")

Dim reference616 As Reference
Set reference616 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference617 As Reference
Set reference617 = part1.CreateReferenceFromObject(hybridShapePointOnCurve124)

Dim hybridShapePlaneNormal124 As HybridShapePlaneNormal
Set hybridShapePlaneNormal124 = hybridShapeFactory1.AddNewPlaneNormal(reference616, reference617)

hybridBody1.AppendHybridShape hybridShapePlaneNormal124

part1.InWorkObject = hybridShapePlaneNormal124

part1.Update

Dim reference618 As Reference
Set reference618 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve125 As HybridShapePointOnCurve
Set hybridShapePointOnCurve125 = hybridShapeFactory1.DuplicateGSMSpec(reference618)

Dim reference619 As Reference
Set reference619 = part1.CreateReferenceFromObject(hybridShapePointOnCurve125)

Dim reference620 As Reference
Set reference620 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference619, reference620

Dim relations122 As Relations
Set relations122 = part1.Relations

Dim parameters127 As Parameters
Set parameters127 = part1.Parameters

Dim length125 As Length
Set length125 = parameters127.Item("D533 70038 204 00\Planes\Punkt.705\Spacing")

Dim formula122 As Formula
Set formula122 = relations122.CreateFormula("", "", length125, "Spacing * 13")

Dim reference621 As Reference
Set reference621 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference622 As Reference
Set reference622 = part1.CreateReferenceFromObject(hybridShapePointOnCurve125)

Dim hybridShapePlaneNormal125 As HybridShapePlaneNormal
Set hybridShapePlaneNormal125 = hybridShapeFactory1.AddNewPlaneNormal(reference621, reference622)

hybridBody1.AppendHybridShape hybridShapePlaneNormal125

part1.InWorkObject = hybridShapePlaneNormal125

part1.Update

Dim reference623 As Reference
Set reference623 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve126 As HybridShapePointOnCurve
Set hybridShapePointOnCurve126 = hybridShapeFactory1.DuplicateGSMSpec(reference623)

Dim reference624 As Reference
Set reference624 = part1.CreateReferenceFromObject(hybridShapePointOnCurve126)

Dim reference625 As Reference
Set reference625 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference624, reference625

Dim relations123 As Relations
Set relations123 = part1.Relations

Dim parameters128 As Parameters
Set parameters128 = part1.Parameters

Dim length126 As Length
Set length126 = parameters128.Item("D533 70038 204 00\Planes\Punkt.706\Spacing")

Dim formula123 As Formula
Set formula123 = relations123.CreateFormula("", "", length126, "Spacing * 14")

Dim reference626 As Reference
Set reference626 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference627 As Reference
Set reference627 = part1.CreateReferenceFromObject(hybridShapePointOnCurve126)

Dim hybridShapePlaneNormal126 As HybridShapePlaneNormal
Set hybridShapePlaneNormal126 = hybridShapeFactory1.AddNewPlaneNormal(reference626, reference627)

hybridBody1.AppendHybridShape hybridShapePlaneNormal126

part1.InWorkObject = hybridShapePlaneNormal126

part1.Update

Dim reference628 As Reference
Set reference628 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve127 As HybridShapePointOnCurve
Set hybridShapePointOnCurve127 = hybridShapeFactory1.DuplicateGSMSpec(reference628)

Dim reference629 As Reference
Set reference629 = part1.CreateReferenceFromObject(hybridShapePointOnCurve127)

Dim reference630 As Reference
Set reference630 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference629, reference630

Dim relations124 As Relations
Set relations124 = part1.Relations

Dim parameters129 As Parameters
Set parameters129 = part1.Parameters

Dim length127 As Length
Set length127 = parameters129.Item("D533 70038 204 00\Planes\Punkt.707\Spacing")

Dim formula124 As Formula
Set formula124 = relations124.CreateFormula("", "", length127, "Spacing * 15")

Dim reference631 As Reference
Set reference631 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference632 As Reference
Set reference632 = part1.CreateReferenceFromObject(hybridShapePointOnCurve127)

Dim hybridShapePlaneNormal127 As HybridShapePlaneNormal
Set hybridShapePlaneNormal127 = hybridShapeFactory1.AddNewPlaneNormal(reference631, reference632)

hybridBody1.AppendHybridShape hybridShapePlaneNormal127

part1.InWorkObject = hybridShapePlaneNormal127

part1.Update

Dim reference633 As Reference
Set reference633 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve128 As HybridShapePointOnCurve
Set hybridShapePointOnCurve128 = hybridShapeFactory1.DuplicateGSMSpec(reference633)

Dim reference634 As Reference
Set reference634 = part1.CreateReferenceFromObject(hybridShapePointOnCurve128)

Dim reference635 As Reference
Set reference635 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference634, reference635

Dim relations125 As Relations
Set relations125 = part1.Relations

Dim parameters130 As Parameters
Set parameters130 = part1.Parameters

Dim length128 As Length
Set length128 = parameters130.Item("D533 70038 204 00\Planes\Punkt.708\Spacing")

Dim formula125 As Formula
Set formula125 = relations125.CreateFormula("", "", length128, "Spacing * 16")

Dim reference636 As Reference
Set reference636 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference637 As Reference
Set reference637 = part1.CreateReferenceFromObject(hybridShapePointOnCurve128)

Dim hybridShapePlaneNormal128 As HybridShapePlaneNormal
Set hybridShapePlaneNormal128 = hybridShapeFactory1.AddNewPlaneNormal(reference636, reference637)

hybridBody1.AppendHybridShape hybridShapePlaneNormal128

part1.InWorkObject = hybridShapePlaneNormal128

part1.Update

Dim reference638 As Reference
Set reference638 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve129 As HybridShapePointOnCurve
Set hybridShapePointOnCurve129 = hybridShapeFactory1.DuplicateGSMSpec(reference638)

Dim reference639 As Reference
Set reference639 = part1.CreateReferenceFromObject(hybridShapePointOnCurve129)

Dim reference640 As Reference
Set reference640 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference639, reference640

Dim relations126 As Relations
Set relations126 = part1.Relations

Dim parameters131 As Parameters
Set parameters131 = part1.Parameters

Dim length129 As Length
Set length129 = parameters131.Item("D533 70038 204 00\Planes\Punkt.709\Spacing")

Dim formula126 As Formula
Set formula126 = relations126.CreateFormula("", "", length129, "Spacing * 17")

Dim reference641 As Reference
Set reference641 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference642 As Reference
Set reference642 = part1.CreateReferenceFromObject(hybridShapePointOnCurve129)

Dim hybridShapePlaneNormal129 As HybridShapePlaneNormal
Set hybridShapePlaneNormal129 = hybridShapeFactory1.AddNewPlaneNormal(reference641, reference642)

hybridBody1.AppendHybridShape hybridShapePlaneNormal129

part1.InWorkObject = hybridShapePlaneNormal129

part1.Update

Dim reference643 As Reference
Set reference643 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve130 As HybridShapePointOnCurve
Set hybridShapePointOnCurve130 = hybridShapeFactory1.DuplicateGSMSpec(reference643)

Dim reference644 As Reference
Set reference644 = part1.CreateReferenceFromObject(hybridShapePointOnCurve130)

Dim reference645 As Reference
Set reference645 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference644, reference645

Dim relations127 As Relations
Set relations127 = part1.Relations

Dim parameters132 As Parameters
Set parameters132 = part1.Parameters

Dim length130 As Length
Set length130 = parameters132.Item("D533 70038 204 00\Planes\Punkt.710\Spacing")

Dim formula127 As Formula
Set formula127 = relations127.CreateFormula("", "", length130, "Spacing * 18")

Dim reference646 As Reference
Set reference646 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference647 As Reference
Set reference647 = part1.CreateReferenceFromObject(hybridShapePointOnCurve130)

Dim hybridShapePlaneNormal130 As HybridShapePlaneNormal
Set hybridShapePlaneNormal130 = hybridShapeFactory1.AddNewPlaneNormal(reference646, reference647)

hybridBody1.AppendHybridShape hybridShapePlaneNormal130

part1.InWorkObject = hybridShapePlaneNormal130

part1.Update

Dim reference648 As Reference
Set reference648 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve131 As HybridShapePointOnCurve
Set hybridShapePointOnCurve131 = hybridShapeFactory1.DuplicateGSMSpec(reference648)

Dim reference649 As Reference
Set reference649 = part1.CreateReferenceFromObject(hybridShapePointOnCurve131)

Dim reference650 As Reference
Set reference650 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference649, reference650

Dim relations128 As Relations
Set relations128 = part1.Relations

Dim parameters133 As Parameters
Set parameters133 = part1.Parameters

Dim length131 As Length
Set length131 = parameters133.Item("D533 70038 204 00\Planes\Punkt.711\Spacing")

Dim formula128 As Formula
Set formula128 = relations128.CreateFormula("", "", length131, "Spacing * 19")

Dim reference651 As Reference
Set reference651 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference652 As Reference
Set reference652 = part1.CreateReferenceFromObject(hybridShapePointOnCurve131)

Dim hybridShapePlaneNormal131 As HybridShapePlaneNormal
Set hybridShapePlaneNormal131 = hybridShapeFactory1.AddNewPlaneNormal(reference651, reference652)

hybridBody1.AppendHybridShape hybridShapePlaneNormal131

part1.InWorkObject = hybridShapePlaneNormal131

part1.Update

Dim reference653 As Reference
Set reference653 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve132 As HybridShapePointOnCurve
Set hybridShapePointOnCurve132 = hybridShapeFactory1.DuplicateGSMSpec(reference653)

Dim reference654 As Reference
Set reference654 = part1.CreateReferenceFromObject(hybridShapePointOnCurve132)

Dim reference655 As Reference
Set reference655 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference654, reference655

Dim relations129 As Relations
Set relations129 = part1.Relations

Dim parameters134 As Parameters
Set parameters134 = part1.Parameters

Dim length132 As Length
Set length132 = parameters134.Item("D533 70038 204 00\Planes\Punkt.712\Spacing")

Dim formula129 As Formula
Set formula129 = relations129.CreateFormula("", "", length132, "Spacing * 20")

Dim reference656 As Reference
Set reference656 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference657 As Reference
Set reference657 = part1.CreateReferenceFromObject(hybridShapePointOnCurve132)

Dim hybridShapePlaneNormal132 As HybridShapePlaneNormal
Set hybridShapePlaneNormal132 = hybridShapeFactory1.AddNewPlaneNormal(reference656, reference657)

hybridBody1.AppendHybridShape hybridShapePlaneNormal132

part1.InWorkObject = hybridShapePlaneNormal132

part1.Update

Dim reference658 As Reference
Set reference658 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve133 As HybridShapePointOnCurve
Set hybridShapePointOnCurve133 = hybridShapeFactory1.DuplicateGSMSpec(reference658)

Dim reference659 As Reference
Set reference659 = part1.CreateReferenceFromObject(hybridShapePointOnCurve133)

Dim reference660 As Reference
Set reference660 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference659, reference660

Dim relations130 As Relations
Set relations130 = part1.Relations

Dim parameters135 As Parameters
Set parameters135 = part1.Parameters

Dim length133 As Length
Set length133 = parameters135.Item("D533 70038 204 00\Planes\Punkt.713\Spacing")

Dim formula130 As Formula
Set formula130 = relations130.CreateFormula("", "", length133, "Spacing * 21")

Dim reference661 As Reference
Set reference661 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference662 As Reference
Set reference662 = part1.CreateReferenceFromObject(hybridShapePointOnCurve133)

Dim hybridShapePlaneNormal133 As HybridShapePlaneNormal
Set hybridShapePlaneNormal133 = hybridShapeFactory1.AddNewPlaneNormal(reference661, reference662)

hybridBody1.AppendHybridShape hybridShapePlaneNormal133

part1.InWorkObject = hybridShapePlaneNormal133

part1.Update

Dim reference663 As Reference
Set reference663 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve134 As HybridShapePointOnCurve
Set hybridShapePointOnCurve134 = hybridShapeFactory1.DuplicateGSMSpec(reference663)

Dim reference664 As Reference
Set reference664 = part1.CreateReferenceFromObject(hybridShapePointOnCurve134)

Dim reference665 As Reference
Set reference665 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference664, reference665

Dim relations131 As Relations
Set relations131 = part1.Relations

Dim parameters136 As Parameters
Set parameters136 = part1.Parameters

Dim length134 As Length
Set length134 = parameters136.Item("D533 70038 204 00\Planes\Punkt.714\Spacing")

Dim formula131 As Formula
Set formula131 = relations131.CreateFormula("", "", length134, "Spacing * 22")

Dim reference666 As Reference
Set reference666 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference667 As Reference
Set reference667 = part1.CreateReferenceFromObject(hybridShapePointOnCurve134)

Dim hybridShapePlaneNormal134 As HybridShapePlaneNormal
Set hybridShapePlaneNormal134 = hybridShapeFactory1.AddNewPlaneNormal(reference666, reference667)

hybridBody1.AppendHybridShape hybridShapePlaneNormal134

part1.InWorkObject = hybridShapePlaneNormal134

part1.Update

Dim reference668 As Reference
Set reference668 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve135 As HybridShapePointOnCurve
Set hybridShapePointOnCurve135 = hybridShapeFactory1.DuplicateGSMSpec(reference668)

Dim reference669 As Reference
Set reference669 = part1.CreateReferenceFromObject(hybridShapePointOnCurve135)

Dim reference670 As Reference
Set reference670 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference669, reference670

Dim relations132 As Relations
Set relations132 = part1.Relations

Dim parameters137 As Parameters
Set parameters137 = part1.Parameters

Dim length135 As Length
Set length135 = parameters137.Item("D533 70038 204 00\Planes\Punkt.715\Spacing")

Dim formula132 As Formula
Set formula132 = relations132.CreateFormula("", "", length135, "Spacing * 23")

Dim reference671 As Reference
Set reference671 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference672 As Reference
Set reference672 = part1.CreateReferenceFromObject(hybridShapePointOnCurve135)

Dim hybridShapePlaneNormal135 As HybridShapePlaneNormal
Set hybridShapePlaneNormal135 = hybridShapeFactory1.AddNewPlaneNormal(reference671, reference672)

hybridBody1.AppendHybridShape hybridShapePlaneNormal135

part1.InWorkObject = hybridShapePlaneNormal135

part1.Update

Dim reference673 As Reference
Set reference673 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve136 As HybridShapePointOnCurve
Set hybridShapePointOnCurve136 = hybridShapeFactory1.DuplicateGSMSpec(reference673)

Dim reference674 As Reference
Set reference674 = part1.CreateReferenceFromObject(hybridShapePointOnCurve136)

Dim reference675 As Reference
Set reference675 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference674, reference675

Dim relations133 As Relations
Set relations133 = part1.Relations

Dim parameters138 As Parameters
Set parameters138 = part1.Parameters

Dim length136 As Length
Set length136 = parameters138.Item("D533 70038 204 00\Planes\Punkt.716\Spacing")

Dim formula133 As Formula
Set formula133 = relations133.CreateFormula("", "", length136, "Spacing * 24")

Dim reference676 As Reference
Set reference676 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference677 As Reference
Set reference677 = part1.CreateReferenceFromObject(hybridShapePointOnCurve136)

Dim hybridShapePlaneNormal136 As HybridShapePlaneNormal
Set hybridShapePlaneNormal136 = hybridShapeFactory1.AddNewPlaneNormal(reference676, reference677)

hybridBody1.AppendHybridShape hybridShapePlaneNormal136

part1.InWorkObject = hybridShapePlaneNormal136

part1.Update

Dim reference678 As Reference
Set reference678 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve137 As HybridShapePointOnCurve
Set hybridShapePointOnCurve137 = hybridShapeFactory1.DuplicateGSMSpec(reference678)

Dim reference679 As Reference
Set reference679 = part1.CreateReferenceFromObject(hybridShapePointOnCurve137)

Dim reference680 As Reference
Set reference680 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference679, reference680

Dim relations134 As Relations
Set relations134 = part1.Relations

Dim parameters139 As Parameters
Set parameters139 = part1.Parameters

Dim length137 As Length
Set length137 = parameters139.Item("D533 70038 204 00\Planes\Punkt.717\Spacing")

Dim formula134 As Formula
Set formula134 = relations134.CreateFormula("", "", length137, "Spacing * 25")

Dim reference681 As Reference
Set reference681 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference682 As Reference
Set reference682 = part1.CreateReferenceFromObject(hybridShapePointOnCurve137)

Dim hybridShapePlaneNormal137 As HybridShapePlaneNormal
Set hybridShapePlaneNormal137 = hybridShapeFactory1.AddNewPlaneNormal(reference681, reference682)

hybridBody1.AppendHybridShape hybridShapePlaneNormal137

part1.InWorkObject = hybridShapePlaneNormal137

part1.Update

Dim reference683 As Reference
Set reference683 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve138 As HybridShapePointOnCurve
Set hybridShapePointOnCurve138 = hybridShapeFactory1.DuplicateGSMSpec(reference683)

Dim reference684 As Reference
Set reference684 = part1.CreateReferenceFromObject(hybridShapePointOnCurve138)

Dim reference685 As Reference
Set reference685 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference684, reference685

Dim relations135 As Relations
Set relations135 = part1.Relations

Dim parameters140 As Parameters
Set parameters140 = part1.Parameters

Dim length138 As Length
Set length138 = parameters140.Item("D533 70038 204 00\Planes\Punkt.718\Spacing")

Dim formula135 As Formula
Set formula135 = relations135.CreateFormula("", "", length138, "Spacing * 26")

Dim reference686 As Reference
Set reference686 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference687 As Reference
Set reference687 = part1.CreateReferenceFromObject(hybridShapePointOnCurve138)

Dim hybridShapePlaneNormal138 As HybridShapePlaneNormal
Set hybridShapePlaneNormal138 = hybridShapeFactory1.AddNewPlaneNormal(reference686, reference687)

hybridBody1.AppendHybridShape hybridShapePlaneNormal138

part1.InWorkObject = hybridShapePlaneNormal138

part1.Update

Dim reference688 As Reference
Set reference688 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve139 As HybridShapePointOnCurve
Set hybridShapePointOnCurve139 = hybridShapeFactory1.DuplicateGSMSpec(reference688)

Dim reference689 As Reference
Set reference689 = part1.CreateReferenceFromObject(hybridShapePointOnCurve139)

Dim reference690 As Reference
Set reference690 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference689, reference690

Dim relations136 As Relations
Set relations136 = part1.Relations

Dim parameters141 As Parameters
Set parameters141 = part1.Parameters

Dim length139 As Length
Set length139 = parameters141.Item("D533 70038 204 00\Planes\Punkt.719\Spacing")

Dim formula136 As Formula
Set formula136 = relations136.CreateFormula("", "", length139, "Spacing * 27")

Dim reference691 As Reference
Set reference691 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference692 As Reference
Set reference692 = part1.CreateReferenceFromObject(hybridShapePointOnCurve139)

Dim hybridShapePlaneNormal139 As HybridShapePlaneNormal
Set hybridShapePlaneNormal139 = hybridShapeFactory1.AddNewPlaneNormal(reference691, reference692)

hybridBody1.AppendHybridShape hybridShapePlaneNormal139

part1.InWorkObject = hybridShapePlaneNormal139

part1.Update

Dim reference693 As Reference
Set reference693 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve140 As HybridShapePointOnCurve
Set hybridShapePointOnCurve140 = hybridShapeFactory1.DuplicateGSMSpec(reference693)

Dim reference694 As Reference
Set reference694 = part1.CreateReferenceFromObject(hybridShapePointOnCurve140)

Dim reference695 As Reference
Set reference695 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference694, reference695

Dim relations137 As Relations
Set relations137 = part1.Relations

Dim parameters142 As Parameters
Set parameters142 = part1.Parameters

Dim length140 As Length
Set length140 = parameters142.Item("D533 70038 204 00\Planes\Punkt.720\Spacing")

Dim formula137 As Formula
Set formula137 = relations137.CreateFormula("", "", length140, "Spacing * 28")

Dim reference696 As Reference
Set reference696 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference697 As Reference
Set reference697 = part1.CreateReferenceFromObject(hybridShapePointOnCurve140)

Dim hybridShapePlaneNormal140 As HybridShapePlaneNormal
Set hybridShapePlaneNormal140 = hybridShapeFactory1.AddNewPlaneNormal(reference696, reference697)

hybridBody1.AppendHybridShape hybridShapePlaneNormal140

part1.InWorkObject = hybridShapePlaneNormal140

part1.Update

Dim reference698 As Reference
Set reference698 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve141 As HybridShapePointOnCurve
Set hybridShapePointOnCurve141 = hybridShapeFactory1.DuplicateGSMSpec(reference698)

Dim reference699 As Reference
Set reference699 = part1.CreateReferenceFromObject(hybridShapePointOnCurve141)

Dim reference700 As Reference
Set reference700 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference699, reference700

Dim relations138 As Relations
Set relations138 = part1.Relations

Dim parameters143 As Parameters
Set parameters143 = part1.Parameters

Dim length141 As Length
Set length141 = parameters143.Item("D533 70038 204 00\Planes\Punkt.721\Spacing")

Dim formula138 As Formula
Set formula138 = relations138.CreateFormula("", "", length141, "Spacing * 29")

Dim reference701 As Reference
Set reference701 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference702 As Reference
Set reference702 = part1.CreateReferenceFromObject(hybridShapePointOnCurve141)

Dim hybridShapePlaneNormal141 As HybridShapePlaneNormal
Set hybridShapePlaneNormal141 = hybridShapeFactory1.AddNewPlaneNormal(reference701, reference702)

hybridBody1.AppendHybridShape hybridShapePlaneNormal141

part1.InWorkObject = hybridShapePlaneNormal141

part1.Update

Dim reference703 As Reference
Set reference703 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve142 As HybridShapePointOnCurve
Set hybridShapePointOnCurve142 = hybridShapeFactory1.DuplicateGSMSpec(reference703)

Dim reference704 As Reference
Set reference704 = part1.CreateReferenceFromObject(hybridShapePointOnCurve142)

Dim reference705 As Reference
Set reference705 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference704, reference705

Dim relations139 As Relations
Set relations139 = part1.Relations

Dim parameters144 As Parameters
Set parameters144 = part1.Parameters

Dim length142 As Length
Set length142 = parameters144.Item("D533 70038 204 00\Planes\Punkt.722\Spacing")

Dim formula139 As Formula
Set formula139 = relations139.CreateFormula("", "", length142, "Spacing * 30")

Dim reference706 As Reference
Set reference706 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference707 As Reference
Set reference707 = part1.CreateReferenceFromObject(hybridShapePointOnCurve142)

Dim hybridShapePlaneNormal142 As HybridShapePlaneNormal
Set hybridShapePlaneNormal142 = hybridShapeFactory1.AddNewPlaneNormal(reference706, reference707)

hybridBody1.AppendHybridShape hybridShapePlaneNormal142

part1.InWorkObject = hybridShapePlaneNormal142

part1.Update

Dim reference708 As Reference
Set reference708 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve143 As HybridShapePointOnCurve
Set hybridShapePointOnCurve143 = hybridShapeFactory1.DuplicateGSMSpec(reference708)

Dim reference709 As Reference
Set reference709 = part1.CreateReferenceFromObject(hybridShapePointOnCurve143)

Dim reference710 As Reference
Set reference710 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference709, reference710

Dim relations140 As Relations
Set relations140 = part1.Relations

Dim parameters145 As Parameters
Set parameters145 = part1.Parameters

Dim length143 As Length
Set length143 = parameters145.Item("D533 70038 204 00\Planes\Punkt.723\Spacing")

Dim formula140 As Formula
Set formula140 = relations140.CreateFormula("", "", length143, "Spacing * 31")

Dim reference711 As Reference
Set reference711 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference712 As Reference
Set reference712 = part1.CreateReferenceFromObject(hybridShapePointOnCurve143)

Dim hybridShapePlaneNormal143 As HybridShapePlaneNormal
Set hybridShapePlaneNormal143 = hybridShapeFactory1.AddNewPlaneNormal(reference711, reference712)

hybridBody1.AppendHybridShape hybridShapePlaneNormal143

part1.InWorkObject = hybridShapePlaneNormal143

part1.Update

Dim reference713 As Reference
Set reference713 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve144 As HybridShapePointOnCurve
Set hybridShapePointOnCurve144 = hybridShapeFactory1.DuplicateGSMSpec(reference713)

Dim reference714 As Reference
Set reference714 = part1.CreateReferenceFromObject(hybridShapePointOnCurve144)

Dim reference715 As Reference
Set reference715 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference714, reference715

Dim relations141 As Relations
Set relations141 = part1.Relations

Dim parameters146 As Parameters
Set parameters146 = part1.Parameters

Dim length144 As Length
Set length144 = parameters146.Item("D533 70038 204 00\Planes\Punkt.724\Spacing")

Dim formula141 As Formula
Set formula141 = relations141.CreateFormula("", "", length144, "Spacing * 32")

Dim reference716 As Reference
Set reference716 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference717 As Reference
Set reference717 = part1.CreateReferenceFromObject(hybridShapePointOnCurve144)

Dim hybridShapePlaneNormal144 As HybridShapePlaneNormal
Set hybridShapePlaneNormal144 = hybridShapeFactory1.AddNewPlaneNormal(reference716, reference717)

hybridBody1.AppendHybridShape hybridShapePlaneNormal144

part1.InWorkObject = hybridShapePlaneNormal144

part1.Update

Dim reference718 As Reference
Set reference718 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve145 As HybridShapePointOnCurve
Set hybridShapePointOnCurve145 = hybridShapeFactory1.DuplicateGSMSpec(reference718)

Dim reference719 As Reference
Set reference719 = part1.CreateReferenceFromObject(hybridShapePointOnCurve145)

Dim reference720 As Reference
Set reference720 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference719, reference720

Dim relations142 As Relations
Set relations142 = part1.Relations

Dim parameters147 As Parameters
Set parameters147 = part1.Parameters

Dim length145 As Length
Set length145 = parameters147.Item("D533 70038 204 00\Planes\Punkt.725\Spacing")

Dim formula142 As Formula
Set formula142 = relations142.CreateFormula("", "", length145, "Spacing * 33")

Dim reference721 As Reference
Set reference721 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference722 As Reference
Set reference722 = part1.CreateReferenceFromObject(hybridShapePointOnCurve145)

Dim hybridShapePlaneNormal145 As HybridShapePlaneNormal
Set hybridShapePlaneNormal145 = hybridShapeFactory1.AddNewPlaneNormal(reference721, reference722)

hybridBody1.AppendHybridShape hybridShapePlaneNormal145

part1.InWorkObject = hybridShapePlaneNormal145

part1.Update

Dim reference723 As Reference
Set reference723 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve146 As HybridShapePointOnCurve
Set hybridShapePointOnCurve146 = hybridShapeFactory1.DuplicateGSMSpec(reference723)

Dim reference724 As Reference
Set reference724 = part1.CreateReferenceFromObject(hybridShapePointOnCurve146)

Dim reference725 As Reference
Set reference725 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference724, reference725

Dim relations143 As Relations
Set relations143 = part1.Relations

Dim parameters148 As Parameters
Set parameters148 = part1.Parameters

Dim length146 As Length
Set length146 = parameters148.Item("D533 70038 204 00\Planes\Punkt.726\Spacing")

Dim formula143 As Formula
Set formula143 = relations143.CreateFormula("", "", length146, "Spacing * 34")

Dim reference726 As Reference
Set reference726 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference727 As Reference
Set reference727 = part1.CreateReferenceFromObject(hybridShapePointOnCurve146)

Dim hybridShapePlaneNormal146 As HybridShapePlaneNormal
Set hybridShapePlaneNormal146 = hybridShapeFactory1.AddNewPlaneNormal(reference726, reference727)

hybridBody1.AppendHybridShape hybridShapePlaneNormal146

part1.InWorkObject = hybridShapePlaneNormal146

part1.Update

Dim reference728 As Reference
Set reference728 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve147 As HybridShapePointOnCurve
Set hybridShapePointOnCurve147 = hybridShapeFactory1.DuplicateGSMSpec(reference728)

Dim reference729 As Reference
Set reference729 = part1.CreateReferenceFromObject(hybridShapePointOnCurve147)

Dim reference730 As Reference
Set reference730 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference729, reference730

Dim relations144 As Relations
Set relations144 = part1.Relations

Dim parameters149 As Parameters
Set parameters149 = part1.Parameters

Dim length147 As Length
Set length147 = parameters149.Item("D533 70038 204 00\Planes\Punkt.727\Spacing")

Dim formula144 As Formula
Set formula144 = relations144.CreateFormula("", "", length147, "Spacing * 35")

Dim reference731 As Reference
Set reference731 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference732 As Reference
Set reference732 = part1.CreateReferenceFromObject(hybridShapePointOnCurve147)

Dim hybridShapePlaneNormal147 As HybridShapePlaneNormal
Set hybridShapePlaneNormal147 = hybridShapeFactory1.AddNewPlaneNormal(reference731, reference732)

hybridBody1.AppendHybridShape hybridShapePlaneNormal147

part1.InWorkObject = hybridShapePlaneNormal147

part1.Update

Dim reference733 As Reference
Set reference733 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve148 As HybridShapePointOnCurve
Set hybridShapePointOnCurve148 = hybridShapeFactory1.DuplicateGSMSpec(reference733)

Dim reference734 As Reference
Set reference734 = part1.CreateReferenceFromObject(hybridShapePointOnCurve148)

Dim reference735 As Reference
Set reference735 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference734, reference735

Dim relations145 As Relations
Set relations145 = part1.Relations

Dim parameters150 As Parameters
Set parameters150 = part1.Parameters

Dim length148 As Length
Set length148 = parameters150.Item("D533 70038 204 00\Planes\Punkt.728\Spacing")

Dim formula145 As Formula
Set formula145 = relations145.CreateFormula("", "", length148, "Spacing * 36")

Dim reference736 As Reference
Set reference736 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference737 As Reference
Set reference737 = part1.CreateReferenceFromObject(hybridShapePointOnCurve148)

Dim hybridShapePlaneNormal148 As HybridShapePlaneNormal
Set hybridShapePlaneNormal148 = hybridShapeFactory1.AddNewPlaneNormal(reference736, reference737)

hybridBody1.AppendHybridShape hybridShapePlaneNormal148

part1.InWorkObject = hybridShapePlaneNormal148

part1.Update

Dim reference738 As Reference
Set reference738 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve149 As HybridShapePointOnCurve
Set hybridShapePointOnCurve149 = hybridShapeFactory1.DuplicateGSMSpec(reference738)

Dim reference739 As Reference
Set reference739 = part1.CreateReferenceFromObject(hybridShapePointOnCurve149)

Dim reference740 As Reference
Set reference740 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference739, reference740

Dim relations146 As Relations
Set relations146 = part1.Relations

Dim parameters151 As Parameters
Set parameters151 = part1.Parameters

Dim length149 As Length
Set length149 = parameters151.Item("D533 70038 204 00\Planes\Punkt.729\Spacing")

Dim formula146 As Formula
Set formula146 = relations146.CreateFormula("", "", length149, "Spacing * 37")

Dim reference741 As Reference
Set reference741 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference742 As Reference
Set reference742 = part1.CreateReferenceFromObject(hybridShapePointOnCurve149)

Dim hybridShapePlaneNormal149 As HybridShapePlaneNormal
Set hybridShapePlaneNormal149 = hybridShapeFactory1.AddNewPlaneNormal(reference741, reference742)

hybridBody1.AppendHybridShape hybridShapePlaneNormal149

part1.InWorkObject = hybridShapePlaneNormal149

part1.Update

Dim reference743 As Reference
Set reference743 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve150 As HybridShapePointOnCurve
Set hybridShapePointOnCurve150 = hybridShapeFactory1.DuplicateGSMSpec(reference743)

Dim reference744 As Reference
Set reference744 = part1.CreateReferenceFromObject(hybridShapePointOnCurve150)

Dim reference745 As Reference
Set reference745 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference744, reference745

Dim relations147 As Relations
Set relations147 = part1.Relations

Dim parameters152 As Parameters
Set parameters152 = part1.Parameters

Dim length150 As Length
Set length150 = parameters152.Item("D533 70038 204 00\Planes\Punkt.730\Spacing")

Dim formula147 As Formula
Set formula147 = relations147.CreateFormula("", "", length150, "Spacing * 38")

Dim reference746 As Reference
Set reference746 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference747 As Reference
Set reference747 = part1.CreateReferenceFromObject(hybridShapePointOnCurve150)

Dim hybridShapePlaneNormal150 As HybridShapePlaneNormal
Set hybridShapePlaneNormal150 = hybridShapeFactory1.AddNewPlaneNormal(reference746, reference747)

hybridBody1.AppendHybridShape hybridShapePlaneNormal150

part1.InWorkObject = hybridShapePlaneNormal150

part1.Update

Dim reference748 As Reference
Set reference748 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve151 As HybridShapePointOnCurve
Set hybridShapePointOnCurve151 = hybridShapeFactory1.DuplicateGSMSpec(reference748)

Dim reference749 As Reference
Set reference749 = part1.CreateReferenceFromObject(hybridShapePointOnCurve151)

Dim reference750 As Reference
Set reference750 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference749, reference750

Dim relations148 As Relations
Set relations148 = part1.Relations

Dim parameters153 As Parameters
Set parameters153 = part1.Parameters

Dim length151 As Length
Set length151 = parameters153.Item("D533 70038 204 00\Planes\Punkt.731\Spacing")

Dim formula148 As Formula
Set formula148 = relations148.CreateFormula("", "", length151, "Spacing * 39")

Dim reference751 As Reference
Set reference751 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference752 As Reference
Set reference752 = part1.CreateReferenceFromObject(hybridShapePointOnCurve151)

Dim hybridShapePlaneNormal151 As HybridShapePlaneNormal
Set hybridShapePlaneNormal151 = hybridShapeFactory1.AddNewPlaneNormal(reference751, reference752)

hybridBody1.AppendHybridShape hybridShapePlaneNormal151

part1.InWorkObject = hybridShapePlaneNormal151

part1.Update

Dim reference753 As Reference
Set reference753 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve152 As HybridShapePointOnCurve
Set hybridShapePointOnCurve152 = hybridShapeFactory1.DuplicateGSMSpec(reference753)

Dim reference754 As Reference
Set reference754 = part1.CreateReferenceFromObject(hybridShapePointOnCurve152)

Dim reference755 As Reference
Set reference755 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference754, reference755

Dim relations149 As Relations
Set relations149 = part1.Relations

Dim parameters154 As Parameters
Set parameters154 = part1.Parameters

Dim length152 As Length
Set length152 = parameters154.Item("D533 70038 204 00\Planes\Punkt.732\Spacing")

Dim formula149 As Formula
Set formula149 = relations149.CreateFormula("", "", length152, "Spacing * 40")

Dim reference756 As Reference
Set reference756 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference757 As Reference
Set reference757 = part1.CreateReferenceFromObject(hybridShapePointOnCurve152)

Dim hybridShapePlaneNormal152 As HybridShapePlaneNormal
Set hybridShapePlaneNormal152 = hybridShapeFactory1.AddNewPlaneNormal(reference756, reference757)

hybridBody1.AppendHybridShape hybridShapePlaneNormal152

part1.InWorkObject = hybridShapePlaneNormal152

part1.Update

Dim reference758 As Reference
Set reference758 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve153 As HybridShapePointOnCurve
Set hybridShapePointOnCurve153 = hybridShapeFactory1.DuplicateGSMSpec(reference758)

Dim reference759 As Reference
Set reference759 = part1.CreateReferenceFromObject(hybridShapePointOnCurve153)

Dim reference760 As Reference
Set reference760 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference759, reference760

Dim relations150 As Relations
Set relations150 = part1.Relations

Dim parameters155 As Parameters
Set parameters155 = part1.Parameters

Dim length153 As Length
Set length153 = parameters155.Item("D533 70038 204 00\Planes\Punkt.733\Spacing")

Dim formula150 As Formula
Set formula150 = relations150.CreateFormula("", "", length153, "Spacing * 41")

Dim reference761 As Reference
Set reference761 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference762 As Reference
Set reference762 = part1.CreateReferenceFromObject(hybridShapePointOnCurve153)

Dim hybridShapePlaneNormal153 As HybridShapePlaneNormal
Set hybridShapePlaneNormal153 = hybridShapeFactory1.AddNewPlaneNormal(reference761, reference762)

hybridBody1.AppendHybridShape hybridShapePlaneNormal153

part1.InWorkObject = hybridShapePlaneNormal153

part1.Update

Dim reference763 As Reference
Set reference763 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve154 As HybridShapePointOnCurve
Set hybridShapePointOnCurve154 = hybridShapeFactory1.DuplicateGSMSpec(reference763)

Dim reference764 As Reference
Set reference764 = part1.CreateReferenceFromObject(hybridShapePointOnCurve154)

Dim reference765 As Reference
Set reference765 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference764, reference765

Dim relations151 As Relations
Set relations151 = part1.Relations

Dim parameters156 As Parameters
Set parameters156 = part1.Parameters

Dim length154 As Length
Set length154 = parameters156.Item("D533 70038 204 00\Planes\Punkt.734\Spacing")

Dim formula151 As Formula
Set formula151 = relations151.CreateFormula("", "", length154, "Spacing * 42")

Dim reference766 As Reference
Set reference766 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference767 As Reference
Set reference767 = part1.CreateReferenceFromObject(hybridShapePointOnCurve154)

Dim hybridShapePlaneNormal154 As HybridShapePlaneNormal
Set hybridShapePlaneNormal154 = hybridShapeFactory1.AddNewPlaneNormal(reference766, reference767)

hybridBody1.AppendHybridShape hybridShapePlaneNormal154

part1.InWorkObject = hybridShapePlaneNormal154

part1.Update

Dim reference768 As Reference
Set reference768 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve155 As HybridShapePointOnCurve
Set hybridShapePointOnCurve155 = hybridShapeFactory1.DuplicateGSMSpec(reference768)

Dim reference769 As Reference
Set reference769 = part1.CreateReferenceFromObject(hybridShapePointOnCurve155)

Dim reference770 As Reference
Set reference770 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference769, reference770

Dim relations152 As Relations
Set relations152 = part1.Relations

Dim parameters157 As Parameters
Set parameters157 = part1.Parameters

Dim length155 As Length
Set length155 = parameters157.Item("D533 70038 204 00\Planes\Punkt.735\Spacing")

Dim formula152 As Formula
Set formula152 = relations152.CreateFormula("", "", length155, "Spacing * 43")

Dim reference771 As Reference
Set reference771 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference772 As Reference
Set reference772 = part1.CreateReferenceFromObject(hybridShapePointOnCurve155)

Dim hybridShapePlaneNormal155 As HybridShapePlaneNormal
Set hybridShapePlaneNormal155 = hybridShapeFactory1.AddNewPlaneNormal(reference771, reference772)

hybridBody1.AppendHybridShape hybridShapePlaneNormal155

part1.InWorkObject = hybridShapePlaneNormal155

part1.Update

Dim reference773 As Reference
Set reference773 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve156 As HybridShapePointOnCurve
Set hybridShapePointOnCurve156 = hybridShapeFactory1.DuplicateGSMSpec(reference773)

Dim reference774 As Reference
Set reference774 = part1.CreateReferenceFromObject(hybridShapePointOnCurve156)

Dim reference775 As Reference
Set reference775 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference774, reference775

Dim relations153 As Relations
Set relations153 = part1.Relations

Dim parameters158 As Parameters
Set parameters158 = part1.Parameters

Dim length156 As Length
Set length156 = parameters158.Item("D533 70038 204 00\Planes\Punkt.736\Spacing")

Dim formula153 As Formula
Set formula153 = relations153.CreateFormula("", "", length156, "Spacing * 44")

Dim reference776 As Reference
Set reference776 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference777 As Reference
Set reference777 = part1.CreateReferenceFromObject(hybridShapePointOnCurve156)

Dim hybridShapePlaneNormal156 As HybridShapePlaneNormal
Set hybridShapePlaneNormal156 = hybridShapeFactory1.AddNewPlaneNormal(reference776, reference777)

hybridBody1.AppendHybridShape hybridShapePlaneNormal156

part1.InWorkObject = hybridShapePlaneNormal156

part1.Update

Dim reference778 As Reference
Set reference778 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve157 As HybridShapePointOnCurve
Set hybridShapePointOnCurve157 = hybridShapeFactory1.DuplicateGSMSpec(reference778)

Dim reference779 As Reference
Set reference779 = part1.CreateReferenceFromObject(hybridShapePointOnCurve157)

Dim reference780 As Reference
Set reference780 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference779, reference780

Dim relations154 As Relations
Set relations154 = part1.Relations

Dim parameters159 As Parameters
Set parameters159 = part1.Parameters

Dim length157 As Length
Set length157 = parameters159.Item("D533 70038 204 00\Planes\Punkt.737\Spacing")

Dim formula154 As Formula
Set formula154 = relations154.CreateFormula("", "", length157, "Spacing * 45")

Dim reference781 As Reference
Set reference781 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference782 As Reference
Set reference782 = part1.CreateReferenceFromObject(hybridShapePointOnCurve157)

Dim hybridShapePlaneNormal157 As HybridShapePlaneNormal
Set hybridShapePlaneNormal157 = hybridShapeFactory1.AddNewPlaneNormal(reference781, reference782)

hybridBody1.AppendHybridShape hybridShapePlaneNormal157

part1.InWorkObject = hybridShapePlaneNormal157

part1.Update

Dim reference783 As Reference
Set reference783 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve158 As HybridShapePointOnCurve
Set hybridShapePointOnCurve158 = hybridShapeFactory1.DuplicateGSMSpec(reference783)

Dim reference784 As Reference
Set reference784 = part1.CreateReferenceFromObject(hybridShapePointOnCurve158)

Dim reference785 As Reference
Set reference785 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference784, reference785

Dim relations155 As Relations
Set relations155 = part1.Relations

Dim parameters160 As Parameters
Set parameters160 = part1.Parameters

Dim length158 As Length
Set length158 = parameters160.Item("D533 70038 204 00\Planes\Punkt.738\Spacing")

Dim formula155 As Formula
Set formula155 = relations155.CreateFormula("", "", length158, "Spacing * 46")

Dim reference786 As Reference
Set reference786 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference787 As Reference
Set reference787 = part1.CreateReferenceFromObject(hybridShapePointOnCurve158)

Dim hybridShapePlaneNormal158 As HybridShapePlaneNormal
Set hybridShapePlaneNormal158 = hybridShapeFactory1.AddNewPlaneNormal(reference786, reference787)

hybridBody1.AppendHybridShape hybridShapePlaneNormal158

part1.InWorkObject = hybridShapePlaneNormal158

part1.Update

Dim reference788 As Reference
Set reference788 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve159 As HybridShapePointOnCurve
Set hybridShapePointOnCurve159 = hybridShapeFactory1.DuplicateGSMSpec(reference788)

Dim reference789 As Reference
Set reference789 = part1.CreateReferenceFromObject(hybridShapePointOnCurve159)

Dim reference790 As Reference
Set reference790 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference789, reference790

Dim relations156 As Relations
Set relations156 = part1.Relations

Dim parameters161 As Parameters
Set parameters161 = part1.Parameters

Dim length159 As Length
Set length159 = parameters161.Item("D533 70038 204 00\Planes\Punkt.739\Spacing")

Dim formula156 As Formula
Set formula156 = relations156.CreateFormula("", "", length159, "Spacing * 47")

Dim reference791 As Reference
Set reference791 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference792 As Reference
Set reference792 = part1.CreateReferenceFromObject(hybridShapePointOnCurve159)

Dim hybridShapePlaneNormal159 As HybridShapePlaneNormal
Set hybridShapePlaneNormal159 = hybridShapeFactory1.AddNewPlaneNormal(reference791, reference792)

hybridBody1.AppendHybridShape hybridShapePlaneNormal159

part1.InWorkObject = hybridShapePlaneNormal159

part1.Update

Dim reference793 As Reference
Set reference793 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve160 As HybridShapePointOnCurve
Set hybridShapePointOnCurve160 = hybridShapeFactory1.DuplicateGSMSpec(reference793)

Dim reference794 As Reference
Set reference794 = part1.CreateReferenceFromObject(hybridShapePointOnCurve160)

Dim reference795 As Reference
Set reference795 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference794, reference795

Dim relations157 As Relations
Set relations157 = part1.Relations

Dim parameters162 As Parameters
Set parameters162 = part1.Parameters

Dim length160 As Length
Set length160 = parameters162.Item("D533 70038 204 00\Planes\Punkt.740\Spacing")

Dim formula157 As Formula
Set formula157 = relations157.CreateFormula("", "", length160, "Spacing * 48")

Dim reference796 As Reference
Set reference796 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference797 As Reference
Set reference797 = part1.CreateReferenceFromObject(hybridShapePointOnCurve160)

Dim hybridShapePlaneNormal160 As HybridShapePlaneNormal
Set hybridShapePlaneNormal160 = hybridShapeFactory1.AddNewPlaneNormal(reference796, reference797)

hybridBody1.AppendHybridShape hybridShapePlaneNormal160

part1.InWorkObject = hybridShapePlaneNormal160

part1.Update

Dim reference798 As Reference
Set reference798 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve161 As HybridShapePointOnCurve
Set hybridShapePointOnCurve161 = hybridShapeFactory1.DuplicateGSMSpec(reference798)

Dim reference799 As Reference
Set reference799 = part1.CreateReferenceFromObject(hybridShapePointOnCurve161)

Dim reference800 As Reference
Set reference800 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference799, reference800

Dim relations158 As Relations
Set relations158 = part1.Relations

Dim parameters163 As Parameters
Set parameters163 = part1.Parameters

Dim length161 As Length
Set length161 = parameters163.Item("D533 70038 204 00\Planes\Punkt.741\Spacing")

Dim formula158 As Formula
Set formula158 = relations158.CreateFormula("", "", length161, "Spacing * 49")

Dim reference801 As Reference
Set reference801 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference802 As Reference
Set reference802 = part1.CreateReferenceFromObject(hybridShapePointOnCurve161)

Dim hybridShapePlaneNormal161 As HybridShapePlaneNormal
Set hybridShapePlaneNormal161 = hybridShapeFactory1.AddNewPlaneNormal(reference801, reference802)

hybridBody1.AppendHybridShape hybridShapePlaneNormal161

part1.InWorkObject = hybridShapePlaneNormal161

part1.Update

Dim reference803 As Reference
Set reference803 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve162 As HybridShapePointOnCurve
Set hybridShapePointOnCurve162 = hybridShapeFactory1.DuplicateGSMSpec(reference803)

Dim reference804 As Reference
Set reference804 = part1.CreateReferenceFromObject(hybridShapePointOnCurve162)

Dim reference805 As Reference
Set reference805 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference804, reference805

Dim relations159 As Relations
Set relations159 = part1.Relations

Dim parameters164 As Parameters
Set parameters164 = part1.Parameters

Dim length162 As Length
Set length162 = parameters164.Item("D533 70038 204 00\Planes\Punkt.742\Spacing")

Dim formula159 As Formula
Set formula159 = relations159.CreateFormula("", "", length162, "Spacing * 50")

Dim reference806 As Reference
Set reference806 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference807 As Reference
Set reference807 = part1.CreateReferenceFromObject(hybridShapePointOnCurve162)

Dim hybridShapePlaneNormal162 As HybridShapePlaneNormal
Set hybridShapePlaneNormal162 = hybridShapeFactory1.AddNewPlaneNormal(reference806, reference807)

hybridBody1.AppendHybridShape hybridShapePlaneNormal162

part1.InWorkObject = hybridShapePlaneNormal162

part1.Update

Dim reference808 As Reference
Set reference808 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve163 As HybridShapePointOnCurve
Set hybridShapePointOnCurve163 = hybridShapeFactory1.DuplicateGSMSpec(reference808)

Dim reference809 As Reference
Set reference809 = part1.CreateReferenceFromObject(hybridShapePointOnCurve163)

Dim reference810 As Reference
Set reference810 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference809, reference810

Dim relations160 As Relations
Set relations160 = part1.Relations

Dim parameters165 As Parameters
Set parameters165 = part1.Parameters

Dim length163 As Length
Set length163 = parameters165.Item("D533 70038 204 00\Planes\Punkt.743\Spacing")

Dim formula160 As Formula
Set formula160 = relations160.CreateFormula("", "", length163, "Spacing * 51")

Dim reference811 As Reference
Set reference811 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference812 As Reference
Set reference812 = part1.CreateReferenceFromObject(hybridShapePointOnCurve163)

Dim hybridShapePlaneNormal163 As HybridShapePlaneNormal
Set hybridShapePlaneNormal163 = hybridShapeFactory1.AddNewPlaneNormal(reference811, reference812)

hybridBody1.AppendHybridShape hybridShapePlaneNormal163

part1.InWorkObject = hybridShapePlaneNormal163

part1.Update

Dim reference813 As Reference
Set reference813 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve164 As HybridShapePointOnCurve
Set hybridShapePointOnCurve164 = hybridShapeFactory1.DuplicateGSMSpec(reference813)

Dim reference814 As Reference
Set reference814 = part1.CreateReferenceFromObject(hybridShapePointOnCurve164)

Dim reference815 As Reference
Set reference815 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference814, reference815

Dim relations161 As Relations
Set relations161 = part1.Relations

Dim parameters166 As Parameters
Set parameters166 = part1.Parameters

Dim length164 As Length
Set length164 = parameters166.Item("D533 70038 204 00\Planes\Punkt.744\Spacing")

Dim formula161 As Formula
Set formula161 = relations161.CreateFormula("", "", length164, "Spacing * 52")

Dim reference816 As Reference
Set reference816 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference817 As Reference
Set reference817 = part1.CreateReferenceFromObject(hybridShapePointOnCurve164)

Dim hybridShapePlaneNormal164 As HybridShapePlaneNormal
Set hybridShapePlaneNormal164 = hybridShapeFactory1.AddNewPlaneNormal(reference816, reference817)

hybridBody1.AppendHybridShape hybridShapePlaneNormal164

part1.InWorkObject = hybridShapePlaneNormal164

part1.Update

Dim reference818 As Reference
Set reference818 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve165 As HybridShapePointOnCurve
Set hybridShapePointOnCurve165 = hybridShapeFactory1.DuplicateGSMSpec(reference818)

Dim reference819 As Reference
Set reference819 = part1.CreateReferenceFromObject(hybridShapePointOnCurve165)

Dim reference820 As Reference
Set reference820 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference819, reference820

Dim relations162 As Relations
Set relations162 = part1.Relations

Dim parameters167 As Parameters
Set parameters167 = part1.Parameters

Dim length165 As Length
Set length165 = parameters167.Item("D533 70038 204 00\Planes\Punkt.745\Spacing")

Dim formula162 As Formula
Set formula162 = relations162.CreateFormula("", "", length165, "Spacing * 53")

Dim reference821 As Reference
Set reference821 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference822 As Reference
Set reference822 = part1.CreateReferenceFromObject(hybridShapePointOnCurve165)

Dim hybridShapePlaneNormal165 As HybridShapePlaneNormal
Set hybridShapePlaneNormal165 = hybridShapeFactory1.AddNewPlaneNormal(reference821, reference822)

hybridBody1.AppendHybridShape hybridShapePlaneNormal165

part1.InWorkObject = hybridShapePlaneNormal165

part1.Update

Dim reference823 As Reference
Set reference823 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve166 As HybridShapePointOnCurve
Set hybridShapePointOnCurve166 = hybridShapeFactory1.DuplicateGSMSpec(reference823)

Dim reference824 As Reference
Set reference824 = part1.CreateReferenceFromObject(hybridShapePointOnCurve166)

Dim reference825 As Reference
Set reference825 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference824, reference825

Dim relations163 As Relations
Set relations163 = part1.Relations

Dim parameters168 As Parameters
Set parameters168 = part1.Parameters

Dim length166 As Length
Set length166 = parameters168.Item("D533 70038 204 00\Planes\Punkt.746\Spacing")

Dim formula163 As Formula
Set formula163 = relations163.CreateFormula("", "", length166, "Spacing * 54")

Dim reference826 As Reference
Set reference826 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference827 As Reference
Set reference827 = part1.CreateReferenceFromObject(hybridShapePointOnCurve166)

Dim hybridShapePlaneNormal166 As HybridShapePlaneNormal
Set hybridShapePlaneNormal166 = hybridShapeFactory1.AddNewPlaneNormal(reference826, reference827)

hybridBody1.AppendHybridShape hybridShapePlaneNormal166

part1.InWorkObject = hybridShapePlaneNormal166

part1.Update

Dim reference828 As Reference
Set reference828 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve167 As HybridShapePointOnCurve
Set hybridShapePointOnCurve167 = hybridShapeFactory1.DuplicateGSMSpec(reference828)

Dim reference829 As Reference
Set reference829 = part1.CreateReferenceFromObject(hybridShapePointOnCurve167)

Dim reference830 As Reference
Set reference830 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference829, reference830

Dim relations164 As Relations
Set relations164 = part1.Relations

Dim parameters169 As Parameters
Set parameters169 = part1.Parameters

Dim length167 As Length
Set length167 = parameters169.Item("D533 70038 204 00\Planes\Punkt.747\Spacing")

Dim formula164 As Formula
Set formula164 = relations164.CreateFormula("", "", length167, "Spacing * 55")

Dim reference831 As Reference
Set reference831 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference832 As Reference
Set reference832 = part1.CreateReferenceFromObject(hybridShapePointOnCurve167)

Dim hybridShapePlaneNormal167 As HybridShapePlaneNormal
Set hybridShapePlaneNormal167 = hybridShapeFactory1.AddNewPlaneNormal(reference831, reference832)

hybridBody1.AppendHybridShape hybridShapePlaneNormal167

part1.InWorkObject = hybridShapePlaneNormal167

part1.Update

Dim reference833 As Reference
Set reference833 = part1.CreateReferenceFromObject(hybridShapePointOnCurve113)

Dim hybridShapePointOnCurve168 As HybridShapePointOnCurve
Set hybridShapePointOnCurve168 = hybridShapeFactory1.DuplicateGSMSpec(reference833)

Dim reference834 As Reference
Set reference834 = part1.CreateReferenceFromObject(hybridShapePointOnCurve168)

Dim reference835 As Reference
Set reference835 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

hybridShapeFactory1.SetReferenceElemForMultiple reference834, reference835

Dim relations165 As Relations
Set relations165 = part1.Relations

Dim parameters170 As Parameters
Set parameters170 = part1.Parameters

Dim length168 As Length
Set length168 = parameters170.Item("D533 70038 204 00\Planes\Punkt.748\Spacing")

Dim formula165 As Formula
Set formula165 = relations165.CreateFormula("", "", length168, "Spacing * 56")

Dim reference836 As Reference
Set reference836 = part1.CreateReferenceFromObject(hybridShapeCircleExplicit1)

Dim reference837 As Reference
Set reference837 = part1.CreateReferenceFromObject(hybridShapePointOnCurve168)

Dim hybridShapePlaneNormal168 As HybridShapePlaneNormal
Set hybridShapePlaneNormal168 = hybridShapeFactory1.AddNewPlaneNormal(reference836, reference837)

hybridBody1.AppendHybridShape hybridShapePlaneNormal168

part1.InWorkObject = hybridShapePlaneNormal168

part1.Update

part1.Update

End Sub