Dim oPunkt As Long

 oPunkt = hybridShapeSpline1.GetPointPosition(oRefpunkt)

Option Explicit

Sub CATMAin()

'****PODMIENKY****

'Treba si vytvorit part

'V nom vytvorit Geometricky Set s nazvom Geometrical Set.1

'Vytvorit zopar bodov (v 3D) a potom spline

'Pozor Spline sa musi volat Spline.1 !!!

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

'Trocha so si pomohol s resolution object kvoli lenivosti



'---- Begin resolution script For object : Spline.1

Dim partDocument1 As PartDocument

Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part

Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies

Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody

Set hybridBody1 = hybridBodies1.Item("Geometrical Set.1")

Dim hybridShapes1 As HybridShapes

Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapeSpline1 As HybridShapeSpline

Set hybridShapeSpline1 = hybridShapes1.Item("Spline.1")

'---- End resolution script

Dim oPoint As Point ' Definujeme si nAs Bod o ktorom zistime info

Dim oRefpunkt As Reference ' Potrebujeme si vytvorit referenciu z bodu, kvoli metode GetpointPosition

Dim oPocetbodov, i, oPoradiebodu As Long

oPocetbodov = hybridShapeSpline1.GetNbControlPoint ' Hodi nam cislo z kolkych bodov

                                                   ' sa sklada nasa Spline.1



'Teraz si prejdeme bod po bode z ktorych sa slada spline

For i = 1 To oPocetbodov

    Set oPoint = hybridShapeSpline1.Parent.Item(i) ' nastavime BOD

    Set oRefpunkt = oPoint ' nastavime referenciu

    oPoradiebodu = hybridShapeSpline1.GetPointPosition(oRefpunkt) ' tuna mame poradie bodu

    MsgBox "Bod s nazvom " & oPoint.Name & vbNewLine & "ma poradove cislo " & oPoradiebodu

Next i

' No a potom uz len najvyssie cislo z premennej oPoradiebodu je posledny bod na spline

' a analogicky poradove cislo jeden bude nAs prvy bod.

End Sub