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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
( a3 N3 k, @- S* @2 u, ~' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
1 Q7 g( \' F+ M4 I* }3 X' Workaround: collect and open all components individually
'
Module NXJournal
( J# }* z, R  E# f. h  c) H9 V( d    Dim theSession As Session = Session.GetSession()
/ f" V* N1 T  C9 ~& [    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
( l/ S. E! k% i' k, ]( a
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
3 ?. {1 Y4 J9 t  {6 e        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
7 b0 W- _' j- Y! [, `4 f: S- a        Next
' s, }+ f0 g5 x, Y- h( `
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
* a3 p' \- a$ N8 m( Z) S7 Y& w        theSession.Parts.LoadOptions.UsePartialLoading = False
: R* R" O& Q& K, e9 L
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
* J; f4 ?+ G( A0 _9 L) n        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
& I! P. n- `' B; z' H1 e        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
2 @! u( o9 ^9 t+ Z# }; t2 c2 D+ l  V            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
; \+ q/ D- F. U( d7 \
5 P3 {( s9 q/ W* i" \        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

8 L/ q6 W% t: P0 p: t2 m" ]        theSession.Parts.LoadOptions.UsePartialLoading = option1

( @1 L0 x0 Y- ]7 n6 U  H- X7 Q    End Sub
1 O4 z  D% Y6 G0 E
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
% @  A& C. R: n7 K7 p        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

* \$ s2 E( T5 H8 I% ]! b- G7 M        Do
) ~, Q3 W& I: [4 j- I. f            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)
: W/ d) p: L: j2 a% k6 M            theChildren.Add(aChild)
        Loop
1 ]8 S( j" s. q1 ~) F! R        Return theChildren.ToArray(GetType(Assemblies.Component))

" E5 n' d- W" y: b& a    End Function

    Public Sub Main(ByVal args As String())
# _' }5 M6 c: `8 D; [        If dispPart IsNot Nothing Then
            DoIt()
4 a6 ~- @" e- T% n% S- B            Return
9 _- h& H0 g! y1 Y2 w% q        End If
4 J# x: \. d% f/ D) C2 n
% m' l! w% b0 z1 ?. ]& H    End Sub
2 U; Y9 S. L7 n  ]* U
4 [6 ~1 d* g) r; J    Sub Echo(ByVal output As String)
5 X$ `$ y0 `8 l; C* Y3 t: N        theSession.ListingWindow.Open()
2 y; N: C# {8 ^5 T& z% y" P8 u        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
* u. P& M8 Q) r5 B7 n3 d    End Sub
3 d# e( @; \9 H) w5 p
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
( P* N6 C9 c3 O8 x% l0 a! y$ x        If load_status.NumberUnloadedParts = 0 Then
9 D+ _1 u$ B, P2 Z- |, w5 D  n& Y            Return
        End If
; S6 T; ?; t% T/ S5 F9 {5 f2 a9 Y
        Echo("  Load notes:")
; H6 m+ [0 v2 l) @, V; S! i
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
7 q2 s! _/ T- y5 w: T            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
: J% s  d2 n' k& A: I6 {    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
7 v, q# `& a3 r' e        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]