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

admin

NX二次开发源码分享： 创建视图到指定方向
1 x" c# k8 c. m. b5 m8 a6 K
; M6 U- K! _, Q" ~6 M* K[mw_shl_code=c,true]Imports System
Imports NXOpen
# A& v4 I+ ^# \+ b  t. a
/ D; d- N8 @) bModule TrimetricViewFromBelow

    Sub Main (ByVal args() As String)
9 F$ G) a+ v' }- x: Q6 r
" A$ J. X8 y: T2 |4 K; l9 n        Dim theSession As Session = Session.GetSession()
3 u! z% f% n* O0 N1 [4 }$ v        Dim basePrt As BasePart = theSession.Parts.BaseWork
8 a# B" D8 }* ^7 v        Dim workPart As CAE.CaePart = Nothing

' \, J+ g6 f1 U6 K1 ^3 @$ s        Dim origin1 As Point3d = Nothing
1 S) K$ W; x/ W+ S+ N/ @) Q( _        Dim vector1 As Vector3d = Nothing
" }5 p4 o0 @$ ~3 r' b8 g. O
4 p& e- Q2 ~& A: a        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
3 T3 u1 \; H" Z! h+ [5 R6 b6 n( y        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
' r+ a7 n! J1 c' H4 R; j        Dim Xz As Double = 0.0
: E5 \# n# `1 f8 y, W* M        Dim angle As Double = -44.0
" I4 F3 @; e2 z  z$ A
; I' u; U' O- j$ ^# O  W6 u" o        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
( C" U1 A8 }; y  y- r        End If
+ d* c" j# b& ]
/ S5 P4 y3 m" ]- r: b# h, J' M7 D        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
, D9 x( c8 e) i, l# v) \7 |" P7 D
2 M1 p; b3 |% V: _/ }! d  L2 U        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
) u, |) o7 q: @1 p3 P$ s   
. E: |! c+ e, J  M* I9 j* O        vector1 = New Vector3d(Xx, Xy, Xz)
$ T! f: J) e- h6 d$ q4 W1 p5 W   
4 s; _# ?$ l; ]8 {: A0 T/ `5 B* c        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
; i; j7 h' z) _0 ?
; N; d7 S" }. C5 X$ E. H- f        workPart.ModelingViews.WorkView.Fit()

' E+ |- V# M/ ^; {9 T( `    End Sub
; E1 k. V1 |+ m( x" v
End Module
2 b* Q5 H3 o6 X' negative trimetric view[/mw_shl_code]
3 ^  M! g, O* c, P