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

admin

[mw_shl_code=csharp,true]Imports System
  z2 ]) E$ A: ~) o; W' @! RImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
& @# U/ E* F0 o# x$ C+ b' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
( j: L" n/ W" _0 X' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
+ k5 [9 R7 ]# O1 hModule NXJournal
: l: e9 e0 I( C# T9 B    Dim theSession As Session = Session.GetSession()
$ U- t8 Y5 a% H1 T- R    Dim theUFSession As UFSession = UFSession.GetUFSession()
, j* D5 ]. B) {- h8 ^# X' [    Dim dispPart As Part = theSession.Parts.Display
6 I& f8 E* B8 J+ [# N
    Sub DoIt()
$ R! W0 C% U! |3 m1 x; S! c        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
5 e2 Z7 F* q" O) m        Echo("Number of Components: " & allComps.Length.ToString)
, i6 b4 f: A) h9 c3 E        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
8 a4 Y% M- F) j4 r. q        Next
" O+ H9 Y- u1 H# S
; T/ y6 W9 a( \! |! x        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
& F( I6 ~  \' F, n, ^. s1 H& I5 f* t* Z        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
" D5 O/ R) h$ Z  }            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

2 x2 ^3 R& Q& ]9 |9 ^        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
0 E5 @. t1 w# l  S& S0 X! D
  S# C  E8 K( ?2 c: b. o        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
9 ]. d' C9 d2 X/ R        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
2 Z' a3 M# F, V. h$ K' Z1 T$ n        Dim aChildTag As Tag = Tag.Null
/ t( R$ }1 Q$ a0 r1 A
( \- ~2 M# f% v$ [# C. W        Do
) o; |4 c- j- O& i. R8 L            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
, o) e$ q8 _0 ^2 O2 w# {            If (aChildTag = Tag.Null) Then Exit Do

7 g: G4 c, Q( [  h3 e% g' W            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
0 f. U0 z9 N, q6 ^: ]: d0 A            theChildren.Add(aChild)
+ I, W% x) ]2 u0 x( ]" K. }# V        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
/ G; a, w& K9 h8 r0 r$ s
    End Sub

    Sub Echo(ByVal output As String)
1 y& V0 q- x0 \' w% Z$ a. t        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
. A& Y7 d/ g: [3 b! E% F# d: N    End Sub

5 K  p; _* z# E; l$ d    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
6 g+ F) X$ w/ Y            Return
' C7 j/ R( C) T, X: J- s. v, z& q        End If

3 {! ^, \: Q8 J+ f        Echo("  Load notes:")
5 l/ c2 N% M) W
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
/ w" Y" x( r& X8 [( q: U            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
% v6 o4 P- e# i( Q# C' h, g/ y) `        Next
3 I1 r+ Y% A/ @2 z    End Sub
- ~+ `9 c; b. }: a8 z& J+ w$ x+ G+ D. W
$ o) f5 k- K+ g. |    Public Function GetUnloadOption(ByVal arg As String) As Integer
5 f4 y' Q5 M4 ~& w7 g        Return Session.LibraryUnloadOption.Immediately
0 C1 \8 |; Q  B2 V2 a6 j; t5 v    End Function
: M! `+ H" \; ^1 r- w( B! S
6 H# i% {2 I: YEnd Module[/mw_shl_code]
4 U0 I/ W* A; e- P