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

admin

1 ~* T$ d9 k) R6 V8 iNX二次开发源码分享： 在绝对坐标系和视图上点映射


[mw_shl_code=c,true]
    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
        Dim vmx As Matrix3x3 = aView.Matrix
( n* N3 a% l' d* A, n+ A        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}
$ G8 u) W. Y! @0 m9 m! E        Dim mx(11) As Double
) f! x. K" L' z. l& |$ F) u        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
8 e) S; \5 K+ L( x* `1 ?( ?* M        ufs.Trns.MapPosition(c, mx)

1 U8 l7 A0 z/ X: B        MapView2Abs = New Point3d(c(0), c(1), c(2))
. I! e, ^' E  I2 o, a    End Function
2 U5 ]0 _$ g' w0 w2 c9 ~& ?
    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
8 P+ \* u7 C0 _/ M; ~& m! s6 K        Dim vmx As Matrix3x3 = aView.Matrix
2 C* b% C) j4 F7 M# ~/ J; X        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 \1 H6 m' }+ n  ^5 T1 r- s        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}

7 P" V$ E8 y4 B        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
        ufs.Trns.MapPosition(c, mx)
, h3 i% h. U: J; v
        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
9 R; B' o: A* [: p6 x) Z# I0 D" }[/mw_shl_code]
- \( G- g' p) J. i. R, E8 Q- o