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

admin

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


[mw_shl_code=c,true]
/ r8 J8 [2 v8 g- [  ]    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
1 n3 L! l$ e- a2 Y( }$ X        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
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
+ I. q8 Z' x) V- n. m& W        ufs.Trns.MapPosition(c, mx)
2 J! z. O8 \( F  M2 R6 i! X+ D
* W& z9 ]* e7 T. o. v, x        MapView2Abs = New Point3d(c(0), c(1), c(2))
% `- D7 ~0 u' Y% y! B: w- N    End Function
: Q# D6 [1 o$ ]0 `+ r( A" V; t( p
5 v* K5 i, t' _- R3 X( H    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
9 \* ?' y, H+ E3 P; |* T/ x        Dim vmx As Matrix3x3 = aView.Matrix
& M. k  G6 o1 J' l9 E        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
% o9 K1 G* o" }/ ^/ f  T# e        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
7 G* P( ?9 e4 r9 X        Dim mx(11) As Double
        Dim irc As Integer
- ~# o) z, P' M* T        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
1 @& u3 G! p' a0 q; r0 p
4 L# R! d9 m, p' F" M        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]