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

admin

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

  d1 n& I$ @' ^; m7 h6 _
$ d( F- C, L' A5 H  Y0 ^- h  B[mw_shl_code=c,true]
8 p- }$ W7 e. I+ M& F% X    Function MapView2Abs(ByVal aView As View, ByVal coords As Point3d)
0 Q2 E8 w3 g' J. _5 P% n, [        Dim vmx As Matrix3x3 = aView.Matrix
- v' L5 I2 ]/ |& G# G8 o        Dim vw() As Double = {0, 0, 0, vmx.Xx, vmx.Xy, vmx.Xz, vmx.Yx, vmx.Yy, vmx.Yz}
7 Q' @/ y. [5 c* I) H4 C        Dim abs() As Double = {0, 0, 0, 1, 0, 0, 0, 1, 0}
3 F! X! z' m$ j7 Q3 ?) J' J        Dim mx(11) As Double
        Dim irc As Integer
+ T  `: `6 r1 k2 ]8 ]- `0 q0 @1 D5 F4 z        Dim c() As Double = {coords.X, coords.Y, coords.Z}

" d3 d8 `7 m- \% k, `( v        ufs.Trns.CreateCsysMappingMatrix(vw, abs, mx, irc)
9 |8 z" x& ?7 R. ], z) f, T        ufs.Trns.MapPosition(c, mx)
- ~6 N# P) I' R% v& v
        MapView2Abs = New Point3d(c(0), c(1), c(2))
    End Function

; k6 P; C- p& s& |6 m: J5 `    Function MapAbs2View(ByVal aView As View, ByVal coords As Point3d)
, @; r" F* U- V% ]% B+ m        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}
& `' e# k7 P! Q2 K% d8 R8 A        Dim mx(11) As Double
( P+ I5 W9 }) ^6 ^3 }! C1 a1 p        Dim irc As Integer
% d9 i2 [1 r& e4 A) r: ?        Dim c() As Double = {coords.X, coords.Y, coords.Z}
, C( O) g. N2 X% {* y
" H9 h1 b# j2 Q1 m        ufs.Trns.CreateCsysMappingMatrix(abs, vw, mx, irc)
9 c1 K8 W5 K: e, F        ufs.Trns.MapPosition(c, mx)

' R: @  W, b! v1 y, X' i8 w& @        MapAbs2View = New Point3d(c(0), c(1), c(2))
    End Function
# [: \7 f9 n! Z" E[/mw_shl_code]