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

admin

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

[mw_shl_code=c,true]Imports System
Imports NXOpen
0 e/ N' |' Z' z6 R( w
Module TrimetricViewFromBelow

    Sub Main (ByVal args() As String)
! X8 }$ `) X- i$ G; V
0 M# ~8 }. F+ ^! j+ \/ |( Q* o. E        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
( Y, T0 x, q# O' ]        Dim workPart As CAE.CaePart = Nothing

        Dim origin1 As Point3d = Nothing
" ~6 z5 V% M# C; X: p" U% |        Dim vector1 As Vector3d = Nothing
$ g" Y; n" a3 I; h* ^- d4 F2 l9 Y* N
9 c! e- c) j) D6 s* p        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
- D4 k% i( p/ y4 H0 Q9 T        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
) z. w$ V4 {3 [        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0
# u' v0 X& u: C/ H+ M
$ F6 s5 q; T4 E  x2 l2 P( G        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
. H6 g* Z- v' S' l( Q# U            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
& `6 j9 W# p, y! f6 }) o        End If

1 A- U1 e, Y8 B7 ^        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
9 k4 x) {/ ^5 @. N5 O& }                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
. u7 \5 c+ M- o. v' r7 o1 y   
* k* F# _5 w6 C3 p& v4 {        vector1 = New Vector3d(Xx, Xy, Xz)
   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

        workPart.ModelingViews.WorkView.Fit()
5 p5 W) A- H3 n& P: X* e
    End Sub

End Module
' negative trimetric view[/mw_shl_code]
( k5 C5 q( K( h5 s