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

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射
# M# m" C. o8 T; \
3 T9 v( W  S) A8 ], P
1 C7 _9 j, a; j: G+ V0 I0 i0 Q* {/ e[mw_shl_code=c,true]
- [* Y1 W3 u# B8 T( x    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
2 W  c; h) Y8 M2 `' l9 |        Dim vmx As Matrix3x3 = aView.Matrix
1 h5 Z* p9 i0 g( W8 n) P        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
, C- z6 i+ W. B        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
5 l$ j: A& V( \1 G        Dim irc As Integer
1 {( L  P6 O; i4 K        Dim c() As Double = {coords.X, coords.Y, coords.Z}
0 ^* _+ A. v) Z" h- f2 }, \
        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
/ R! ~! D+ q- E9 }
9 U7 H. o& g8 C, F' l        MapView2Abs = New Point3d(c(0), c(1), c(2))
1 ]# W6 T0 a5 \8 J    End Function

    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        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}
) O* P7 f# Y; H        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
% o+ G1 B" ~3 J/ S$ f) A* ~4 M
        MapAbs2View = New Point3d(c(0), c(1), c(2))
5 _" b" g# s  I    End Function
9 p: C% ?" z8 H8 f9 i: z[/mw_shl_code]