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

admin

[mw_shl_code=csharp,true]Imports System
/ @$ N" o  y1 R9 z6 mImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
4 R, G' H+ Y& u2 k- Y'
9 O. a* F$ p; `; H5 _$ d6 `6 [' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
% G# |9 z2 K1 \2 x' only opens unloaded components fully (see also PR-8406345)
6 A& P( e; U+ E' Workaround: collect and open all components individually
'
5 A& N( E+ S5 l9 T7 I: ZModule NXJournal
    Dim theSession As Session = Session.GetSession()
. n& m7 E* q  a# A( v; T    Dim theUFSession As UFSession = UFSession.GetUFSession()
# E1 t0 ~$ p6 Q$ i: [7 c    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
2 D3 a! V3 W' E* Z. Z0 [        Echo("Number of Components: " & allComps.Length.ToString)
1 w4 D! N( Y& |4 L+ W$ }& c: l        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next
1 r% _# X( J; f: q* s
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
8 t; \  U) \2 V# ?
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
0 k: X! _1 c7 D- u+ {+ N        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
- L3 Z  }4 W6 j6 ?5 p6 [& ~9 r8 Q        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
5 {, \& S$ q, B% m            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

. Z" A# s5 N& f9 d& R) E        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
: ~& s; R1 G* o; e
5 F% a6 f. }1 T* Y/ }        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
4 [9 p7 a/ G- l; Y        Dim aChildTag As Tag = Tag.Null
9 T* C6 C& ~' [2 B2 I
/ Y' j, O* W" ^) v$ h2 O9 s3 Q. Z        Do
0 z8 \* @# N# }3 o3 o1 Z& J& q! r            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
8 d' I8 }" F; g& s7 m' K  ]            If (aChildTag = Tag.Null) Then Exit Do
: f) ?% c+ ?: t/ Q
0 O* G5 B' Y  |6 H: _- a; O            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
! Y. V2 `5 ~/ m& i+ c2 V$ }1 I            theChildren.Add(aChild)
4 f& @" \( Q/ d) M/ e0 c2 C        Loop
. u' b+ t# o/ A( F        Return theChildren.ToArray(GetType(Assemblies.Component))

: r# R" \" V8 l0 R" d4 Q& _# p# p    End Function
0 L" J! G+ [, ~/ H$ I- x
2 R$ b9 t3 G' A    Public Sub Main(ByVal args As String())
1 f5 ~! f$ [1 {9 C" S        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
- e, H: Z9 V3 `
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
: t# y% ], B; \        theSession.ListingWindow.WriteLine(output)
8 T5 n8 e# c8 g  v1 ?9 p        theSession.LogFile.WriteLine(output)
1 k. E* H" P# g# B( M6 A( R' Z    End Sub
& b2 ?9 d7 g6 D* [2 k
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
8 Z+ }' B: a9 |        If load_status.NumberUnloadedParts = 0 Then
            Return
4 @8 a2 b9 b* y8 L! F3 M" L  Y, c        End If

        Echo("  Load notes:")
# N' p- h* O. g
8 K/ l* ?% Y( J, Q" |7 P( v  X        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
8 O/ X3 h% i  q) i        Next
' X; Y9 C; u3 f+ p    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
1 w  u0 l. S" n/ H; W    End Function

: Q# A  w. m2 Y/ gEnd Module[/mw_shl_code]
& g+ `" ]! b( k/ E! @+ [