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

admin

) I1 J- }2 x# [5 KNX二次开发源码分享： 在绝对坐标系和视图上点映射
% i2 E3 b  @+ U* B- {3 N

[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
# c$ s' f2 v" X+ h6 k; M        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
- ]" Y3 p% G7 N# q        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
$ T: |4 T' [3 l, u0 ?% g% l. B2 H" Q        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
; u# g+ O) ]% \% ?
# T% L' g/ S" w0 {2 U        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
' Q. b6 w$ |6 q+ F; }0 u! R
3 ~: A9 Z. r9 d- h% `    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
6 l/ u' R: S7 P! Y$ v        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
$ P  ~. z% J- p' Q        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

) S$ d# H9 @# a3 Q; N4 U) c        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapAbs2View = New Point3d(c(0), c(1), c(2))
/ [6 ~" ^! Q  E0 y7 k2 q8 l$ M/ |    End Function
5 v0 f$ I8 }  I4 D  X[/mw_shl_code]