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

admin

NX二次开发源码分享： 创建视图到指定方向
0 c' l7 T! s( ^! H( @0 u- ]6 h
[mw_shl_code=c,true]Imports System
3 X1 X$ t* i6 ]3 U9 zImports NXOpen
. }1 I9 J& {  U9 `, J+ W$ c' f# |
Module TrimetricViewFromBelow

    Sub Main (ByVal args() As String)
' ~) l# ]: A' Y- r' G( H4 a
2 x/ J  @0 K4 H2 V. f        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
4 U$ X# d7 S; @' l$ |& S+ ?/ |        Dim workPart As CAE.CaePart = Nothing
# F9 i5 g$ D8 G! f
4 }! I: m8 @( K. ?. y        Dim origin1 As Point3d = Nothing
9 Q( I- |2 H7 \. m, c& h6 l% l! j        Dim vector1 As Vector3d = Nothing
8 _& M+ d/ G# c
$ O# X3 C+ j- D  _) `4 k: Z        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
( Q! x4 s8 a0 A( c+ X        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
+ C& A, b) ?, V$ S        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0

2 _/ k# C, d& Z4 C9 G/ W6 z* x- D        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
% q8 X# [4 I' _& ]            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
4 c! U* |4 e* z$ O5 Q9 A+ F            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
9 T( ]* k6 u7 U0 W+ c, s        End If

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

, j; R- u8 F. h        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
3 J/ a4 A# p& i( w5 J, r        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

" ^+ A; B- v4 k9 X# {        workPart.ModelingViews.WorkView.Fit()
: j. N- g: n2 o- _2 ?$ c1 x
    End Sub

' G+ j1 `- |+ ]6 o+ fEnd Module
' negative trimetric view[/mw_shl_code]