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

admin

$ ], m1 {7 \) r1 s9 jNX二次开发源码分享： 创建视图到指定方向

: W' B- M' y2 W, g- s. f, R4 F[mw_shl_code=c,true]Imports System
Imports NXOpen

$ u1 f0 e) Z6 \1 M+ |" K0 GModule TrimetricViewFromBelow
$ e* x  t% v4 {
  e$ v; G4 D( {: a0 q2 W    Sub Main (ByVal args() As String)

        Dim theSession As Session = Session.GetSession()
2 m# p; K# I% \7 e3 E. _. A        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing
0 X  p$ m2 D; z' L
; h' ^9 i/ e7 P" p- R( p& G( Q+ W        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing
0 q+ [* g$ P& ~9 R0 V" W% H0 }* s
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
) m- i7 `; Y0 t        Dim Xz As Double = 0.0
2 Z' p. o- \+ ?2 s. `        Dim angle As Double = -44.0
. T' H# o) N2 p% j0 e, B* f* `6 Q* T
! a  P6 x1 q6 C$ C! b7 k: i' T        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)
        End If
7 F- R0 D" H1 X: R6 x8 D7 B
2 g" Z  Z3 V* d( `% k4 z        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
                                               View.ScaleAdjustment.Fit)
" e8 ]% `# t+ b3 R6 x! o  s
        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
% f- e" u+ O5 F2 F/ Y6 F5 U: D5 L        vector1 = New Vector3d(Xx, Xy, Xz)
" A; L5 h4 j3 S0 {   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

* d$ h/ w6 Q8 |4 y; G0 s( j0 _        workPart.ModelingViews.WorkView.Fit()

    End Sub
/ u' m) ~  ~8 C, K
  E# ~7 Q7 l  l4 T! F0 ^End Module
) [* _4 ~) p5 Y, P9 M' negative trimetric view[/mw_shl_code]
) ?# q2 @" j: b! \. |