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

admin

NX二次开发源码分享： 创建视图到指定方向
0 v' t  `! t' o
3 @: b/ F& G+ o$ u0 G: E[mw_shl_code=c,true]Imports System
( R7 }- F  |% D5 |5 A: H3 |3 i# KImports NXOpen

; ?% V1 {, N, x3 {% y: k+ IModule TrimetricViewFromBelow
/ B6 W1 n/ V' g% b
    Sub Main (ByVal args() As String)

  P+ i; ?4 e2 w' K* m! e/ j, Q        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
$ Q3 s! a' i8 s0 j        Dim workPart As CAE.CaePart = Nothing

. S" I3 P) K  ^% F7 `7 F" F3 ~        Dim origin1 As Point3d = Nothing
& y2 E  D$ l9 w3 t& |; v; s        Dim vector1 As Vector3d = Nothing

. A8 Q# c. U& C. G* q6 g        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
- K! j" S7 ?. H3 n; C* s        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0
4 Q* T" a4 p) X( T0 I* n
5 k4 M- D5 T* t* o1 a% y$ n        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
1 W6 F* R, y0 u7 l            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
; @4 q( }! u; C6 B" a0 _        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
+ z# v$ i9 d* [7 y            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If
+ O6 H: _; r" t1 C# W. L: J8 y& G
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
' |" b$ ~) }. w                                               View.ScaleAdjustment.Fit)
! t( b3 e2 t/ Z$ v
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
' _/ H) H. r; I* K5 Z! z        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

        workPart.ModelingViews.WorkView.Fit()

5 a9 Q& H9 H1 v6 X% |' c    End Sub

End Module
' negative trimetric view[/mw_shl_code]