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

admin

$ @+ i- s* f& r0 f0 ]- vNX二次开发源码分享： 在绝对坐标系和视图上点映射
3 o6 H$ z) y- L* L

[mw_shl_code=c,true]
) Y. f5 W5 U; Q# w7 I    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
/ |/ V. u) |: ~        Dim vmx As Matrix3x3 = aView.Matrix
/ l- v" @. w6 g        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}
- U4 E; Y+ O" \4 W# x7 m8 t7 w        Dim mx(11) As Double
1 C* `2 Q+ n& @' K1 [        Dim irc As Integer
( C* i" R; H( c" k* `! g        Dim c() As Double = {coords.X, coords.Y, coords.Z}
9 T5 @* ~; b8 J# ]( a* p/ Q
        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
. ^2 J$ ^; C0 \" x
3 F/ v0 D1 O2 u' \4 L$ {# o        MapView2Abs = New Point3d(c(0), c(1), c(2))
4 k; U5 }7 j7 {0 R7 x" n* J9 @" c; E    End Function

4 p+ B* x# w' b    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
% [. X: t" v! C% d8 |        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}
# ?' B1 d- q" S, E$ }9 {        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
1 F+ E0 H- W& y$ m5 ?, ?
        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
# I% U  N7 d9 D& P7 l- L0 F
        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
& Y; \% @2 {) X6 }' X[/mw_shl_code]