catia vb求助，如何取得曲线平分点的坐标？

用循环调用AddNewPointOnCurveFromPercent创建了一条曲线的多段平分点，可是返回的是 HybridShapePointOnCurve ，好像没有成员函数可以取得它在绝对坐标的x,y,z，怎么做呢？

谢谢各位高手

附代码：
    Dim pt As HybridShapePointOnCurve
     
    Dim percent As Double
    Dim i As Long
    For i = 0 To 10
        percent = i / CDbl(10)
        Set pt = oHSF.AddNewPointOnCurveFromPercent(refCurve, percent, False)
        
        '如何取得pt的(x,y,z)
               
     Next i

没有人知道吗？

https://www.icax.org/thread-303818-1-1.html

xacf ，我仔细看了您那个帖子，好像没有提到如何得到点信息啊，我看automation的百科全书上说，
Redim aCoord(2)
oPoint.GetCoordinates aCoord

Set oPoint = oHSFactory.AddNewPointOnCurveFromPercent (...)
oHBody1.AppendHybridShape oPoint
oPart.InWorkObject = oPoint

oPart.Update                     ' --> MANDATORY TO HAVE COORDINATES
oPoint.GetCoordinates coord1     ' --> OK now ...

可是我以调用GetCoordinates，vb就说没有那个函数或restrict ,或者vb不支持automation的type????

用Get确实提示出错。
但是update以后就可以了。

[ 本帖最后由 powermill 于 2007-7-18 17:29 编辑 ]