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

admin

( i9 s% H- a9 C/ L6 `& bNX二次开发源码分享： 创建视图到指定方向
& X" ~9 F9 s) d1 \1 l  a
2 h5 D+ L4 R. W[mw_shl_code=c,true]Imports System
Imports NXOpen
7 e5 |8 c; O* `  d
4 r# E. w1 a; ?, JModule TrimetricViewFromBelow
: V" E7 s: T( G' J
    Sub Main (ByVal args() As String)
  E& h7 f+ _9 m# v
        Dim theSession As Session = Session.GetSession()
6 N! x9 r6 y5 m2 C% q6 X, _! }8 p        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing
. D' K3 V! f2 q) d, h; S2 i+ c
        Dim origin1 As Point3d = Nothing
9 ]' e" z7 A' J0 V3 q' S0 R% ?        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

        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
8 S% ]- F0 i# B! J- z        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
5 G. m: U: T- R& [9 S5 x* @            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If
  b9 O4 V) k# B& A! \4 }! n7 f
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
3 a8 O. J4 e: w! g0 X. g                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
        vector1 = New Vector3d(Xx, Xy, Xz)
  Q! `+ k( R9 h: X+ z6 Q( \   
5 U' T6 Q7 I! r- o8 T        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

( i% p* {$ F' ~: w" M* ~+ u        workPart.ModelingViews.WorkView.Fit()

    End Sub

End Module
' negative trimetric view[/mw_shl_code]
0 }, V, C7 S2 J+ r) F