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

admin

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

" m$ c# X3 d) \: o[mw_shl_code=c,true]Imports System
Imports NXOpen

Module TrimetricViewFromBelow

6 W" @: f% j. S. ?$ t    Sub Main (ByVal args() As String)

+ V) }* m3 D( W7 u        Dim theSession As Session = Session.GetSession()
* K+ l# v  ~- N: N, s) g        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing

# i: Z) q& m* z* [  X- y+ ]        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
; g5 E% \3 Z2 {2 D' t
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
4 E3 ~4 X8 K# E& Y        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)
) T, T6 a6 ?  g& U" `        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If

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

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
, D* X- T/ d6 Z* s2 x) d   
9 x0 k/ q4 h; i$ |- g' f: C        vector1 = New Vector3d(Xx, Xy, Xz)
# t: U8 Y# o8 Y$ m" r2 T   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

& J5 i9 r7 R, x3 V- }, V8 S" P1 ?; B        workPart.ModelingViews.WorkView.Fit()

    End Sub

% J; j8 F; M' `: M: f7 O2 X3 A6 EEnd Module
9 r2 y6 F+ b1 `" e7 a5 p' negative trimetric view[/mw_shl_code]