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

admin

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

[mw_shl_code=c,true]Imports System
Imports NXOpen
; `  V$ A  L% s
Module TrimetricViewFromBelow

    Sub Main (ByVal args() As String)
2 I1 P. c/ \1 r( z
# Y- E& z6 i, w/ t* K        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing

, @, O% K, m. [( t        Dim origin1 As Point3d = Nothing
2 f) c& N8 W/ q9 _4 ~  ?! R0 J        Dim vector1 As Vector3d = Nothing
" K% p. f) u, \& ]: M5 g
        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
* C8 y5 ]1 I# i8 }7 o& e; M4 @        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0

# g# {+ ?' P9 c# I# z  I        If (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.FemPart)) Then
# E5 X; w* n/ V7 h1 k+ h* }            workPart = CType(theSession.Parts.BaseWork, CAE.SimPart)
. x, ]1 Z9 F$ i9 v; n' ]        ElseIf (Not (basePrt Is Nothing) And Not (TypeOf basePrt Is CAE.SimPart)) Then
            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
        End If

        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
: M0 U" `( I- q$ a                                               View.ScaleAdjustment.Fit)

  Y  \3 `& O5 w1 a" F  j/ l        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
        vector1 = New Vector3d(Xx, Xy, Xz)
   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

        workPart.ModelingViews.WorkView.Fit()

    End Sub
9 f, Q: N, d( s( K0 w0 \
End Module
+ a) R- _, w; x2 \5 Q7 V' negative trimetric view[/mw_shl_code]
$ S1 z! t! J4 Q) B- m; ~