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

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射
6 h7 i" j+ U- y
1 O5 C! U2 x- S4 ^: Z
$ J1 {% k; t( _: F* u. U[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
. \6 [$ V' M6 ]8 H$ K: v        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}
1 ^% z' p  a4 D, A0 `7 O* Q        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}
2 j& A& N6 P% [6 d3 A/ S
( s* U0 h7 B6 a; K, [        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
1 p4 n0 }2 f: O  i( p2 I" _* D        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
  h4 s" Y3 e0 U. x4 s( u3 r0 ?
/ a6 J0 y: Y4 X  H  H    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
. I" A4 z0 l7 v        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}
  H0 N. ]9 ]  M  ]* S, @  ^7 D* I+ s4 {* }        Dim mx(11) As Double
; U, |4 t& A. U& f1 R8 R5 g        Dim irc As Integer
' Q0 S% \. H2 ~3 ~: ^3 g  y        Dim c() As Double = {coords.X, coords.Y, coords.Z}
; ^' G. I. d: Q" ]
7 _) |1 t1 z3 c        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
: l" i) F4 r. F0 t" N& |$ v% f
        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]
$ X( j/ }6 l9 ?  g+ a) C