[求助]样条曲线的节点坐标怎样求出?

怪石斋主人

一样条曲线怎样把各节点的坐标赋出,如多段线用如下一样

retCoord = returnobj.Coordinates
        For Number = LBound(retCoord) To UBound(retCoord) + 2 - 2 Step 2
            pt1(k) = retCoord(Number)
            pt1(k + 1) = retCoord(Number + 1)
            pt1(k + 2) = gc
          k = k + 3
Next

zhang007

样条曲线和多段线有点不一样，只能使用控制点坐标或拟合点坐标

以下是控制点，拟合点不一定有，先要判断是否有

For index = 0 To lin.NumberOfControlPoints - 1

 lin.GetControlPoint(index)

next

或者用ControlPoints属性