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

admin

: o/ N  O+ ^+ cNX二次开发源码分享： 创建视图到指定方向
8 j  D  r! {2 s3 i( [$ s# t4 b1 J9 o
6 h/ v, w) x1 z. ~. u[mw_shl_code=c,true]Imports System
Imports NXOpen
0 l3 l- p! j* ~8 z$ D& H: u
8 R1 j9 f' Y1 e  J6 TModule TrimetricViewFromBelow
/ l4 O! p( S( E+ L* M
    Sub Main (ByVal args() As String)

* ~  v- i1 }3 Q1 J) q1 t# n. b        Dim theSession As Session = Session.GetSession()
) H) N7 E- i2 `  ?        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing
" B7 @$ g$ V9 A
        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
2 n5 ~2 T3 \/ h& C7 a9 n$ l3 f7 {
; D2 n+ Y; w3 X0 T* L; y6 |, {2 @" q        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
( K* [, s4 k) b        Dim Xz As Double = 0.0
- ]; e* H0 u/ ~        Dim angle As Double = -44.0
; \# P2 e% P+ r$ `! Z5 n3 U1 W- g
        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
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
4 {+ s: a! a( C0 ]0 F9 p( m- x6 C        End If
. T9 W3 c4 i& c# @
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
- I9 d. F0 C3 L& F8 p9 I$ |0 O( e                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
# I7 Y5 D( \% p# u        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
' j; d$ l& X$ l- X5 |6 b
( d+ `" w% V$ R4 m7 L5 E        workPart.ModelingViews.WorkView.Fit()
6 i5 K4 U: v0 U3 V
' M. b  p- _+ n    End Sub

; f1 f4 |& d; Y5 YEnd Module
' negative trimetric view[/mw_shl_code]