iCAx开思工具箱

标题: catia vb求助，如何取得曲线平分点的坐标？ [打印本页]

作者: cornerstone 时间: 2007-5-6 00:26
标题: 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

作者: cornerstone 时间: 2007-5-7 21:27
没有人知道吗？

作者: xacf 时间: 2007-5-8 10:08
https://www.icax.org/thread-303818-1-1.html

作者: cornerstone 时间: 2007-5-8 20:04
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????

作者: powermill 时间: 2007-6-27 08:17
用Get确实提示出错。
但是update以后就可以了。

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)