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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
- H1 a7 H- b  I! V" j! }7 MImports NXOpen.Utilities
'
( k, j! u3 e' t' The OpenComponents() parameter
; j! |( t0 {- u* L: R) ~5 e' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
, ]1 m, U* U/ l% N'
) p6 l; ?! s7 H' v. h) N( ~$ ]Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
2 P1 @1 l- V$ G" J5 I8 U
( g  I8 B- t4 T/ Y  h- F6 L& I0 }    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

0 Z- ?! K6 D8 q( x, D, W+ |5 I$ R1 N        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
1 T1 c, S' C) k% Q: {        theSession.Parts.LoadOptions.UsePartialLoading = False
: c2 O9 Y' l2 x9 |+ L2 k
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
% L# w6 R2 z/ q. f            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
0 Z0 H1 w! z9 z$ W+ q/ O
. O5 Z+ G5 ~! w* j        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
$ V0 x; e0 V, c4 p# Z. r& T
        theSession.Parts.LoadOptions.UsePartialLoading = option1

: y% K4 l" t! K( z" `% m    End Sub

$ t" b% c( g* \* s9 S    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

  F7 u5 M, M5 {- I5 ?* ]        Do
9 b+ p5 S; h, T% s8 Z. s            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
0 z7 g+ ?* z* v& K# v/ f% r
. v$ ?5 M* S/ D0 y            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
' a' t. {* v/ u" D        Return theChildren.ToArray(GetType(Assemblies.Component))
8 n( X) u) W3 m
' f7 ]0 d4 |1 @8 @) o) `    End Function
* A" N3 A! n0 Q
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
2 S0 ^0 V+ v: ~( Z) r* P8 Z            Return
        End If

    End Sub
$ }3 l+ e9 D! N8 j$ r9 _/ g( n) M" C
# j/ p6 ]3 C. R/ ~1 l7 I. A5 c" t8 ]2 v    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
) d' }0 c5 G& a6 S! l/ y        theSession.LogFile.WriteLine(output)
' v; b* L, k' B$ |1 }: P3 J! P, ?    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
& V5 P! j, L, Y. k0 H        End If
, P( R3 I3 P) b; j! g) q
5 ]! h! ^* z6 R; t/ g1 @0 O        Echo("  Load notes:")
8 R" @: G2 Z" P  q
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
# B+ o1 M8 ]8 U# u; ]0 b9 `    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
$ K. ~  i2 o& ~7 t/ T        Return Session.LibraryUnloadOption.Immediately
& q. D, {6 B' C" H    End Function

End Module[/mw_shl_code]
0 Q- {. y6 l/ N7 ?% Y