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

admin

[mw_shl_code=csharp,true]Imports System
5 `( ^" T% T( @2 xImports NXOpen
/ u8 k0 `  d( m7 d3 GImports NXOpen.UF
Imports NXOpen.Utilities
'
1 c- A0 M1 R6 Z' The OpenComponents() parameter
& n7 ~- @; C7 y  a, m' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
* T; J: G* k6 ~8 h$ G' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
1 i  a( J  M7 w& m- W- G'
/ X* x* \$ s9 ?) z4 A/ s8 QModule NXJournal
) c# j1 i* @5 Y  f/ [3 V" P' K    Dim theSession As Session = Session.GetSession()
: M; U. \& t! g& W    Dim theUFSession As UFSession = UFSession.GetUFSession()
" P/ q9 M" v! ^0 E" ?    Dim dispPart As Part = theSession.Parts.Display
  d& [7 n6 s! Q+ ^/ r
  q" x  g0 B! |2 E+ X! U: k    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
0 K3 j, l% e" i4 \) \        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
: @% f& _& a; v+ Y% c! @  o            Echo(allComps(ii).DisplayName)
2 a( d# W) M. R        Next

5 n' w2 D: m, k$ _6 I- k        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
1 _& o! `9 ?% M1 V
# ]5 [$ O9 K) ?: ^4 L: O+ Y8 z        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
2 H( w  V  b. a. O
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

9 M2 [+ i+ Y* c5 `4 l0 j/ l- Y( u4 s        theSession.Parts.LoadOptions.UsePartialLoading = option1
5 T5 Q5 o; r9 }2 p$ @7 g# q5 k
% d. k  v  B& Z1 m8 N! A    End Sub
3 z# z/ O- r8 |- E; A
8 u: _( b* W/ U1 ^4 @    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

- N6 ]) F3 Q0 O) }6 v        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
* Z* z  U8 x; o$ C            If (aChildTag = Tag.Null) Then Exit Do

' b# ~1 ]) z$ a2 j' v* [6 v            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
" R/ [9 B" Z9 a& f$ F            theChildren.Add(aChild)
# V. }$ a( ?/ [# p$ O" d# o        Loop
( h* @( c+ m$ C4 v+ D9 W* A        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

  U, Z- ~$ ?- @: ?' m8 K% b; p" @" g    Public Sub Main(ByVal args As String())
1 j, ~) Y6 ~) l% R% e. z9 Y        If dispPart IsNot Nothing Then
0 {4 ]' B& S. o# d7 |            DoIt()
$ C# j% ?4 ?; @: R% ~3 K            Return
: J# M" Q6 w% r" w        End If
5 e4 Q4 Q' X7 B2 y8 s
. e2 {) p; M" w# e1 N( ^    End Sub
' G1 H- |1 e- J. z/ o: x
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
2 t0 r7 U7 c6 U; m$ i5 n        theSession.LogFile.WriteLine(output)
. t' C. @% b( O' D    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
% K0 l2 Q! Q* m, L        If load_status.NumberUnloadedParts = 0 Then
/ }1 U7 p2 b/ _8 K0 L4 B, i            Return
9 E% _+ H7 I' W; p3 r        End If

        Echo("  Load notes:")

1 _* G8 J% A* j: c7 J8 j; x        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
; M. m9 O5 \( M        Next
# ~: s3 I" H7 c! Z6 U) y2 G7 d2 `/ }0 I    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
, M) g6 S, R2 @9 Z2 ~" L        Return Session.LibraryUnloadOption.Immediately
    End Function
8 {  f7 m! L! M) q4 L
End Module[/mw_shl_code]