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

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射
# U; e0 I4 j0 `0 R
; I* D3 E; Y/ m: a2 \4 [
# p; J5 p% J- t1 m, T3 a[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
$ S% i) o+ |% v/ c, X        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
6 x1 W- _# ]0 l* F; C4 X* c        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
; `. M; C$ d5 V5 V        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
& B6 Z' t' F; [! {* w1 v- O+ s* x
        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
1 P& Q. _* {* \# L& U5 F
        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
) V) W4 X0 V1 z2 R6 T        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}
        Dim mx(11) As Double
  D/ t' o; w4 |' d% L/ f( b        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
. k; T! `, b) [+ k/ K( u        ufs.Trns.MapPosition(c, mx)

3 ]9 B$ a# C7 E$ F6 ^$ M        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]