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

admin

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

[mw_shl_code=c,true]Imports System
2 s9 P0 t! M; x$ A, L/ dImports NXOpen
% Z4 M+ `. ]1 s
Module TrimetricViewFromBelow
3 O3 Z6 G1 m/ A- o0 Y
3 i, U3 Y/ W! H0 v9 P    Sub Main (ByVal args() As String)
3 H8 X: v9 U( w3 l' I" g
        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
( J" a6 S1 G) ^3 C& W6 M4 B        Dim workPart As CAE.CaePart = Nothing
6 Q0 ~  p7 ?. I
2 A; m4 s- c: P7 R$ y6 s        Dim origin1 As Point3d = Nothing
  L. U" U0 ?! F: w. Z4 P        Dim vector1 As Vector3d = Nothing

/ x3 P, J, Y1 ]  v2 }- T& X7 ^! x        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0

4 a) k0 R6 z+ }# f) C. ~        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
( y6 u- o0 Y9 b+ r+ r* s            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If
, p6 x0 A- }9 q! y
1 ?4 k1 n; P( W, S0 {! A        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
+ f( K$ Y+ h0 q/ F4 k                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
2 i( [- F% C0 w  @8 G- o+ u$ ]   
        vector1 = New Vector3d(Xx, Xy, Xz)
+ W- M' m- b/ B" g  {   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)
8 h) o8 P& ^8 U0 u6 J
& x! n5 m; ?) H$ ~- U        workPart.ModelingViews.WorkView.Fit()
& t9 L- O% r; ?' p
    End Sub
7 S" i. `7 l5 W
: ^, y! V* E! `End Module
7 {) N- c. x* Z' ]' negative trimetric view[/mw_shl_code]