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

admin

[mw_shl_code=csharp,true]Imports System
$ g% n% t4 S2 H( x. F# KImports NXOpen
Imports NXOpen.UF
6 j0 S* s+ D: T. SImports NXOpen.Utilities
'
2 n5 A0 h, s) v6 |/ y' The OpenComponents() parameter
3 C3 A, u& ]9 q. h$ D' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
0 n& h0 E/ w/ N'
Module NXJournal
9 T' k+ ~: B9 ]( m    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
+ `" P. W- y$ D    Dim dispPart As Part = theSession.Parts.Display
2 B1 X: g3 r8 K0 L6 J4 L$ l
. W; E1 B5 k  e& d7 @$ A) J    Sub DoIt()
2 g5 K7 d9 @" w5 e! B. \/ w        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
( e# c$ I3 Y# T  Y6 C            Echo(allComps(ii).DisplayName)
        Next
5 L& N9 }  x3 N
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
8 `5 ~7 K# t' E  N# X
2 W8 U/ r3 [. I1 f% D( k        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
7 p& R9 E: N5 V9 u  \& q  ]        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
( M! G; t2 X6 U4 J        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
% Y) |% o5 [  }( ~
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
7 v9 o' u+ o# g  K% F
8 H. @. J$ ?6 P3 _0 ?        theSession.Parts.LoadOptions.UsePartialLoading = option1

, R) F; X/ u' X, m/ {2 x1 R    End Sub

1 W. f3 Z0 q- n6 u: @# D    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
7 }1 ^' P) [; ~        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
0 z& W" [2 x8 w: b# X        Dim aChildTag As Tag = Tag.Null
8 x' {" _; C# d7 P
        Do
7 h) C: n- z- o, R5 m' @6 Q            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
( |; P/ [+ j/ J: i) [; P: D            theChildren.Add(aChild)
        Loop
8 w0 m3 K$ y& {8 }        Return theChildren.ToArray(GetType(Assemblies.Component))

) ^8 W7 d* G! f3 ?    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
) h, Z  z3 b* A( r8 T# K% n& P        End If
( U8 y7 o0 q! a- r! p- n6 O
" [( m! B8 T5 |% x4 q    End Sub

! L) _' B6 c8 H3 n) f$ U1 ?( M  n    Sub Echo(ByVal output As String)
+ h* S+ x6 U( a) r, n/ K5 k" i        theSession.ListingWindow.Open()
- r+ v! x! C- c) }/ Q& I        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
5 F1 ?- I/ d& N" y    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
" ?/ |5 D. b, {# V: `        End If

        Echo("  Load notes:")
  ?; G& z. k. h/ P' F9 Z5 r1 [
0 r9 A7 p7 z2 `9 O0 B        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
4 v) O- t. T/ n    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
  B7 d8 q: i4 }  t( e    End Function

End Module[/mw_shl_code]