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

admin

6 G( g3 u3 w- k" V; A7 K' |NX二次开发源码分享： 在绝对坐标系和视图上点映射
# R1 z5 y2 O$ _+ H

[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}
. e9 }3 \  ]+ P& s. w        Dim mx(11) As Double
        Dim irc As Integer
( r6 d0 X% s' e1 w9 a. s        Dim c() As Double = {coords.X, coords.Y, coords.Z}

' ^& F" ?" P5 v( B$ V% d6 `        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
$ [! s: M& e. A- B
9 G( H/ a/ \/ I: a  i, Z        MapView2Abs = New Point3d(c(0), c(1), c(2))
) y- \7 Z7 `, T+ w9 D% i+ n1 h    End Function

    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}
* Z( t* q7 S. [, a        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
        Dim irc As Integer
9 p  w( g/ G* J& ~        Dim c() As Double = {coords.X, coords.Y, coords.Z}
, Q6 \" ]" K: y. j5 Q
! h2 C  e" ^8 j3 i& g        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
/ E6 F  C3 `5 }6 n7 z5 g
1 R  O3 Z8 k! g7 b        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
& c$ K5 ]( G# D" z, @* ^. `[/mw_shl_code]