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

admin

. G9 _% i2 H. BNX二次开发源码分享： 在绝对坐标系和视图上点映射


[mw_shl_code=c,true]
# c( l& p- K' `$ T9 w! C    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
% f4 o) d# l) s' l1 w- d        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}
: j& ]3 O4 t9 l! v) A. _1 C        Dim mx(11) As Double
# u" u( t( m. Q, U1 a  g8 p+ J        Dim irc As Integer
  S2 Y4 G7 E# i        Dim c() As Double = {coords.X, coords.Y, coords.Z}
6 ]7 g4 L& s! v. \. A: R& `$ T
5 w1 N- v/ o, o4 [; w        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
3 t! r& ^$ \% O8 z3 ]4 W. M    End Function
/ \+ B# C" y+ c: ~2 p! |
    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
5 e& I( P9 Y4 i: z        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
0 s% V% m0 M9 L( Y' G5 r1 j        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
* V7 f2 r& e5 @" M
        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
$ ~8 V# a0 P; E% v
1 D/ V* H+ n, r. d  b8 |# R        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
[/mw_shl_code]
: N/ T% m" m9 G' ~; H# @