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

admin

[mw_shl_code=csharp,true]Imports System
: c" p1 i* m; ^0 M4 hImports NXOpen
8 _, Z1 P+ H0 wImports NXOpen.UF
Imports NXOpen.Utilities
'
6 Y4 v, ?! S, e# C3 d  L' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
3 |& ]0 y* D, [1 H' Workaround: collect and open all components individually
. j( h) ^) U0 M( c/ K( u'
; v4 I1 p7 n: V" E& QModule NXJournal
    Dim theSession As Session = Session.GetSession()
$ `. E$ S9 k) F4 D. J) A    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
+ F( e3 }) a4 i. @& L; l9 T
8 k% |# I+ Y. a8 _* Q    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
& ~& k) w/ F% e0 t
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
' t2 k3 x2 S. [7 R4 i9 _5 J        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
$ R9 a6 Q8 @2 ]        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
. g& I" ^" Y* s$ k* G( B            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

9 k2 ~% ^2 g' Q& A" _4 O" I        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
' F# P, }1 B1 v
        theSession.Parts.LoadOptions.UsePartialLoading = option1
6 ?/ I7 y1 |% n: d, ?  o
    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
! e: }* G3 E  A& F
        Do
4 {2 R' O' C/ E) M  |8 h3 W            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
0 ]4 Q7 B) D% Y5 A            If (aChildTag = Tag.Null) Then Exit Do
( ~% y4 {  ?1 t. X
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
- }$ l7 k( Q% W; _            theChildren.Add(aChild)
        Loop
9 |5 R; R- C6 e! v+ _        Return theChildren.ToArray(GetType(Assemblies.Component))

. A% a0 Y, N; M2 B" B5 ^    End Function
, U6 G- _# r7 k' P
9 W& S8 S6 o* u) C. c! R' `8 [* O0 n    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
& U( d' i8 W8 s2 u) b        End If
$ P/ C$ `2 J- u! i6 b$ _/ E. T
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
( b( q3 j  ]( A    End Sub
: s, ~. V1 ?/ O4 \( Z* i
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
% P) L2 _5 z) ^: z, U, c6 x+ `" N            Return
8 l7 {* T' y3 M8 v! G% \9 b/ g& W        End If
' B& A' G0 m0 w6 Q) c
9 Z/ T* r1 v5 A3 ^$ z/ e6 W        Echo("  Load notes:")
* t' Y" A4 M* X3 u' y
( E! C9 m: ]* e' u* M: J        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
( p$ c: j2 |0 I* |5 H4 @9 k    End Sub
4 j7 o9 ?5 g  n. v) ?1 S0 R
9 l2 q! U6 y" F: P( U1 q2 }    Public Function GetUnloadOption(ByVal arg As String) As Integer
2 [+ ~4 U6 W/ e- G- m        Return Session.LibraryUnloadOption.Immediately
! s  P7 C  q7 j8 {    End Function
9 p6 w+ z$ `0 B! H
0 u6 H: f0 K% M& }End Module[/mw_shl_code]