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

admin

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

6 t# F8 P9 N0 n- ^7 Z- \7 s* S[mw_shl_code=c,true]Imports System
Imports NXOpen

Module TrimetricViewFromBelow
9 T, a. }! T7 j& {! O& A
    Sub Main (ByVal args() As String)
$ l+ G/ i8 F) y+ g# _
  F" G4 F6 C" K$ `        Dim theSession As Session = Session.GetSession()
* g& \' I/ y9 i- T( c        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing
" ^" D- M' {: |$ ?8 g
% {  M) i9 }. g7 u7 k. p' h        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing

7 h: t# w, ]9 s4 m        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
2 |3 d; C% Y8 J) x6 p7 ]        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0

1 a8 @) _& ~; \        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
' i, }: T' h$ R1 l            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
. A9 h$ b$ p9 Z9 E* N- ~1 J        End If

' b: t9 w5 e/ j  B) ]! M        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
- ^9 `$ ]- V8 j
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
7 W- ]* x# D7 {; V        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

6 @/ v3 Z$ A: V5 ?- z. [        workPart.ModelingViews.WorkView.Fit()

    End Sub

4 v6 H3 C5 }* hEnd Module
' negative trimetric view[/mw_shl_code]
9 y( R6 }; j1 W1 N) A