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

admin

NX二次开发源码分享： 创建视图到指定方向
7 k9 Q2 B. v, r& C! Q  I6 Q9 j
$ B( {: N( ?3 j4 f; H# n, ?[mw_shl_code=c,true]Imports System
Imports NXOpen

Module TrimetricViewFromBelow

1 A8 @6 D# f& ]& o    Sub Main (ByVal args() As String)

0 E+ T) O; c6 S' D* ^& S& q        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing
; z" N4 s$ q9 j) i8 H
/ g# c5 D' O; ]$ p# C        Dim origin1 As Point3d = Nothing
3 W6 t( J- {$ V        Dim vector1 As Vector3d = Nothing
" X6 M' g& b# F+ n( y
2 A/ U7 }# \' t7 V        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
! b# y  J4 b- U2 g        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
+ u4 O# ]/ a$ B( m9 j; S0 T9 r        Dim Xz As Double = 0.0
5 ^- B/ P4 L4 e/ n. J6 G        Dim angle As Double = -44.0

4 X7 F2 R& M  |8 ]: e0 l6 d        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)
3 T% G! F/ P3 ]9 _+ x/ k/ r, r0 e+ h        End If
$ |- [* K" U' B7 V5 J) X% F
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
* r) ^$ q( m. k: \7 p4 L7 K                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
' F* F( y: d% w   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

, B  W# ]) q1 [# u. n        workPart.ModelingViews.WorkView.Fit()
2 }' l* T& y6 @+ x+ Y
1 k# G0 W  g! e4 I/ r    End Sub

End Module
' negative trimetric view[/mw_shl_code]