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

admin

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

3 b- x9 y5 B5 d# ^& z2 }[mw_shl_code=c,true]Imports System
. i. g2 p1 v3 j9 y, Y1 p' cImports NXOpen
8 U3 H1 `3 h/ ~, ^- }+ c
+ O$ q; h) Z+ kModule TrimetricViewFromBelow
+ V" N1 A' o' h9 ^( S
    Sub Main (ByVal args() As String)

        Dim theSession As Session = Session.GetSession()
) B' M$ @  y, @' T7 f        Dim basePrt As BasePart = theSession.Parts.BaseWork
8 k, m. P8 h/ n3 R0 E" c        Dim workPart As CAE.CaePart = Nothing

% q1 t- C) F# a- s        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
1 q* B1 `3 D2 n( }
% A* p  F6 q& p* V- ]        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
0 N3 ?" o' W5 |( @2 K8 U: X% Z        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
# a6 X- a, \/ d5 Z+ L9 A        Dim angle As Double = -44.0

- p# ]8 f4 k( N0 A; h( @, o; f        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
4 Z( J- y$ J( N            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)
' g7 S' ]# s7 ~7 s        End If
9 S& I9 \# k% g: s7 _: g" i
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
  l3 ?+ i- A/ R0 h  _+ l                                               View.ScaleAdjustment.Fit)
) J2 _6 F4 ]: s* a  w
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
/ `: z( t; d4 ?* U; \4 U. j* f' K   
# Q+ u  X. M8 O        vector1 = New Vector3d(Xx, Xy, Xz)
   
, ~9 I2 M7 m$ X' n  M        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
3 ^$ w2 E$ }: }/ q7 C/ U9 i
        workPart.ModelingViews.WorkView.Fit()

- M' c# \. v  k  B9 F! g1 p- @- B8 N    End Sub
% C* [' r8 u# ~
End Module
0 n4 {# @9 S3 g& ]0 S' negative trimetric view[/mw_shl_code]