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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
2 i5 K1 G+ S. L8 I, c3 |Imports NXOpen.Utilities
# A( Y8 d. }8 m( b% r: L'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
  A2 Z. C8 G8 f$ D& p& E' Workaround: collect and open all components individually
/ G2 A$ ^7 x  }  B$ D9 H'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
9 S: f4 n# @1 F( n' i7 k
5 ^  _, B; f: R( L) x$ v    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
6 B4 y8 u3 C$ b, ]+ f& [            Echo(allComps(ii).DisplayName)
( Q  X7 U5 j3 i, s- K2 e        Next
8 |( P6 d1 k. n: l4 e7 G7 i! i
  m$ U. K2 i& g) [        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
5 B7 S" G# h0 k% J# K+ C3 @
. a: [6 \- K3 T+ {+ X( E        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
4 t6 u2 m- d1 i. ~            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
4 Y3 h9 q( l7 V* B/ {  m& e
) _0 K! ^  D; R7 G        reportPartLoadStatus(partLoadStatus1)
5 w) S0 @$ f/ J$ i( S4 I! n        partLoadStatus1.Dispose()

: `! v& [5 ]9 I; H- Z- G9 B        theSession.Parts.LoadOptions.UsePartialLoading = option1
% s; v, ?+ Y) \) ~5 W0 v/ D
3 a  b# d6 y( [8 f    End Sub
( [5 D7 v$ ?6 a- o* |
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

9 w/ o0 `0 M  T/ [3 T        Do
! g4 d/ \4 \) p& H            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
0 Z# x9 ^, }# Q4 w* X! v. F3 p7 J            If (aChildTag = Tag.Null) Then Exit Do
! M" r1 l+ I" p, S; Y
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
9 a! _6 m9 j) l3 e# \5 v0 E( g" a7 c            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
5 C( {& f0 M( J1 Z4 e, @
/ a8 W2 T) u1 M1 F5 x    End Function
/ A% E4 U' J- x" ~4 l
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
; c  V3 U- I3 l! `* M            DoIt()
            Return
% }! A- F; g3 R- h% t7 G        End If
1 M* l$ W0 }& Z& C& @
    End Sub

% B' k9 S9 J" R+ A! \2 e& M    Sub Echo(ByVal output As String)
- q2 y  `+ Q: [8 j, a: x- U, R        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
: M& i. f' C! @+ K- B: y  c    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
0 X7 O0 y* S& v# n* O        If load_status.NumberUnloadedParts = 0 Then
            Return
+ J: C# z0 P0 T. x: }2 R        End If

        Echo("  Load notes:")
$ F  P  U+ A, c, t" @
/ o8 m/ ]% e- [5 e        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
1 \2 s4 E* ^7 [( o6 V" J# z            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
. Z* G5 B4 [1 N& K' |6 {    End Sub

! n+ t8 R( W  b  ^1 U* x    Public Function GetUnloadOption(ByVal arg As String) As Integer
" }: O3 A4 u' Y7 n3 J* `+ W6 D2 A        Return Session.LibraryUnloadOption.Immediately
% G7 v9 h% E* d: R. z    End Function

: F2 ~& l! x8 G6 UEnd Module[/mw_shl_code]