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

admin

NX二次开发源码分享： 在绝对坐标系和视图上点映射
$ r! l, i) a) ]1 [/ {% V

: g; v+ U* ^3 }) R8 I0 V1 b2 u2 V, j[mw_shl_code=c,true]
6 M- S3 |; ~' e: R$ A9 g/ X8 I    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
/ o+ X, H8 d+ ~2 ]5 b- T1 b, d3 K+ d        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
# D: ?* }% h- E: s1 E# U        Dim irc As Integer
/ J* R' R9 Q1 M: O" b        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
5 q4 R* `6 g9 `) z" t* a* d8 P3 a        ufs.Trns.MapPosition(c, mx)
3 ?3 P, S- i& X$ _, ^
. I2 N: _. I3 I        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

1 }9 {, \: H' D    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
) R* U. M7 D& k" F8 U7 W! Q        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
, K. C; H! R/ L4 l; ?" _0 M4 h        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
% G, f( @2 g. D/ v, o# ]# ]$ V        Dim irc As Integer
# w# d5 P$ T+ Q0 ^        Dim c() As Double = {coords.X, coords.Y, coords.Z}
. U9 ~+ S( b8 O2 m
1 W2 b! f8 ~$ D( h# v& h        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
( J* l5 w1 v0 j8 {0 z( Z. o* l' t, E: r        ufs.Trns.MapPosition(c, mx)
6 R% t# x9 x/ S1 E4 [' k& _
        MapAbs2View = New Point3d(c(0), c(1), c(2))
# |' V( N& N# @    End Function
[/mw_shl_code]
0 ]% R# q' C# z( ?