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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
( b& Z5 y4 G) T  sImports NXOpen.UF
* L4 ~; k" a' F4 z" a, dImports NXOpen.Utilities
. g% u2 e! W5 x+ ]+ {'
- u5 X8 i( O7 ~9 c, f& e3 T' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
4 t% `3 p( i# ~* {+ i'
4 ^$ ~0 D% Y- O; PModule NXJournal
( S& H1 y! b, A5 ?. l    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
4 A4 C# W4 f% r/ I1 {    Dim dispPart As Part = theSession.Parts.Display
- y& r' k( c* m8 y7 O
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next
! ]: H; ^, b. t/ Z+ }+ T1 O8 D$ T
7 I7 _2 _+ O: J( A3 r        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
1 T6 _) d8 }6 i6 ~9 i4 `8 l! L        theSession.Parts.LoadOptions.UsePartialLoading = False
5 W/ U7 ^" Y: r( w  A$ }
' i2 N0 l5 H# g7 X' g4 [! r8 t: ]        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
1 {# s9 V5 g1 ?  l4 i/ y6 t! p        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
3 A5 s; w' F  t$ L2 S' X            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
5 ?5 ?* m1 V( p* D8 S& N
        theSession.Parts.LoadOptions.UsePartialLoading = option1
4 u1 ]2 _3 X& d0 G* t
    End Sub
" F4 H7 X% {/ a0 f8 v+ l
" \9 r& @6 A/ t, Y9 E) `* y    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
  U0 h8 T& v+ c' b( m        Dim aChildTag As Tag = Tag.Null
* v6 O" w% |- {! R; V
        Do
/ B. f' d* L9 T" |: {& W/ O, C4 Y            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
9 y6 C& A( d, @( }8 k
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
: [. ^5 ]: W. F2 L
    End Function
( c% D  {% Q$ @+ p1 v1 \7 Z
    Public Sub Main(ByVal args As String())
# a' s/ r, W0 D# j        If dispPart IsNot Nothing Then
            DoIt()
            Return
+ j9 U& ^3 |( n- ?4 j; c        End If

# m5 P+ x, n0 }' j7 r, \+ c; `    End Sub

- ?; P  O3 j5 ~- J. e# M    Sub Echo(ByVal output As String)
9 a* Z+ W: ^. Y        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
/ V7 U+ k+ K' p3 A    End Sub
2 n" _) |2 x% B; b( S1 [
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
2 D" g/ U: g1 _; d- l        If load_status.NumberUnloadedParts = 0 Then
0 O2 w3 y  B0 d& b4 J            Return
5 N7 }% b+ a- s5 @. |. ^$ G/ ^        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
8 E5 X9 N2 Y6 v5 z8 F4 W            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
$ M- |- n$ Q3 ~. g4 ~. N+ `
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
2 w* {, K' w: V+ T  I6 O5 A6 f3 y! [
! z6 f' _* C6 W9 l" jEnd Module[/mw_shl_code]