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

admin

[mw_shl_code=csharp,true]Imports System
( C3 L5 x  M, ^- W2 A8 dImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
6 h: \: S" @1 A# b' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
# w* O" z' o4 I" E/ e, W- q' Workaround: collect and open all components individually
# C7 J# k" V1 D' s4 l'
" U0 |; y' |: ~6 l/ XModule NXJournal
+ ?, M& ^  b5 _; Y) R- |! C: B    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
7 y6 ]- ^3 a) `$ S. ], u    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
( j9 n: y; ^8 g        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
# M# k7 C: e' @  m            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
4 G  A$ T: I5 b, N
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
, J0 c5 `9 @$ }3 R: M% h0 S            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
6 v- K0 [4 }! h, s! w$ y  c+ P- _
        reportPartLoadStatus(partLoadStatus1)
: C$ u) A( E' |" r" c        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1
1 w$ n! ^9 [% L: h$ n0 M5 R
$ g- ~# Z3 w6 V    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

7 ~& P6 q: V, N  P        Do
# C  c( m6 M) R0 p/ T: e7 ]' Z            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
# j- p) q) h0 j5 x0 j, b  g            If (aChildTag = Tag.Null) Then Exit Do
* `9 t' @* U) Q; f: ?/ U5 \
" S4 _4 J2 e4 L% X  m! m$ p            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
. a. S! ]5 L, ^) i) D% x        Loop
6 T9 s6 g" c) O/ z" _4 k        Return theChildren.ToArray(GetType(Assemblies.Component))
2 ~3 U% M1 l* u$ B
3 `$ m6 I3 E, [# m+ k$ g+ g: q    End Function
3 g6 {- K' U& e! I( G
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
7 E, s$ Y6 \" b: S# m            DoIt()
            Return
+ o2 \( }  C8 k. f. @8 q        End If
* U9 M# t" k2 l1 A4 ^, n% V
    End Sub

    Sub Echo(ByVal output As String)
" I4 T/ U+ C# L" e        theSession.ListingWindow.Open()
- \5 B' K7 u- W2 K" e' T% I        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
* t* m3 ~1 s1 k$ S' p7 t
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
4 [5 U' y& n5 O8 _  N' k        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
( U. Y! ]  F+ H    End Function

# c9 i: U# p  S* ^5 K6 _  nEnd Module[/mw_shl_code]
( l9 w. w: K& o) k