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

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射
6 W# S+ d8 i2 i8 v& I  h$ m; Y, g

[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
( t7 h/ d! ^5 @8 h  O. X0 q        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
9 i0 v6 L8 Q& E: \& @        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
5 G4 b) @2 T7 f2 c! Q        Dim mx(11) As Double
        Dim irc As Integer
5 Z6 U* k- w& u. k1 h        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
4 c5 S; p. t; y* O' Y, }8 x        ufs.Trns.MapPosition(c, mx)
+ I( |  P8 I% q
        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
  H7 ^0 A/ M! x3 p0 y
0 e2 Q4 a* ?" N1 `# a    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
: G' u  B) ?$ ~( A  C6 y0 b; K2 C        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

' R# l1 e4 _4 L7 }' A! k, @8 E( Z        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
+ y0 O; V# ^5 d1 G' e. c8 Q
; q! F/ `+ m3 h% l  }; w- j        MapAbs2View = New Point3d(c(0), c(1), c(2))
. ^+ |# L& K3 p0 Y6 {    End Function
5 k7 h; [- j! q" [9 n( C, Y[/mw_shl_code]
$ O7 K! r  ?" ^5 |' d' P2 Z8 |9 q3 o