NX二次开发源码分享： 创建视图到指定方向

admin

NX二次开发源码分享： 创建视图到指定方向
$ h: o( h+ u# |% R3 }+ l
) [6 p7 C' g0 _' h8 B[mw_shl_code=c,true]Imports System
Imports NXOpen
( h" |, A  m, e9 H, I
$ K  S1 [& z+ B, u3 bModule TrimetricViewFromBelow

& g! @/ t5 G% y! W/ p    Sub Main (ByVal args() As String)
1 o# j; b$ Z) a; f
        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
8 s# p4 [/ I/ n0 B2 v- P        Dim workPart As CAE.CaePart = Nothing

! W2 d- k. e5 g' T$ t  k        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
" M/ m; N, T) g
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
  s4 u% m& `8 w        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0
- h& p' Q- U+ K+ v" z
7 }7 Z4 H* j/ W% ?. c        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
8 L2 M% ]# D+ J& B2 O( i' N. ^            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
- B" |) G4 j9 R4 e9 i5 ^        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
! h. K3 T0 u- T# L. N: D/ m# b            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If

2 j5 g$ p# X5 w) G3 J2 |        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
" a9 Q/ A! V3 p' O6 w                                               View.ScaleAdjustment.Fit)

5 F. M+ U  C1 s9 M) G3 v/ X( w        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
- ?- a7 ~# b: i' N4 w: ?$ p9 [3 o% o6 Y        vector1 = New Vector3d(Xx, Xy, Xz)
" l4 b! T8 W. V9 j   
4 K3 T3 V  |0 J' ]: G, j* l        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

        workPart.ModelingViews.WorkView.Fit()
3 \. A, a8 ], B0 s/ I" e, T
: V6 ?. E. x# g4 u% A; i6 z, M    End Sub
( {3 `0 v9 s4 ^* d3 C. a- H; \9 ?
End Module
' negative trimetric view[/mw_shl_code]