NX二次开发源码分享： 在绝对坐标系和视图上点映射

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射


[mw_shl_code=c,true]
0 I0 W8 j! c  _4 M( e    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
' z1 W& }- C# s* Y        Dim vmx As Matrix3x3 = aView.Matrix
        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
        Dim irc As Integer
& ?; p9 t) K/ _+ K7 N' o# a! W        Dim c() As Double = {coords.X, coords.Y, coords.Z}
4 f- E! y6 y! Z* t  q! K7 W+ K) Q$ R
        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
2 o6 a. U% A" Z' L, F
1 _/ t0 Z& C3 K: j    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
1 |! d6 b& C) C* Y  d( ?9 C; T# ]        Dim vmx As Matrix3x3 = aView.Matrix
        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
7 d- A2 a; o* Y* x        Dim mx(11) As Double
4 ]: X& i$ f* c' X5 s        Dim irc As Integer
1 n# c+ E) }* t7 ?8 D        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
. t+ ~: D$ e: \% X, L; `& Z
6 J3 n6 a! Z, m% T. ~        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]
7 u/ P) m. \5 a+ W3 F: _- \' C5 |- `