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

admin

  w1 A: B& a" b: x2 mNX二次开发源码分享： 创建视图到指定方向
+ o1 ?; \1 h% u5 c7 g' X
# h# a; y$ V! M1 y8 g[mw_shl_code=c,true]Imports System
Imports NXOpen

Module TrimetricViewFromBelow
! X1 G* s0 m  P0 L- E* W
* d( M( k/ _5 b3 M% r* s    Sub Main (ByVal args() As String)
$ t) F6 b4 k% N7 j  q
        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
% X  H1 e! }' L% @+ ]) N        Dim workPart As CAE.CaePart = Nothing

        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing

        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
: Q& W5 }# ?- o5 r( M/ n        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0
* l- Z6 r6 l0 |% j8 Q
        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
4 \5 t+ r+ b3 b" |, A$ L( Y            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
6 T8 I2 B3 E( a" ~            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
8 o5 j" ~+ r0 N: U5 L! X        End If

        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
6 p9 X: [/ A# p6 j' z9 G                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
" _" _- v6 d! V& {        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
0 Q( D# R4 R, A  Q
) X& t9 x- Z+ [* U8 k! q        workPart.ModelingViews.WorkView.Fit()

    End Sub
9 v3 `$ F7 ]  e: V# G& V* D
End Module
8 K/ g0 s, M  a, `8 k& K! @0 R' negative trimetric view[/mw_shl_code]