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

admin

NX二次开发源码分享： 创建视图到指定方向
" }! F: L* M$ z3 d
; J% f% h" C5 d  k- y' h- N% Q[mw_shl_code=c,true]Imports System
& I5 V, o8 L; n* X, p( v; c/ EImports NXOpen
6 A4 c1 q5 m- W: g6 M  S
Module TrimetricViewFromBelow

4 e+ T- I" @& `% K8 a2 q    Sub Main (ByVal args() As String)

9 o4 i+ e4 m) t; f: T1 J        Dim theSession As Session = Session.GetSession()
- Y* S9 r( u/ z6 a        Dim basePrt As BasePart = theSession.Parts.BaseWork
# `, H( G+ [/ B! p4 l, C- Y        Dim workPart As CAE.CaePart = Nothing

        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
# l- {5 F) V+ ~
# y: ]. j' m0 V# a% z        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
8 I% U6 r& c  h' v( V9 S0 \; t        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
$ u" q% [0 l, W& p% @        Dim Xz As Double = 0.0
$ p3 u2 E* g0 ~        Dim angle As Double = -44.0

& E1 W% @! Y9 C: ?$ b. t        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
) }1 \/ g+ [# a! R        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
& a/ v$ z2 W! m, Y            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
. z7 y: C- o% Y3 z6 ~: L        End If
# x* U; q1 ?" h
- F) \4 I* j1 {3 |, `        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
/ i6 _4 ?5 F/ _: C! I3 S1 V
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
+ r( N0 ~0 ]- W. G# D   
* }: s' s& Z& j/ @! t        vector1 = New Vector3d(Xx, Xy, Xz)
   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

4 m: c9 c+ X7 g- c3 r. _        workPart.ModelingViews.WorkView.Fit()
2 `# }" i2 q$ f$ Z( |# z. \
+ ^2 [$ Q; u- @3 [4 c- X+ q    End Sub

3 q, s+ g2 a3 WEnd Module
' negative trimetric view[/mw_shl_code]