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

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射
0 [2 c1 S: P7 n, S% s' d

- G2 m. y2 s4 U# I" a* H* _. v9 _7 r[mw_shl_code=c,true]
  z* A  s  w% q2 m- a$ S4 l! V9 H) n1 j    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
+ l- B6 f* ?' @        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
) S( ^& q* U* E# I6 K. I0 m        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
7 Y  O- Q" @( p" o1 [, Q4 g
3 a. `3 C0 d0 o. y0 t  \        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
: f2 u* V0 X3 H' ^; [        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
9 H7 g0 @+ \$ w) z6 d1 F) \    End Function
( R, Z" Z$ B; \6 g4 U
    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
1 b3 y4 K2 x$ Z' z# Z; L' v        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
# Z$ t5 [% R* j. ?        Dim irc As Integer
, h4 l- w; ~, x1 D& `( s; X* l% O        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)

9 ?' C7 _( J( N# S; ^' {7 \. D9 @        MapAbs2View = New Point3d(c(0), c(1), c(2))
  v$ Z# r& g) c3 |5 j+ J' e- l    End Function
[/mw_shl_code]