NX二次开发之VB.NET点在坐标系中的转换函数



Function Abs2WCS(ByVal inPt As Point3d) As Point3d
        Dim pt1(2), pt2(2) As Double
        pt1(0) = inPt.X
        pt1(1) = inPt.Y
        pt1(2) = inPt.Z
        ufs.Csys.MapPoint(UFConstants.UF_CSYS_ROOT_COORDS, pt1, _
            UFConstants.UF_CSYS_ROOT_WCS_COORDS, pt2)
        Abs2WCS.X = pt2(0)
        Abs2WCS.Y = pt2(1)
        Abs2WCS.Z = pt2(2)
    End Function

Function WCS2Abs(ByVal inPt As Point3d) As Point3d
        Dim pt1(2), pt2(2) As Double
        pt1(0) = inPt.X
        pt1(1) = inPt.Y
        pt1(2) = inPt.Z
        ufs.Csys.MapPoint(UFConstants.UF_CSYS_ROOT_WCS_COORDS, pt1, _
             UFConstants.UF_CSYS_ROOT_COORDS, pt2)
        WCS2Abs.X = pt2(0)
        WCS2Abs.Y = pt2(1)
        WCS2Abs.Z = pt2(2)
    End Function