NX二次开发源码分享： 加载所有的装配组件----全部加载

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
! Q) r0 O0 S( \% o0 |/ N9 JImports NXOpen.Utilities
' c, M. L. o# d# ~; l'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
+ Z  C2 C; r0 t" Z; `3 @0 y+ H' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
5 i" e$ J6 y) l" v* [# ~'
Module NXJournal
+ l' [0 H3 B- X- I# M; g0 g2 P/ g. }    Dim theSession As Session = Session.GetSession()
/ T0 @) l+ ]( e0 o. O# B5 P    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
! q' Z: z3 ?; z1 W; M        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
+ [9 t9 L" Z. v  J# F! Y) T2 t# I5 |            Echo(allComps(ii).DisplayName)
        Next
# K! B5 E$ t6 f  ^1 a& d  a
/ ^/ i9 l8 M* r. Y        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
% O/ W  B' V7 d/ C1 c( u0 E        theSession.Parts.LoadOptions.UsePartialLoading = False
) k- T' u0 J1 A* h) |5 d. ~3 @, U
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
* T. W0 l) Y- w! f- j. a5 l        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
& h3 [- U, q. q% p! L: U0 |2 Q
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

$ d7 Q+ Z! ^2 Z# |        theSession.Parts.LoadOptions.UsePartialLoading = option1
2 ~  P) ]5 f# [0 x/ q' N8 ?6 X
    End Sub

* I5 A7 Q4 ?' s+ [! @    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
4 X3 g: ~  F" f9 j
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

0 Y5 r- d  u9 C' M& H( Q            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
2 S2 ~7 R; y9 R/ q' d0 W            theChildren.Add(aChild)
; K% W1 }* f) N! R3 ~7 l        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

5 q$ b8 f* d  [- ]+ Y3 [    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
$ m. Z# S1 \9 g" d8 U% d+ f            DoIt()
            Return
9 e" b% h8 `* T3 H+ Z; B        End If

    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
( D  u" V3 O, v$ [+ c' H+ Y0 m        theSession.ListingWindow.WriteLine(output)
* J) Y8 A  k0 N' ~" U4 n7 l% I        theSession.LogFile.WriteLine(output)
& J1 d% d8 V3 x) M9 X    End Sub
: f; E0 q( }) d4 G
. s# I6 W* ^% f" a( _0 x    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
3 \! A1 N4 C" u7 j$ G2 Q$ y# z7 c  g            Return
        End If

1 a: I' r) ^3 w: R        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
" ^5 L/ A7 ]) T9 W6 b; n9 C" V' t
8 e! B( x/ H2 o    Public Function GetUnloadOption(ByVal arg As String) As Integer
; t) k2 _. l! O  L        Return Session.LibraryUnloadOption.Immediately
    End Function
/ `+ m- z" r9 M0 {3 Z8 ]  W
, V$ G6 \6 E" V0 m5 A+ ~& A# p8 A) ^End Module[/mw_shl_code]