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

admin

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

[mw_shl_code=c,true]Imports System
Imports NXOpen

Module TrimetricViewFromBelow

& |+ y$ q1 Y  r& [    Sub Main (ByVal args() As String)
3 D  q5 l/ ~  T) F4 l, c/ p
        Dim theSession As Session = Session.GetSession()
% J: y9 c5 d) p4 `- C) `7 P        Dim basePrt As BasePart = theSession.Parts.BaseWork
# \- M9 C0 ]9 h7 n        Dim workPart As CAE.CaePart = Nothing

        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing

7 ]* E4 u; j4 p8 {        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
3 Z3 ?) D% I7 j3 F5 q        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
( A5 E# n! S) X  Y. }  }: P        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0

        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
  O) Q% W& I. S- k0 h0 `5 y        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
7 x# L& _$ H% j, ?) V0 b            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If
2 C( L2 @) w2 s# t( ]  g5 q4 r
$ |; g7 G! Y; o$ `! H4 }        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
# Z" ?+ }! e8 [( E
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
, e# q1 l4 h# \   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
/ }; ?( a" R/ n& T& \* u        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

9 A. Q0 l) T, d( B        workPart.ModelingViews.WorkView.Fit()
+ R% G* X2 }: `: `* g( X6 P
    End Sub
6 B6 E, r* B# m3 N! ^
. A' T) K+ {6 B3 H( R( XEnd Module
' negative trimetric view[/mw_shl_code]
8 O$ S1 {6 a" @/ S9 {/ }