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

admin

[mw_shl_code=csharp,true]Imports System
. T% i* U; V& s8 jImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
* G: N7 V4 f9 E; q/ G'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
" T/ Q, e0 A1 O. \9 ^' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
+ V1 y) g* a4 Z: U5 G& l'
Module NXJournal
. z2 W$ K, x0 n, y. U+ O( k' {    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
1 K# N+ d# R; J        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
7 U, ~- W& Q7 ?( D% B        Echo("Number of Components: " & allComps.Length.ToString)
& D' p$ E3 O7 W6 j        For ii As Integer = 0 To allComps.Length - 1
# V4 F" Y/ s7 o6 }9 [- q; \5 G  O8 S            Echo(allComps(ii).DisplayName)
        Next

# ~- U& l/ ?6 w* I0 h0 s4 X' a        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
3 g3 [6 i# m" P5 x9 q+ `        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

( d& H& W( E8 z2 b  d3 t        reportPartLoadStatus(partLoadStatus1)
- b5 \0 _- [1 ?$ p        partLoadStatus1.Dispose()

( |8 ]% F6 }6 u8 S( M7 T" o, t        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

% v# b( |6 V$ l7 {    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
1 i$ q6 p9 ^2 J* P9 }8 w$ I3 ?' B        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
0 K: b( Z& A/ B6 P        Dim aChildTag As Tag = Tag.Null

4 m! b( h- T7 I5 V% |9 S        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
* j" H" [, x# n, ?) q            If (aChildTag = Tag.Null) Then Exit Do
- s& P( d7 ^" I
. z  s4 O0 `. y- b1 o) U  [            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
+ f$ b8 J5 X3 ?1 w$ V( @3 L            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
+ d: [* T  s0 c. r
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
' T  C/ L, W) H$ g            DoIt()
            Return
        End If

  z# q' J7 T3 ^% E6 Z7 g* [) v  k    End Sub
. _  r( H$ V( k) W& |! y6 j' X8 S; M; M4 ]
    Sub Echo(ByVal output As String)
# l1 L# [2 O# c0 c6 H9 v- E# Z        theSession.ListingWindow.Open()
! e8 m# ^9 v9 X  q: v) N        theSession.ListingWindow.WriteLine(output)
* i1 e* p. u2 G, m% _% J        theSession.LogFile.WriteLine(output)
  y+ C  I, f; l9 E4 m/ C3 h4 f: o    End Sub

9 Z7 r4 Y6 o' e0 o    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
' z8 f+ i1 T( V* m1 W' w- I9 V            Return
7 U, T: s' ?6 t( }0 r        End If
4 v+ Y! L# p3 O* O, B* P+ r2 G
1 k1 V: Q$ `" Q, C' N" U, n  ~        Echo("  Load notes:")
2 y; w4 B+ S6 d5 _7 Y5 b
0 D9 w+ `3 O) }( _        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
- a1 a3 s* O; R) M; I; `            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
. J0 c: [9 d) }) A: H8 S    End Sub
* _: P# h* l7 t2 n  k6 v& M3 S
# B) B2 t% ]$ ]7 n/ {- T! C    Public Function GetUnloadOption(ByVal arg As String) As Integer
! r' x/ A9 c; o7 q$ U6 r1 ]* n( ?        Return Session.LibraryUnloadOption.Immediately
    End Function
) g. _0 X9 K2 M5 r8 L; V
4 V: A. T6 H2 KEnd Module[/mw_shl_code]