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

admin

+ z2 u7 Z1 z' H4 L1 uNX二次开发源码分享： 创建视图到指定方向

[mw_shl_code=c,true]Imports System
Imports NXOpen
/ B/ H" H1 B. w7 T2 g" o
9 @# ^' \0 B6 E4 V5 ]0 hModule TrimetricViewFromBelow
% d% Y# d  W5 }# x4 O/ b- K
0 `5 V) I7 W1 ?    Sub Main (ByVal args() As String)

! `7 [( A$ [( ~        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
$ Y; Q' N: @6 O, H5 i3 l2 F7 g3 d        Dim workPart As CAE.CaePart = Nothing

. S: }( H! C$ h% E        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing

        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
! {, ^( m. Y' l" v3 \2 o% U        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0

4 f9 T; E2 t0 Z6 h7 y' C        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
! B4 E7 l; s+ Q1 ^: B        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If
, ?1 J6 f/ n# H. u! b& C' [* Q( T! g& {
3 Y7 M' h; p) [- W) T        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
- O# `( r" t9 O8 v
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
- w; ?0 Y& T* [. W   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
* d9 Y2 C8 ~* q- s        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

        workPart.ModelingViews.WorkView.Fit()

9 a- o" y( c9 T" H6 R    End Sub

End Module
' negative trimetric view[/mw_shl_code]