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

admin

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


[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
) D$ c# n& N, [0 y3 t        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
* L. A2 x* _! i9 o) t        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
+ E# Z. @5 j4 z) @+ ^        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
* l3 N2 n9 s3 T- X+ _
( B( d- i+ t5 T# c) R$ \0 `        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

7 Y2 ?$ U) v* G9 t        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

' i$ a$ O0 {7 I8 m( |    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}
1 B' x  r( o$ ]: A        Dim mx(11) As Double
3 q* r9 z- x' q4 t. [" e$ s1 Y: ~: |        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
6 @0 n8 _9 k; ]  P  u" F
) |& ?# q2 f2 i% I) L$ x' P        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]