Code:
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = BT.HybridShapeFactoryDim hybridBodies1 As HybridBodies
Set hybridBodies1 = BT.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Weitergabeelemente")
Dim hybridShapePlaneOffset1 As HybridShapePlaneOffset
Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(Flaeche3, 0, True)
hybridBody1.AppendHybridShape hybridShapePlaneOffset1
BT.InWorkObject = hybridShapePlaneOffset1
BT.Update
hybridShapePlaneOffset1 = Plane
'Punkt von Bohrungeins
Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(0#, 0#, 0#)
Dim hole1 As Hole
Set hole1 = Bohrungeins
Set sketch1 = hole1.Sketch
Dim reference1 As Reference
Set reference1 = BT.CreateReferenceFromObject(sketch1)
hybridShapePointCoord1.PtRef = reference1
Dim axisSystems1 As AxisSystems
Set axisSystems1 = BT.AxisSystems
Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("Bezugsachsensystem")
Dim reference2 As Reference
Set reference2 = BT.CreateReferenceFromObject(axisSystem1)
hybridShapePointCoord1.RefAxisSystem = reference2
Set hybridBodies1 = BT.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Weitergabeelemente")
hybridBody1.AppendHybridShape hybridShapePointCoord1
BT.InWorkObject = hybridShapePointCoord1
BT.Update
'Punkt von BohrungsZwei
Dim hybridShapePointCoord2 As HybridShapePointCoord
Set hybridShapePointCoord2 = hybridShapeFactory1.AddNewPointCoord(0#, 0#, 0#)
Dim hole2 As Hole
Set hole2 = BohrungZwei
Set sketch2 = hole2.Sketch
Dim reference3 As Reference
Set reference3 = BT.CreateReferenceFromObject(sketch2)
hybridShapePointCoord2.PtRef = reference3
Dim reference4 As Reference
Set reference4 = BT.CreateReferenceFromObject(axisSystem1)
hybridShapePointCoord2.RefAxisSystem = reference4
hybridBody1.AppendHybridShape hybridShapePointCoord2
BT.InWorkObject = hybridShapePointCoord2
BT.Update
Dim reference5 As Reference
Set reference5 = BT.CreateReferenceFromObject(Plane)
Dim reference6 As Reference
Set reference6 = BT.CreateReferenceFromObject(hybridShapePointCoord1)
Dim hybridShapeLineNormal1 As HybridShapeLineNormal
Set hybridShapeLineNormal1 = hybridShapeFactory1.AddNewLineNormal(reference5, reference6, 0#, 20#, False)
hybridBody1.AppendHybridShape hybridShapeLineNormal1
BT.InWorkObject = hybridShapeLineNormal1
BT.Update