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

admin

/ {% T  s- S& S7 Y0 e  ENX二次开发源码分享： 创建视图到指定方向

2 D' a0 d# c( j/ ]( f[mw_shl_code=c,true]Imports System
Imports NXOpen

. D& J* O* t5 i! |* ]Module TrimetricViewFromBelow

5 h6 ^7 w; X, Q, U, ]    Sub Main (ByVal args() As String)
% |+ }  o: C5 @- G. n" G
        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
' s. Q8 o. q+ @9 m1 @        Dim workPart As CAE.CaePart = Nothing
8 x8 P; h7 b# S- L+ F# U1 k
( J* [  R, [; {, b; F1 Y        Dim origin1 As Point3d = Nothing
& ^1 _; a: U& h" s- b        Dim vector1 As Vector3d = Nothing

        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
0 I. M; C) ^/ {2 P7 G" B* q3 j5 i
, a. {8 u' y* W' n% h9 t        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
" q% T( U: D' V9 e8 ^) ?            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
' O. S5 G3 |, d& q            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If

. K( w% h& x+ {) X% ?2 C& e# D1 m        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
7 S6 x8 a# k! z* M4 E        vector1 = New Vector3d(Xx, Xy, Xz)
   
) U/ V# V" x% L1 w( K        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

        workPart.ModelingViews.WorkView.Fit()
' F( t  W1 j5 X% x4 o  h
4 l# ^* h* q8 T9 l1 n0 O    End Sub

" g5 w6 n8 k7 M: Y- JEnd Module
' negative trimetric view[/mw_shl_code]