Code:
Sub CATMain()Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Dim constraints1 As Constraints
Set constraints1 = product1.Connections("CATIAConstraints")
Dim constraint1 As Constraint
Set constraint1 = constraints1.Item("Kongruenz .39")
Dim oref As reference
Set oref = constraint1.GetConstraintElement(1)
Dim Coordinates(8)
Dim TheSPAWorkbench As Workbench
Dim TheMeasurable As Object
Set TheSPAWorkbench = productDocument1.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oref)
Dim direction(2)
TheMeasurable.GetDirection direction
Dim Points(8)
TheMeasurable.GetPointsOnCurve Points
End Sub