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

admin

+ H& y- ^  w  g# t/ @NX二次开发源码分享： 在绝对坐标系和视图上点映射
/ g9 l! ]9 m9 v1 U" S! {; [

[mw_shl_code=c,true]
* P5 D" O, l2 h  w    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
* ~$ x7 ]$ R$ s        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
6 q% {3 n0 y6 U' [7 z        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

. b: R1 U% I5 ?- l9 S- X+ o8 a        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
1 U# s$ ]! |6 @        ufs.Trns.MapPosition(c, mx)

# W$ `) o3 K; B/ d: w& n" c; Q1 a        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
) N( X9 A3 K9 ^0 d2 J
# y+ A" B8 }) \1 x0 e, q6 I2 _0 [    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}
& }9 p% g2 z* s3 q/ `        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

* k7 O$ N' {3 O, Q- ?) V+ r( |        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapAbs2View = New Point3d(c(0), c(1), c(2))
- F6 m- v3 C0 h4 o4 l    End Function
[/mw_shl_code]
3 f/ @% e' b3 l