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

admin

[mw_shl_code=csharp,true]Imports System
) F% y8 O  u: l1 C8 T% v3 lImports NXOpen
  Z* i0 N: k; Z& I: J2 eImports NXOpen.UF
' L+ @! C1 R2 ^0 n) P' `Imports NXOpen.Utilities
- ^& h0 E4 K* _, m" d! W1 V'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
" `7 f0 X3 y! R8 X' Workaround: collect and open all components individually
# K5 {. Y3 H  W; |6 Z0 a, t# A'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
9 g3 d$ Y* G# Z$ w    Dim dispPart As Part = theSession.Parts.Display
* U: P+ d* b; t% Z
    Sub DoIt()
1 s4 |/ A: ?( d0 r        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
; X. g% L$ S( q" p2 W' {, w+ f6 U+ R        Echo("Number of Components: " & allComps.Length.ToString)
& z  k3 t- d1 P( p- s        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next
$ P. ^2 A, v7 T/ z8 w
& S  S6 t- g# l9 t' T/ L, r3 L        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

% O$ x: {8 k  w( i6 x( b; H) ]        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
9 Y! K, V* V2 x6 H. j' q$ Y# v        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
9 O2 r3 c: Z8 H* W) X$ d/ g
        reportPartLoadStatus(partLoadStatus1)
- d( z; D9 r' c. R6 w+ s        partLoadStatus1.Dispose()
' I$ G. p1 L( _, {
  `: ^; |0 [# B" C8 B        theSession.Parts.LoadOptions.UsePartialLoading = option1
6 N0 l5 _+ G; H4 r4 o( u9 {. H
  ]4 N5 T& ]; B    End Sub
5 {3 i, y0 G0 B: x9 x, }1 J
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

( ]1 f* K( v, ?6 ^: F, F. c5 N' F/ w        Do
            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)
( d# K6 W6 B: S; ]6 f- w/ i% ~3 Y0 m            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
- B/ ?" B3 L9 M5 j4 H5 p: l
    End Function

/ s. @1 A+ ^% F/ |0 S1 N    Public Sub Main(ByVal args As String())
# q) y& Q% h; }; R7 Q; C* H6 D        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If

  g6 l+ X! @/ `$ ?: K2 |    End Sub
! \5 P  V  g& z2 R/ g
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
0 x% k1 z) ]% E+ Y# L        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
4 G% f' r& ^/ N
        Echo("  Load notes:")
* ]4 a! ?0 @0 S3 }% H' F# ?
& }0 z8 _4 W% B7 d9 F        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
! D! Y% f& D! }7 q. }/ s            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
* |" K. b4 ^; G8 z/ h  L        Next
+ U$ }3 o* Y; Y) s' }    End Sub
3 Z) `  a; s2 R6 d; U) W8 i
- i+ ?! e! f4 k# X0 h( x$ V* O5 ~    Public Function GetUnloadOption(ByVal arg As String) As Integer
/ E) K+ [  v3 `. P5 }        Return Session.LibraryUnloadOption.Immediately
    End Function
* e) c+ X+ A4 p( M
End Module[/mw_shl_code]
! A( P9 E& e3 B$ ~2 z+ }