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

admin

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

' l( B0 o$ B( q, T" _: c8 H) k" O[mw_shl_code=c,true]Imports System
Imports NXOpen

% ~/ }, B& Z/ k: v% DModule TrimetricViewFromBelow
7 m$ m4 n! \( }
    Sub Main (ByVal args() As String)
/ m- K; P* Z/ G& |) H# [  j5 b
        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing
% `6 y4 Z. ], b4 `
        Dim origin1 As Point3d = Nothing
: M4 {; [, v& Q1 n        Dim vector1 As Vector3d = Nothing
9 a8 C, x3 _* q* |
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
+ t: s/ s! C8 W) ~        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
8 J- N4 l" ?. O9 u' m3 D0 M( Q        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0
7 E7 c8 L, t6 q* U( V% A1 S
5 Q# Q% i* o% N" F        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
# q8 V" g* b' t            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If
! u8 }' L' o. L/ [
$ u4 Q$ ]" y$ a        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
9 u# M" ?0 ^0 @! m6 H
; y2 S. S- u  b2 I9 c        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
: V. E+ g. {7 W4 r0 M   
* z2 U  H6 ?; T& V; ^9 X7 u* Q8 D0 D        vector1 = New Vector3d(Xx, Xy, Xz)
6 g8 `% l8 u+ ^% }2 T' h$ J4 \* ^   
0 C: r- H' s/ N8 G        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

! q. o- p5 T: b$ {* D. E        workPart.ModelingViews.WorkView.Fit()

    End Sub

End Module
8 {- J7 r5 V) g3 @8 \5 S8 {' negative trimetric view[/mw_shl_code]