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

admin

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


[mw_shl_code=c,true]
6 R$ i( h$ K* p8 O# ?* P) c1 i    Function MapView2Abs(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}
  z4 [* ?% C8 O3 V. N        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
        Dim irc As Integer
* M8 [2 e% M" |        Dim c() As Double = {coords.X, coords.Y, coords.Z}
4 J( T2 Q4 Y* Z1 ?4 B' b$ K
& A1 b4 a" t: Q" R- b2 }3 [* C4 |/ T4 f        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function
1 y2 D) W% z; B4 f. R: P& g
    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
, }- t8 \# p: P* }5 j9 B& B# r        Dim vmx As Matrix3x3 = aView.Matrix
+ H/ ?5 d( J, ], Q, A        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
4 J5 d" ^* H6 y5 l" B' v& @. q        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
        Dim mx(11) As Double
        Dim irc As Integer
        Dim c() As Double = {coords.X, coords.Y, coords.Z}
# f$ ]5 K+ p" Z0 f3 Q  {
# @! @9 z/ ^+ ^5 G' P        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
7 {" d; u; g& F. G        ufs.Trns.MapPosition(c, mx)
* H2 V# Z) u7 [' _
        MapAbs2View = New Point3d(c(0), c(1), c(2))
! _7 J7 j" G' a6 i& z" c3 I    End Function
[/mw_shl_code]