Точка на Curve2D

[Artem]

Как поставить точку на середине Curve2D?

Код: Выделить всё

Dim gg 'As Curve2D
....
gg.GetPointAtParam 0.5, ff
MsgBox CStr(ff(0)) + "    " + CStr(ff(1))


Возвращает точку на кривой(что радует)...но даалеко не на середине и не на расстоянии 0.5, 50, 500 (что огорчает) и 1 тоже не в конце... (((((. Как работает эта команда? или что другое взять?

[Artem]

нашел...

Код: Выделить всё

Set gg = selectiond.Item(i).Value
gg.GetParamExtents ee
MsgBox CStr(ff(0)) + "    " + CStr(ff(1))
gg.GetPointAtParam (CDbl(ee(1)) - CDbl(ee(0))) / 2, ff
MsgBox CStr(ff(0)) + "    " + CStr(ff(1))