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

admin

/ s! F9 q3 M$ {NX二次开发源码分享： 在绝对坐标系和视图上点映射


[mw_shl_code=c,true]
! g( F6 Q0 Q1 G1 a* D. m    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
, @, \9 v2 S1 ]' B, s7 u1 I        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}
7 x& L$ q) Z, S" e1 z' C        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
1 ^  g! F5 R) `( ?        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
) `9 w' T9 a4 Q& Y4 H, J0 @! m
/ {5 I2 E6 I! \9 X6 J$ a3 T& L        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
! o+ A% L4 i* L. w) y5 Q1 v+ t        ufs.Trns.MapPosition(c, mx)

: t* D: o( }9 u, \% {" E, O" D        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
; ?: B7 X+ j4 n) `1 J% Q
( W; ^/ o3 _( K  c) K4 V    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}
- X, v2 a4 W1 J& p5 ?        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
0 N8 _3 D: O! ]  z1 p        Dim mx(11) As Double
        Dim irc As Integer
$ Z. u/ a% }2 l5 p/ @( o5 \, i        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)

7 J) c* E; Q5 Q1 @* Y! l& h        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]