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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
& u( B+ Q% @' V+ dImports NXOpen.Utilities
1 [5 N2 |& y8 J; E'
' The OpenComponents() parameter
: [! X0 v. }' H/ L6 r1 @5 X' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
0 q: s) Q3 s8 d' A: W9 ]: m" g, m& H' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
2 c* s/ F3 Q7 n  h* f* t5 I'
. z2 Y" I* {4 O8 H; H* JModule NXJournal
  f$ g; _( V# R2 Q. @$ r6 S    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
# p( h0 P4 H8 P# j, I  ~1 O    Dim dispPart As Part = theSession.Parts.Display
+ s  {4 I: w! @3 ?
    Sub DoIt()
# Q& T4 y$ J& T1 B  A$ s" w8 d) B8 A/ S- i        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
5 g) u6 J2 l/ T  ~2 s3 a' ?        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next
0 C. Y  V; i1 b- R8 G/ u% C
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
6 Z6 V1 c) r' r: G        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
/ ]* {# p$ Z4 X, R        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
( E5 }! J& k5 ?; w$ l) v
/ n  g& B2 |1 G- M. m. B5 b4 a) m        reportPartLoadStatus(partLoadStatus1)
  |7 E6 R/ }( r- n. X. L+ c" v  ^        partLoadStatus1.Dispose()

& e  E8 |& O3 H7 U7 k7 d! [% v        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
; L- p5 @- ?6 j4 H2 m4 Q) W        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
) P# L! W, M7 ?* S' S" W* v            If (aChildTag = Tag.Null) Then Exit Do
5 U9 H- {$ [; C! D3 V) p
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
' ?' q2 k; i$ X) o' D. {( N            theChildren.Add(aChild)
; o/ \8 H1 h+ \* o: I        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
4 ?$ o; d4 s' c/ r' d  g; ^$ J; |5 \# k0 J
    End Function
- b/ Y& u) ?1 V  a% q
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
0 j7 s& U) N$ s; {  G0 B            DoIt()
' L: ~/ \4 x7 D$ c3 {- A: G6 u            Return
. a% w$ }3 P4 J& U, G# ~        End If
5 `  P; t/ p  B; ^# H& F
    End Sub

/ O* ^$ H2 Z, V- r$ a: c# ]/ R    Sub Echo(ByVal output As String)
. Q( ?8 ]- B" B' I* w. \        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
( {! e, O% @( {5 ~+ q. B/ u) o        theSession.LogFile.WriteLine(output)
    End Sub

, g! X5 b  n& s# e3 L! l( H    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
0 @* c. i9 b( u$ u6 C* E% H- R: }) \        If load_status.NumberUnloadedParts = 0 Then
            Return
% f* {) [) C' W7 s+ x: D; {        End If
+ n2 Q" C" V! E, [+ }  o
" Z4 `7 J* s( q4 N        Echo("  Load notes:")

+ ~# n8 l# E( |6 r, n, ]6 r7 @        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
5 n- Y* J( Q" T$ [2 m9 l' ^            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

& [9 a3 d/ G3 Z7 i, XEnd Module[/mw_shl_code]
" ^& {; S: L, }. H6 x. N+ p7 G