CorelDraw VBA 中，请问如何求一条曲线中心点的坐标？


Sub 节点坐标()　　　'CorelDRAW vba
    Dim n1 As Node, n2 As Node
    Set sp = ActiveShape.Curve.SubPaths
    Set n1 = sp(1).StartNode
    Set n2 = sp(1).EndNode
    Debug.Print (n1.PositionX + n2.PositionX) * 25.4 / 2, (n1.PositionY + n2.PositionY) * 25.4 / 2    '曲线两端点中心坐标
    For i = 1 To sp(1).Nodes.Count
        Debug.Print sp(1).Nodes(i).PositionX * 25.4, sp(1).Nodes(i).PositionY * 25.4    '曲线上各节点坐标
    Next i
End Sub