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

admin

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


$ S$ T7 v( }/ a. E( @[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
1 V1 m$ s; M' ^9 y& W        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}
" b- U1 f  W. R1 n. @& O/ ^        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
# `% s6 I5 \6 z$ W5 n8 H' ]        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
# i0 A2 L* M& @+ c
+ Q! m8 u6 Z  ?/ S. j5 e8 a        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
/ R. n$ y( e8 p) E2 H' X
    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
0 F$ H. D' b0 ~( I6 `% Z0 M. m        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}
* N# f+ o+ d! o& u+ O3 [$ ~; p        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
+ w: V2 a9 H* Q  }% _8 S        Dim mx(11) As Double
7 v, a9 L5 k  ?        Dim irc As Integer
0 f' S1 l+ ?# |& e! ~. @        Dim c() As Double = {coords.X, coords.Y, coords.Z}

8 K9 V* P( s+ L8 @! x: `7 {% f        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
# K( i% \9 ~. P7 z) ~5 K8 Z        ufs.Trns.MapPosition(c, mx)

        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
* g- t* I, K3 w* X[/mw_shl_code]