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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
& b6 C$ [2 ~) N& Z/ ]Imports NXOpen.Utilities
/ c/ @4 O# C( Z9 c: u'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
, b' M+ D6 d4 }5 q' Workaround: collect and open all components individually
- q5 `! ?* c$ _'
  d+ N1 G: p" T9 }- N/ w1 y9 y* J7 tModule NXJournal
3 w) p" a1 A3 v. _    Dim theSession As Session = Session.GetSession()
" O  c. k9 ?- `- ]- d    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

, H8 U0 j: ^5 N0 E) ?    Sub DoIt()
% @4 C  J$ c7 F6 O* ]$ Y5 }4 p! G# f! B        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
& h4 x0 h- m; ^7 z3 I: _" ]: r" b        Echo("Number of Components: " & allComps.Length.ToString)
# W: N( a: d) G        For ii As Integer = 0 To allComps.Length - 1
8 H0 U( f, V8 f            Echo(allComps(ii).DisplayName)
4 p( n- b+ A  K9 b        Next

  n* O3 x+ i) I3 ?2 R        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
4 |! b7 F0 E. K! X: _0 s
: ]) M. g: r& B5 B/ X        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
* K. u8 v  L/ X/ Q( X        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
+ U4 O" R( d, h            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1
0 M" G4 v; n# ^7 p* y1 q" ]
) O4 h$ X' A  p( I8 F; k% Z    End Sub
% ]  k3 I, h& F" |+ C$ o* E
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
% O* r! U; q' K/ y& f. Y        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
. ~7 j# G: B" c# U7 F: G        Dim aChildTag As Tag = Tag.Null

0 @* d4 l2 A7 M1 d1 c        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
) @! {8 A% R# A9 g0 G: t            If (aChildTag = Tag.Null) Then Exit Do
) {" r8 X0 j$ p8 z7 W  q, z8 }3 I: k
* h: H) ?$ h. `; K            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
  v, `, h% F& M3 t7 u        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
5 B& M  V6 P# P
- [) E: F% s1 V: v" J    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
3 t  ~6 Z5 }* Z            Return
        End If

+ {% e# v! B# f- S% n$ e    End Sub
& x, l& h# R2 p" M! `
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

% s* W9 Y0 T; l! _+ H    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
3 b3 ^2 Q% S9 Z% ?        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
- @) M6 [! L7 i# m+ ^
        Echo("  Load notes:")

3 p3 u) t  G, P, ?        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
! T, M6 Y! H" ~0 o2 I! _            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
; R. y0 B7 |$ _        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
+ h# F( Z/ r! e5 D) X: d
* C9 N+ s7 X1 j) @! }End Module[/mw_shl_code]
! I) N& A1 J2 D# z* ?