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

admin

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


. j! b- A- O$ w/ y5 N/ r[mw_shl_code=c,true]
9 u) b: P8 t, c+ @1 l, {' ?- J8 h    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
  `9 J" J) j7 D        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}
& Q9 k* G/ A, e. ?        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
        Dim irc As Integer
" H5 |6 N3 v5 y        Dim c() As Double = {coords.X, coords.Y, coords.Z}

" Z0 W5 R* N9 v/ ?; p        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
$ c" @. k% v% k" }1 h, P; g* x/ p
$ I6 A5 \  [3 O2 D& b        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
! v. k$ g0 X! l! \' d
) X- s4 G9 D' q4 R7 l    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
' S, u" }. e% o  S6 h$ ]        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
$ U: D8 N) C. L; w9 ?+ I" g        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
$ @: ^7 r  k- R; P8 f        Dim mx(11) As Double
* M/ w8 p6 d& Z1 o, s3 E        Dim irc As Integer
% @# U8 x. i6 R7 Q  W        Dim c() As Double = {coords.X, coords.Y, coords.Z}
; ?  X( H% K9 V
        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
+ p. X% {1 D( E
        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]