Language="VBSCRIPT"

Sub CATMain()

Dim documents1 As Documents
Set documents1 = DMU.Documents

Dim partDocument1 As Document
Set partDocument1 = documents1.Item("QT.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()

Dim hybridBody2 As HybridBody
Set hybridBody2 = hybridBodies1.Item("Geometrical Set.2")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody2.HybridShapes

Dim hybridShapeIntersection1 As HybridShape
Set hybridShapeIntersection1 = hybridShapes1.Item("Intersect.1")

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

Dim hybridShapePointOnCurve1 As HybridShape
Set hybridShapePointOnCurve1 = hybridShapes1.Item("Point.2")

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

Dim hybridShapeFactory1 As Factory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim hybridShapePointOnCurve2 As HybridShapePointOnCurve
Set hybridShapePointOnCurve2 = hybridShapeFactory1.AddNewPointOnCurveWithReferenceFromDistance(reference1, reference2, -154.323913, False)

hybridShapePointOnCurve2.DistanceType = 1

hybridBody1.AppendHybridShape hybridShapePointOnCurve2

part1.InWorkObject = hybridShapePointOnCurve2

part1.Update 

Dim relations1 As Relations
Set relations1 = part1.Relations

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim length1 As Parameter
Set length1 = parameters1.Item("Point\Length")

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("", "", length1, "(length(`Geometrical Set.2\Intersect.1`,`Geometrical Set.2\Point.2`,`Geometrical Set.2\Point.3`)) / 7")

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

Dim hybridShapePointOnCurve3 As HybridShape
Set hybridShapePointOnCurve3 = hybridShapeFactory1.DuplicateGSMSpec(reference3)

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

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

hybridShapeFactory1.SetReferenceElemForMultiple reference4, reference5

Dim relations2 As Relations
Set relations2 = part1.Relations

Dim parameters2 As Parameters
Set parameters2 = part1.Parameters

Dim length2 As Parameter
Set length2 = parameters2.Item("QT\Geometrical Set.2\Geometrical Set.3\Point.5\Length")

Dim formula2 As Formula
Set formula2 = relations2.CreateFormula("", "", length2, "(length(`Geometrical Set.2\Intersect.1`,`Geometrical Set.2\Point.2`,`Geometrical Set.2\Point.3`)) * 2 / 7")

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

Dim hybridShapePointOnCurve4 As HybridShape
Set hybridShapePointOnCurve4 = hybridShapeFactory1.DuplicateGSMSpec(reference6)

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

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

hybridShapeFactory1.SetReferenceElemForMultiple reference7, reference8

Dim relations3 As Relations
Set relations3 = part1.Relations

Dim parameters3 As Parameters
Set parameters3 = part1.Parameters

Dim length3 As Parameter
Set length3 = parameters3.Item("QT\Geometrical Set.2\Geometrical Set.3\Point.6\Length")

Dim formula3 As Formula
Set formula3 = relations3.CreateFormula("", "", length3, "(length(`Geometrical Set.2\Intersect.1`,`Geometrical Set.2\Point.2`,`Geometrical Set.2\Point.3`)) * 3 / 7")

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

Dim hybridShapePointOnCurve5 As HybridShape
Set hybridShapePointOnCurve5 = hybridShapeFactory1.DuplicateGSMSpec(reference9)

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

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

hybridShapeFactory1.SetReferenceElemForMultiple reference10, reference11

Dim relations4 As Relations
Set relations4 = part1.Relations

Dim parameters4 As Parameters
Set parameters4 = part1.Parameters

Dim length4 As Parameter
Set length4 = parameters4.Item("QT\Geometrical Set.2\Geometrical Set.3\Point.7\Length")

Dim formula4 As Formula
Set formula4 = relations4.CreateFormula("", "", length4, "(length(`Geometrical Set.2\Intersect.1`,`Geometrical Set.2\Point.2`,`Geometrical Set.2\Point.3`)) * 4 / 7")

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

Dim hybridShapePointOnCurve6 As HybridShape
Set hybridShapePointOnCurve6 = hybridShapeFactory1.DuplicateGSMSpec(reference12)

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

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

hybridShapeFactory1.SetReferenceElemForMultiple reference13, reference14

Dim relations5 As Relations
Set relations5 = part1.Relations

Dim parameters5 As Parameters
Set parameters5 = part1.Parameters

Dim length5 As Parameter
Set length5 = parameters5.Item("QT\Geometrical Set.2\Geometrical Set.3\Point.8\Length")

Dim formula5 As Formula
Set formula5 = relations5.CreateFormula("", "", length5, "(length(`Geometrical Set.2\Intersect.1`,`Geometrical Set.2\Point.2`,`Geometrical Set.2\Point.3`)) * 5 / 7")

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

Dim hybridShapePointOnCurve7 As HybridShape
Set hybridShapePointOnCurve7 = hybridShapeFactory1.DuplicateGSMSpec(reference15)

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

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

hybridShapeFactory1.SetReferenceElemForMultiple reference16, reference17

Dim relations6 As Relations
Set relations6 = part1.Relations

Dim parameters6 As Parameters
Set parameters6 = part1.Parameters

Dim length6 As Parameter
Set length6 = parameters6.Item("QT\Geometrical Set.2\Geometrical Set.3\Point.9\Length")

Dim formula6 As Formula
Set formula6 = relations6.CreateFormula("", "", length6, "(length(`Geometrical Set.2\Intersect.1`,`Geometrical Set.2\Point.2`,`Geometrical Set.2\Point.3`)) * 6 / 7")

part1.Update 

End Sub
Seite 4