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

admin

[mw_shl_code=csharp,true]Imports System
/ g7 t( Q, R( c2 f4 S/ zImports NXOpen
+ g0 }9 x. `' h6 y2 AImports NXOpen.UF
Imports NXOpen.Utilities
'
9 P* N' T8 o0 q+ O+ R* j9 l' The OpenComponents() parameter
5 c* s8 J& g4 M6 I, s, j' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
9 s- E. L( S5 v9 \$ R5 X3 z1 \' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
1 t/ J# B" m3 [' W. ]; |: VModule NXJournal
    Dim theSession As Session = Session.GetSession()
1 c9 d) A) \* T    Dim theUFSession As UFSession = UFSession.GetUFSession()
0 x8 u8 L# A% _* B5 T    Dim dispPart As Part = theSession.Parts.Display

% c) e2 ?( z; z0 T    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
9 O" f: H6 r9 R2 W7 Z        Echo("Number of Components: " & allComps.Length.ToString)
: {, s1 u0 n  y, X6 a2 p        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

, Y) e9 Y5 K! r- N" a0 p: o1 x6 j        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
; R+ j! x0 r+ w3 V, ^
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

0 J& V7 d% I) O, r$ F        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
' c4 L1 v% q: \
4 c6 y9 e$ a1 Y4 G0 n$ o! W        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
8 p; P$ s# h8 w9 |2 ?8 k8 e
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
1 J0 S5 g5 ?' V7 u3 U+ @  f, f        Dim aChildTag As Tag = Tag.Null
% i3 v/ y1 v. D7 c3 l  F
9 `! `7 m  C+ w- B  K! J  j        Do
# Q" _* q. H3 P1 @; t! Z            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
' f. D6 K% t3 h; R# s            If (aChildTag = Tag.Null) Then Exit Do
1 b: r& i2 \! i2 h
8 ^$ [* L% ~0 e            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
2 T  Q7 e: [& i5 K            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
7 S" z; Y( b( S! e2 X3 z4 d
    End Function

& c- w5 \4 h4 A" ~5 q    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
( x. [8 ^- B& q2 e            DoIt()
            Return
& v6 |3 L/ _& P3 v% B! |- O        End If
# m: C, b6 r! C8 \# ~" v0 c6 G
# ^2 f9 b( t+ @" Q; g& U7 Q( z    End Sub

    Sub Echo(ByVal output As String)
! j! b+ O# m( f0 `( v        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

4 Y6 A# s* b2 w7 C    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
9 A, p. g; z( a1 U! d2 ~; g        End If
. T8 p9 ^6 ~0 t1 \' i: ]
8 Z! V6 }$ x; Y9 v% N5 b        Echo("  Load notes:")

/ w6 m' P& t& [        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
$ e9 X/ e4 `! g$ z            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
) a& i2 f* G9 D6 _! {        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
: g  ?5 O  [, ]: g  L7 x) t4 N$ D        Return Session.LibraryUnloadOption.Immediately
    End Function
! i' U) U2 M- j; Q# M
5 G( O$ t* G" Y6 m. nEnd Module[/mw_shl_code]