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

admin

NX二次开发源码分享： 创建视图到指定方向
; M5 p0 {& ]7 C* w9 s' Z& q
[mw_shl_code=c,true]Imports System
) U* V+ ]) }  B% P4 T% GImports NXOpen
; L3 @) G" W2 _3 j1 d! l
3 l9 ?7 j) s' x: M# Y4 Z. r& {* iModule TrimetricViewFromBelow

# Y1 \: D" B( S- e    Sub Main (ByVal args() As String)

9 c; i: {3 t7 N& t7 f; u        Dim theSession As Session = Session.GetSession()
- G  m6 N( _6 w9 j' h1 O, t! Z2 V# t" a        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing

) {6 f, h+ M2 W+ I; D" F        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
8 t' Y; t$ N5 r4 d6 v2 A& ?2 @  g
# _6 B$ P# o2 a, h9 _' B4 U' n        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
9 W- u* ~8 ^' }9 z  [. K) Y! r0 F/ L' h        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
0 n$ ^4 x! Z( g+ C+ t6 v, z        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)
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
) q, l5 Z$ q* I8 A( n2 ?4 [            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If

        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
' S7 l, {) T. U8 I3 h: H* V- h# M# G& `   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
% k8 n) R  C3 _$ l6 ?  s/ |2 i! U5 u
6 E5 g* W* h; h$ N4 K0 v5 w        workPart.ModelingViews.WorkView.Fit()
- H7 |6 B5 b6 J1 u% T
    End Sub
' q, U" |+ f& t
2 B/ r, T4 s! ?  R% v) LEnd Module
1 [( |$ q: ]1 b' D1 Z' negative trimetric view[/mw_shl_code]
; R* |1 [9 r7 W/ ~( m5 `