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

admin

/ }" x- x0 D: P* u- f) J' bNX二次开发源码分享： 在绝对坐标系和视图上点映射


[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
; U, v8 Z5 s- Z- h        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}
$ h0 M  d  U' M9 E, o        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)
  B# i/ y/ ]* N# b* G
  M4 E* v/ s7 A& k2 Z8 \        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
- ]$ V+ x8 ?  o$ Z5 n# ?- k
, `# N0 X+ ]6 S* ^2 P6 Q    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}
& Y( `) ]$ ~' R) h" v        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
" x' Z4 E% N7 _+ E        Dim mx(11) As Double
) U0 [& \4 Y$ ~        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
, l2 A; S' |# ^7 F% |
        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapAbs2View = New Point3d(c(0), c(1), c(2))
( f: _3 |: m6 @; E7 G  J    End Function
[/mw_shl_code]