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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
$ q9 S- d7 M! f' The OpenComponents() parameter
/ x! |4 ]: \, [2 P' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
6 h  @" P0 e2 N5 u* h+ u2 U$ E0 ?" N7 LModule NXJournal
; z- z7 M' A, ~1 ^: J* y    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
' o/ D  Q, C7 O" W" z# {    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
9 w1 Y: z+ L/ ]* }0 y* |. ?8 B2 C        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

: _- W! u7 z3 ^6 V        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
" l0 a, S8 y; M6 n        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
2 U% v, ?- `6 l/ k1 Z9 `        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
) l2 i+ K$ G; y# c" E            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
6 k6 c8 G7 H6 z; A" v
+ U% T( p1 J& a+ k& ^        theSession.Parts.LoadOptions.UsePartialLoading = option1
6 T' F. p* A! f2 w  n6 ]4 x
- U, h3 }( E. p9 K3 T/ h' J/ z    End Sub
: n- D' l) T% u9 W, V
% q3 ^( r' c; V2 ^- s    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
- [3 e& g* e. }( e  Z        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

        Do
1 X& }- R5 ?0 |  ~# b% Y            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
- G- o6 ?' c; D# F            If (aChildTag = Tag.Null) Then Exit Do

; j% K5 p" g  A9 N( l/ u            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
8 E, E' i" J8 Y) s" F. h            theChildren.Add(aChild)
        Loop
  Z4 s9 [& E& K$ L8 P' i8 m        Return theChildren.ToArray(GetType(Assemblies.Component))

) {/ t" n& E+ }& h3 @2 o# o7 u: o9 X    End Function
! w2 L! t0 U8 [7 y  k& b
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
% M( c# I8 t6 W( R1 G            Return
        End If
$ h" E! h! T5 z  f" J! J* q
2 F" W+ w# ~- A    End Sub

    Sub Echo(ByVal output As String)
' v3 Z/ S. D0 m+ }        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

2 }, D/ O0 Y6 G2 r3 t: o+ ~# c    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
+ s9 L$ k. n- w. T7 I        If load_status.NumberUnloadedParts = 0 Then
6 J7 [0 z! ^9 Z* u5 a- v            Return
        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
* C# {3 y3 H) \( _6 x% C6 F            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
+ ~; z# k' p/ [9 W5 ^4 D4 t1 q    End Sub
3 f6 N0 m4 s( y- G7 n2 n& ~' V2 Q
' h& y, E  d3 n* E    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

9 X. i: ^0 r& E7 N: g2 ~5 `/ Q* m& WEnd Module[/mw_shl_code]
/ M0 \! q/ x+ f5 V7 M. l