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

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射
* _' }; f* U8 f. \$ |' g6 L
9 b( D3 M! ?% Q, A4 v) A
[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
" B5 R% u% j  c6 l9 A. a        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}
, d  Q) ?4 D( u# Y; l        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
% U: D& i1 C8 A. i- J        Dim mx(11) As Double
$ }2 z2 f1 G" |: P) M        Dim irc As Integer
" e1 [+ _0 L, W/ Y+ W# ]1 f3 Z        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
5 f' ^( u* b+ y* E5 T# H! H% p        ufs.Trns.MapPosition(c, mx)
/ s4 Q6 ?. K9 f, \& `0 D& T
' r+ U7 T% Y7 I3 G) O) w        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

4 T8 `( Q6 M% H    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
! A/ i( G+ g$ h        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
. m1 R  Z6 T  g        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
        Dim irc As Integer
- p+ L/ ]; o9 I3 ^1 ^1 J. c4 T        Dim c() As Double = {coords.X, coords.Y, coords.Z}
6 d/ `6 S6 W6 s# ~) R; P3 A
" R/ R) c5 w$ g! H2 T- B        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]