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

admin

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


+ Q: s9 F# m& p( j6 Q5 S[mw_shl_code=c,true]
  _5 |  }2 x1 S1 l3 u( i2 d    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
; H- Q! Y: D: U! T        Dim vmx As Matrix3x3 = aView.Matrix
) J4 P, m  T+ L% ^        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
/ K8 b. ?+ I" _        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
        Dim irc As Integer
, @4 e+ K# R0 f9 u, `2 D        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
% d. b3 N! c" O$ U; C3 j* {
$ c5 H; r+ e1 L: p/ O) m        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

1 j2 M) D7 ?2 W( P    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
6 q' l2 C: z- R  \  F- L5 \: [6 q2 O        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}
3 Z# A: o: [: z1 d+ U8 a- n        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
0 a' r/ w. C( l% q" L7 \. r        ufs.Trns.MapPosition(c, mx)

7 S1 N( o5 d& N9 c        MapAbs2View = New Point3d(c(0), c(1), c(2))
" w+ ]) C( d; s    End Function
1 K  _" D( W8 x  m1 K$ A+ C/ P6 L[/mw_shl_code]
$ D# O2 m) M# \' @5 B