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

admin

6 @  A& y. s* \! JNX二次开发源码分享： 创建视图到指定方向
) A- [. a, C7 c% _& Y: Y, |
4 m2 i7 H: ^2 w3 p[mw_shl_code=c,true]Imports System
Imports NXOpen

Module TrimetricViewFromBelow

    Sub Main (ByVal args() As String)
) A5 V( a. O; _) ~3 x, l4 B) J
' W5 S$ L9 w& @; @% J. x        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing

        Dim origin1 As Point3d = Nothing
" J1 J9 D7 O# T9 D& C' r        Dim vector1 As Vector3d = Nothing
" k9 J0 y+ O! i" G
6 O* \. [7 T7 q) X1 ~        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0
# l5 E4 t& x2 y
        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
0 o2 [& z. m' i- k            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
% Y' A$ c4 c  ^2 c9 O        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
& F" J3 P0 a" B9 V2 ?+ A            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If
/ D; F6 x7 w% P# q& {- e( \3 R6 c
9 `+ y9 R. Z# I9 H0 f( `        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
& p- x6 N# |0 _1 G+ L; w! P' S
" X7 n1 F8 E+ C        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
2 q: q9 E$ H5 c3 {# h8 Y   
        vector1 = New Vector3d(Xx, Xy, Xz)
1 @7 h& P: k" D) y   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

) {3 a3 B+ ~0 Q! q* Z9 ]+ \        workPart.ModelingViews.WorkView.Fit()

    End Sub
" K7 q) r+ @; R* e; S. R
: r; ?" k# h) `% L; |End Module
* ]0 n3 Z( N& Z3 d. R' negative trimetric view[/mw_shl_code]