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

admin

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


[mw_shl_code=c,true]
4 A4 E  U$ `  L0 J9 }    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
. C' |% ]% q& S        Dim vmx As Matrix3x3 = aView.Matrix
5 V# O8 N( v3 Y        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
6 l  ^/ e* P' M/ ?* o0 `        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
* I" \4 F0 u! Z* Q7 [: o4 Y9 Y        Dim mx(11) As Double
6 M7 [$ F" `' x/ }/ t        Dim irc As Integer
4 C2 f* f' h$ H5 q        Dim c() As Double = {coords.X, coords.Y, coords.Z}

: _$ e; {6 [0 E$ P" \  K        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
1 e. Y4 I3 @% ^( m5 t
% f: [+ D9 x" D$ O/ p( d        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
. ?+ E( m: Q$ i
    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
& D( G& x6 n! K0 a5 [! K        Dim vmx As Matrix3x3 = aView.Matrix
9 x* k- c! U5 H' W, T: d+ _. g        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}
' y9 F) o5 z  r        Dim mx(11) As Double
        Dim irc As Integer
* \4 G6 ^* q; I2 {" f/ \0 b4 u        Dim c() As Double = {coords.X, coords.Y, coords.Z}
! C. ]! y' g) M1 O# V& v7 o
% `0 N  C! [# y4 x: {3 b. J        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)

9 L6 H% i& s1 k0 l# i        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
0 g7 l$ W5 u0 z. N1 w( F[/mw_shl_code]