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

admin

- C6 j* q$ X1 T: S- HNX二次开发源码分享： 创建视图到指定方向

- k* R2 [  K( k5 c[mw_shl_code=c,true]Imports System
Imports NXOpen
+ e3 j$ B, A' W8 G' y
  N' P7 H, j2 [, }. J- [% [) s7 kModule TrimetricViewFromBelow
  \- N) O/ j0 \* }, e
6 J: O! G0 R- M# m4 z+ G3 c  E    Sub Main (ByVal args() As String)
& k- ?/ Q, s; k8 i. {6 k8 ^8 F
2 e3 |( X9 Y% R- Y' ^; G6 E        Dim theSession As Session = Session.GetSession()
        Dim basePrt As BasePart = theSession.Parts.BaseWork
        Dim workPart As CAE.CaePart = Nothing
# g3 y3 U' |2 K  a
& C2 b* p' {! Q& k' Y9 a9 d        Dim origin1 As Point3d = Nothing
        Dim vector1 As Vector3d = Nothing

        Dim Xx As Double = 0.63121905864762995  ' 50.86 deg
        Dim Xy As Double = 0.77560460287442845  ' 39.14 deg
- R9 c0 t9 n  o" g        Dim Xz As Double = 0.0
        Dim angle As Double = -44.0

        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
/ l7 e6 Q6 D& o5 n; N            workPart = CType(theSession.Parts.BaseWork, CAE.FemPart)
' Q! @7 K8 \% g        End If
8 x$ l5 J/ K1 y6 j0 G" {
        workPart.ModelingViews.WorkView.Orient(View.Canned.Trimetric, _
) @# B, K& O1 K: J/ m+ Z                                               View.ScaleAdjustment.Fit)

        origin1 = workPart.ModelingViews.WorkView.AbsoluteOrigin
   
4 ~7 N' N4 O/ ?- S5 U9 ?        vector1 = New Vector3d(Xx, Xy, Xz)
   
        workPart.ModelingViews.WorkView.Rotate(origin1, vector1, angle)

: z4 \, k9 F# d/ _$ Y6 j' o        workPart.ModelingViews.WorkView.Fit()
0 U7 C  Q! X, Z9 K; ?
    End Sub
8 ?5 X6 Y, w7 d* A
End Module
' negative trimetric view[/mw_shl_code]