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

admin

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

  X  x/ y  D, g! ]  [* ~
6 K. `) W; V: E, B. S[mw_shl_code=c,true]
    Function MapView2Abs(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}
7 S# q( s6 Q7 B$ L: ^$ z1 i        Dim mx(11) As Double
7 J3 b# @7 r% x1 r        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
" Y, K+ {: Z8 l  Z9 u
5 r* w( Q8 e1 l$ n& U3 G' c3 S. G        MapView2Abs = New Point3d(c(0), c(1), c(2))
  Q4 B5 j9 ?  V( ~+ N    End Function

    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
0 ]9 I5 R( \, C* s/ @) H5 {* e8 O) K1 N        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}
! h2 d9 r; z  i: F/ Z2 J' r  Z        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
! f+ C9 ?* @( U4 \" N, x9 |, C        Dim mx(11) As Double
        Dim irc As Integer
& R/ e5 V, |6 O& y) J. Z7 Z        Dim c() As Double = {coords.X, coords.Y, coords.Z}
: T/ s% d8 N0 x; v4 ]
        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
' D5 ?- H4 P$ }: ?  ^1 O4 O        ufs.Trns.MapPosition(c, mx)

        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]
  }! @$ |: ^7 K6 G# P! B