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

admin

6 o" g/ @- k7 r1 Z$ zNX二次开发源码分享： 在绝对坐标系和视图上点映射


[mw_shl_code=c,true]
9 }5 n4 j# x. D# I& B" I2 S  [$ ?    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}
        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
+ X( S% D0 {7 }; s% y9 f        Dim mx(11) As Double
3 u# `% U" n) U7 x3 P5 Y; G        Dim irc As Integer
' V5 ~4 j, X) s2 l        Dim c() As Double = {coords.X, coords.Y, coords.Z}

/ Q& S3 j) ~: e! m) t2 h        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
  x2 a* I8 K+ f! r4 s        ufs.Trns.MapPosition(c, mx)

        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

    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}
6 V! K. H- V' h8 i' w, y! O        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
3 m' @) M, X, e# U* o$ n( ?% r        Dim mx(11) As Double
% j! d0 @+ `. Y        Dim irc As Integer
. w- |* C6 l1 a% O4 P( J: K8 E& F        Dim c() As Double = {coords.X, coords.Y, coords.Z}

1 ^, P9 N9 `' r8 u# C        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
3 i- k: U, i/ Q' S        ufs.Trns.MapPosition(c, mx)
; D5 M6 w$ w/ w% Q5 l( l
4 V3 ~- `+ |/ y; h* j# O' c1 E        MapAbs2View = New Point3d(c(0), c(1), c(2))
( W( A9 C. P( `3 e- ?" J' Y  S+ l% X% e    End Function
[/mw_shl_code]