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

admin

& a3 \* _* ]! X5 t: N3 |NX二次开发源码分享： 在绝对坐标系和视图上点映射


[mw_shl_code=c,true]
' [4 h- R6 ^% d! h6 G( ~7 q* Z    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
7 Q1 s  W4 H- t$ c: d8 D+ P        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}
( j( m! n& ]$ g2 k5 ?        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
1 z! ^7 Y9 S! l: g0 m% b* n        Dim irc As Integer
# S$ @( h. P6 N. V8 y        Dim c() As Double = {coords.X, coords.Y, coords.Z}

# r- `4 Z$ u. Y# D2 r, c        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
* f1 k8 V, |# }# q$ Q- _        ufs.Trns.MapPosition(c, mx)
: \0 J' ^# {3 M8 I/ n( U
- W5 V. A, T1 j0 p* |' t) n5 T        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
' K# g6 {% F( {# F
    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
% w2 o7 d7 ~* p' p  p6 O! U        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
, `( j" o- |. q0 X5 Y' T! X) v        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
8 O# D/ L! v5 ]' \3 v        ufs.Trns.MapPosition(c, mx)

        MapAbs2View = New Point3d(c(0), c(1), c(2))
1 J8 s! `8 |: @& N; C4 z    End Function
2 U" q" f, }- s[/mw_shl_code]