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

admin

NX二次开发源码分享： 创建视图到指定方向
  O0 N: l, x: o1 D0 r/ T: \
[mw_shl_code=c,true]Imports System
Imports NXOpen
2 E$ J% x& a& D4 h
Module TrimetricViewFromBelow

: Y  {' U# N+ W% t    Sub Main (ByVal args() As String)
" r1 [6 ^6 J6 z: P) R
1 P' w7 a, p, j: u9 b7 q: h        Dim theSession As Session = Session.GetSession()
" D" D% e/ `+ w' k( B- `* O        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing
7 o* f9 a! g+ W% R4 X
) Y. r6 k; f  P; P: C- [' }        Dim origin1 As Point3d = Nothing
# v8 Z0 t3 P, E- r# w* y" X5 j* g        Dim vector1 As Vector3d = Nothing

        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
) E5 a8 E. \/ o
        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
6 X' [3 j  k( a5 j7 z8 k            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)
        End If

        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
/ l3 V% B1 e; i                                               View.ScaleAdjustment.Fit)
3 o3 A2 v, @1 o# }! d
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
+ _1 g9 l% l6 r* M" r9 d2 j$ Y# b   
        vector1 = New Vector3d(Xx, Xy, Xz)
2 l& U+ Q. R, |1 }* B   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
+ T) T% }. Q$ ~6 s) D. i& @- p! H
3 V" m" M6 ~+ d6 l! m3 X        workPart.ModelingViews.WorkView.Fit()

    End Sub
0 r4 Y' g% @8 \4 ~, |- i
! I* a( j" m7 m6 s* b- {End Module
' negative trimetric view[/mw_shl_code]