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

admin

/ b: |& N* ~# U3 c& V7 B* s5 zNX二次开发源码分享： 创建视图到指定方向

9 A( J0 `# h  K: S' p2 F[mw_shl_code=c,true]Imports System
Imports NXOpen
0 K7 d+ W6 T* v$ G
3 Q! U" A# \3 s- \% q* C3 wModule TrimetricViewFromBelow
+ `$ u& X9 D& o
    Sub Main (ByVal args() As String)

        Dim theSession As Session = Session.GetSession()
- N: J; V) g( y$ f        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing

        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
7 `$ J; [; @9 z5 S
1 s3 l9 C  g* E% |  Q: S( r        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0
3 p/ C- G! {* i7 T! O
        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
/ I. w' w; H9 d/ p* Y% |. h        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If
% P5 }' \8 M. Y7 _0 B
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
# k* q8 }, U5 T9 o+ w0 x
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
: W) ]/ {4 @9 S/ b   
        vector1 = New Vector3d(Xx, Xy, Xz)
( m! l. l# C- A- W5 V   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

        workPart.ModelingViews.WorkView.Fit()

    End Sub

6 s6 N' p3 _3 W8 {+ sEnd Module
8 i+ Z6 ]/ c0 @; _' negative trimetric view[/mw_shl_code]