Ajouter un point au centre d'une spline

Bonjour,

J'essaie depuis un moment de reproduire la fonction qui permet de créer un point à partir d'un cercle (arête d'un trou) quand on est dans un Product.

Comme sur l'image, j'ai plusieurs Part dont une qui sert à stocker les différents points créer à partir des arêtes des différentes pièces.



D'origine la fonction créée une spline "Courbe.xx" pour pouvoir faire le point au centre. Et c'est là que je bloque. Comment fait on pour créer / extraire cette spline ?

J'ai déjà une petite macro qui créée un point quand une spline est déjà présente, mais je n'arrive pas à extraire une spline d'une autre pièce.

Code:


Sub CATMain()

Dim documents1 As Documents
Set documents1 = CATIA.Documents

Dim partDocument1 As PartDocument
Set partDocument1 = documents1.Item("poutres.CATPart")

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim hybridShapeCurveExplicit1 As HybridShapeCurveExplicit
'Set hybridShapeCurveExplicit1 = parameters1.Item("Courbe.49")

'------------------------------------------------------------------------------------------------'
Dim inputobject(0)
inputobject(0) = "AnyObject"
Dim oTmp 'As Object
Set oSel = CATIA.ActiveDocument.selection

oSel.Clear
Retour = oSel.SelectElement2(inputobject, "Selectionner une arête", False)

Set oTmp = oSel.Item(1).Value

Dim oSpline As String

oSpline = oTmp.Name

Set hybridShapeCurveExplicit1 = parameters1.Item(oSpline)

'------------------------------------------------------------------------------------------------'

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

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("poutres_1")

Dim hybridShapePointCenter1 As HybridShapePointCenter
Set hybridShapePointCenter1 = hybridShapeFactory1.AddNewPointCenter(reference1)

hybridBody1.AppendHybridShape hybridShapePointCenter1

part1.InWorkObject = hybridShapePointCenter1

part1.Update

End Sub


Si quelqu'un a une idée !