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

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射
; J. x5 G2 G( k$ u2 T

[mw_shl_code=c,true]
) ^6 r; k) M1 X2 Y& H0 j) E    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
6 Q, o! b2 ]& z- W        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}
" U" I1 z* Z5 L8 w        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
2 w- S7 Q9 i7 x  ~6 p& W7 X3 X+ n        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
0 H, K* |( P) n6 g; x1 u    End Function
, b2 K6 Y' s( S0 t& @! r1 }
    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}
        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
9 V. B5 t$ x/ m; D/ P0 a        Dim irc As Integer
% N+ W" v1 e: Z7 I* z        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
+ J8 u* G6 Q5 r, W$ Q        ufs.Trns.MapPosition(c, mx)
" o, ^% H: Y% U5 _% ?  L# o9 u
, Y: F' L" T1 T9 c        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]