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

admin

. q# n9 _+ e' d) y. E% e& UNX二次开发源码分享： 在绝对坐标系和视图上点映射
% z+ c3 q4 `% D* ]5 }2 f; S
5 h- Y2 Z8 c2 K
[mw_shl_code=c,true]
8 x! r' n. F0 J7 ^- a* i* |    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}
8 X) s& m( f# M) q        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
3 c2 F% w0 T6 A        Dim mx(11) As Double
        Dim irc As Integer
& [7 u% X( l" l7 k& C. \        Dim c() As Double = {coords.X, coords.Y, coords.Z}
( Z" ~/ A1 {2 M& G0 x
; I/ J) ^1 S! f/ Y0 f# T. [        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

6 P3 C* B3 e7 V, R$ A        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

0 m/ w, G. E  _( _& C. ?    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
: J) @, r& ~$ x% f) ^% t        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
6 j8 X* H& [( Q' q3 Q8 E  [7 K        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
4 h+ s2 j4 @; r( I& f# }        Dim irc As Integer
3 A& `1 R  k; m/ D7 v5 n" f  _. {        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
- {- W% {9 K& Q% G- H: @        ufs.Trns.MapPosition(c, mx)
8 c" Y5 A1 b  X6 S3 Z/ U, f
& [7 F3 d! h7 `        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
) T$ `& t& e0 f6 S) J/ N0 T[/mw_shl_code]