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

admin

[mw_shl_code=csharp,true]Imports System
6 V( Y7 f* G6 u1 E3 q8 zImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
4 m( I; l- W! ]; N'
6 S: t" ~5 @; G4 N& H& ~- d' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
% i7 l7 B- C/ p2 d6 `' Workaround: collect and open all components individually
1 V- f* K( v: x+ S8 h7 z( G. C'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
% u) l5 k# T4 \- J" E& X- P& u    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
4 N0 F+ C: L5 S& ]' m0 i$ n        For ii As Integer = 0 To allComps.Length - 1
0 N( f. M% U, b            Echo(allComps(ii).DisplayName)
        Next
( z( k: Y. T) w. m4 J) [  v
2 m8 z' Y& a, R        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

- a# E- C( R# ~. W6 @& @        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
5 ~. U0 R+ u+ e0 [5 t3 M/ R( x        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
# V, _) v. R  f2 }  w, N( x        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

( J/ L9 \6 H/ j0 X        theSession.Parts.LoadOptions.UsePartialLoading = option1

9 M; \" Q5 o6 |/ L$ t: O( I    End Sub
' z. @) c- g% h3 @+ g- D
  S' C& q- \9 U    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
& @5 Y8 Y( x, S0 [3 {# O3 o8 w. X        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

        Do
4 Q9 C- o' \* S% n6 y3 \1 M% R            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
' F; y! Y" ]) a6 F9 i" ^2 S. Q
8 [3 o$ ^8 c( T2 [4 b% k$ s            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
+ \+ x* J9 f  C, q4 J& \            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
3 l0 ], K2 S# j; K; V2 j
8 u+ {# D% j  t& ^0 H0 C& A1 P    End Function
5 c% v4 h$ A9 T. Z' i' Z
    Public Sub Main(ByVal args As String())
% D" T7 }0 l) J4 H        If dispPart IsNot Nothing Then
            DoIt()
            Return
8 }& R! C  F' O8 i6 U0 |        End If
3 z$ w* E1 R. V2 ?9 a3 c
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
% K8 G* Y' w! g  K' H# \/ @        theSession.LogFile.WriteLine(output)
! F; s" n8 N9 V% W, @/ F7 K+ A+ Q    End Sub
; v- ?5 m4 w- [! r2 m' S
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
7 u! U: Z7 r% v* ~% _        End If
7 Z5 [4 i$ k" N
        Echo("  Load notes:")
- w7 J4 W# K" ~/ ^+ {% c9 a" w
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
/ j& z; ]- m' G/ T) ^8 m0 T        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
2 G  ]- P: y; Q+ t6 `    End Function

End Module[/mw_shl_code]
; \2 p# Z+ U: f4 \% N( y5 k