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

admin

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


[mw_shl_code=c,true]
% }# k/ p1 _6 A    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
2 ]  ^  }* ~* g        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
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
0 E, ^" Z# Y0 N/ r. C; x
* J9 b% k2 c: F1 I. t% \9 t7 Y5 m        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

1 M4 ?0 O" Q8 T$ K* H5 x        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

+ n% B6 ^: Z7 I' F    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
- t8 M2 A. ]+ H2 y* `3 m' X4 D        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
" d" Q' L4 Z8 {7 ]; u        Dim c() As Double = {coords.X, coords.Y, coords.Z}
6 [1 k6 c; {- n* Y1 c9 }
        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
# j$ ?3 @$ I% y* n+ T5 ]1 }% `2 [        ufs.Trns.MapPosition(c, mx)

) ^% o/ r# z( n1 a) S0 U! I        MapAbs2View = New Point3d(c(0), c(1), c(2))
! d6 P' F" Z' Q3 q    End Function
[/mw_shl_code]