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

admin

7 O9 g) f/ l& e( q* a4 ONX二次开发源码分享： 在绝对坐标系和视图上点映射

  }+ p4 m2 u! z6 `$ n9 @
[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
( j( j  F- Z9 p% e$ q! R        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}
/ i1 b; M0 \/ ^3 N: X        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
" j$ }4 u& i0 p' |8 o! L, L        Dim mx(11) As Double
8 u) v5 p0 }: J* r. X/ s        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

, h) g! L2 v7 ~. c5 r        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
% ]) V# S5 b3 \7 a5 k% f& J1 o    End Function

3 v3 s. u: B' k    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
% f* y% L0 O  A- I" C3 A8 ?; h* O        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
* A% B$ ^( B) h1 i* y9 A        Dim c() As Double = {coords.X, coords.Y, coords.Z}

, s( T$ E7 y6 s( U7 X        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
# }; C1 [0 }7 |) o        ufs.Trns.MapPosition(c, mx)
, @" T! ?1 t: ], f, g4 J
        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
# L+ ?$ E, A0 J# l/ q" C[/mw_shl_code]
  m" a+ l: Y% l- Z8 L% K9 C