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

admin

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

2 A# Y8 G: P- I% [+ [[mw_shl_code=c,true]Imports System
Imports NXOpen
  w; e- c% t  k9 n' [$ c
/ P# m" J& v0 y8 b: m* @& gModule TrimetricViewFromBelow
7 v+ T- `! V% q; A6 ~9 U
    Sub Main (ByVal args() As String)
6 [% N, i4 l7 t/ s( R3 f
) Y8 ]7 E- }3 N8 z; t+ M1 S        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
; ~6 d- R! }! c6 u1 O, T# Z9 P        Dim workPart As CAE.CaePart = Nothing

( Q, |: o# t* |& ^3 Q1 N        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
$ V; x% J! o% Q
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
0 A: a; ~  n" A' [        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
% |% Q# c* `' g) x        Dim angle As Double = -44.0
. ^3 Y' z# Y2 o* _9 S" Q! r
        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
( b) |* Y% X, U/ z8 @  V* Y            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
+ G$ Z1 W0 V; I& H& A        End If

        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
) Q8 a6 l/ B5 ]4 i8 P, y# A3 f                                               View.ScaleAdjustment.Fit)
7 v: `: R  q/ p! M. H5 P2 ~
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
( c/ b1 A3 M' I' a7 j) P3 D" @, k1 `7 ~   
        vector1 = New Vector3d(Xx, Xy, Xz)
5 [) T4 _. ~) [( ^* O( P   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
+ D- ^( C, o; _
: o/ x7 L# M% U9 x% T        workPart.ModelingViews.WorkView.Fit()

3 u* R+ f$ w6 y: A: \    End Sub

End Module
' negative trimetric view[/mw_shl_code]
- \, {$ q% T& R  m& L# n  `* B