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

admin

5 ~6 W; \* f; eNX二次开发源码分享： 在绝对坐标系和视图上点映射


8 g7 X: j$ k* Q3 _; m( G[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
4 L$ v, `! M' ]% g7 l2 W4 V2 f        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}
8 j( `3 _! a% h; Z* @4 n        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

# s3 G' O" W" a4 |        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
- V/ A7 T! |* @( J) f1 w  Y        ufs.Trns.MapPosition(c, mx)

& s$ K1 u0 G1 W# e        MapView2Abs = New Point3d(c(0), c(1), c(2))
2 ?' x! P2 a: `    End Function
, C4 ]/ c- f; \0 `7 e. V
$ {% |1 y% I- V2 Z) a+ J5 B    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        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}
/ e" X) U: H5 Y1 Y8 S5 a! O/ Q        Dim mx(11) As Double
0 O  _1 I' h. a, `        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
) L) v  t7 e4 t" @
        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
4 l$ M) n! I% f+ x9 B$ F/ v# L[/mw_shl_code]
, V1 G/ P$ n+ x