Nedá mi to... odpověď na dotaz: ano řešení existuje:)
Počítám, že chcete asi aj vědět jaké? Hledejte v nápovědě "Measurable" objekt.
příklad

Dim TheSPAWorkbench As SPAWorkbench
Dim TheMeasurable As Measurable
Dim vMeasurable As Variant
Dim Coordinates(2)
Dim oPart As Part
Dim oPartDoc As PartDocument
Dim oPoint As Object
Dim oRef As Reference

Set oPartDoc = CATIA.ActiveDocument
Set oPart = oPartDoc.Part
Set oPoint = 'bod, ktery chcete merit
Set oRef = oPart.CreateReferenceFromObject(oPoint)

Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oRef)
Set vMeasurable = TheMeasurable

Call vMeasurable.GetPoint(Coordinates)
dX = CDbl(Coordinates(0))
dY = CDbl(Coordinates(1))
dZ = CDbl(Coordinates(2))

Ďakujem za odpovede

A ešte v tom riadku Set oPoint= tu dám len názov bodu napr. Point.8 ?

Ďakujem