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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
$ L) S! F" l/ }" @  MImports NXOpen.UF
1 E' e' F7 L  z, ?2 OImports NXOpen.Utilities
'
, R, x# W. `% ^0 T' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
8 k4 B6 ~5 p" G6 h' j$ G' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
# d5 u7 c( B3 E% z3 u    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
% {# g$ M5 R. D& W; p" X: K    Dim dispPart As Part = theSession.Parts.Display
% s  T# W6 q& G- T) F, n& @
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
9 M2 O# V& Q9 _9 \6 N        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
) t  O4 t: h$ i            Echo(allComps(ii).DisplayName)
        Next
7 d4 R( B% T% p) A0 I% p
( [2 R4 ?# `1 J0 W        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
' i4 \: i$ {- {9 r        theSession.Parts.LoadOptions.UsePartialLoading = False
# U5 C0 `1 d! Y1 S4 F% L0 P, @7 `
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
( i9 f, S/ Y/ w. h7 [+ z, }2 T            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
% I' r( ?' C7 i% _- k6 u
        reportPartLoadStatus(partLoadStatus1)
1 v7 c8 Y: {- l6 p1 L        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

* s! M5 V! S5 y8 E    End Sub
' T6 F/ F$ f3 U6 m& ]& J0 |+ b
/ C& n9 u! O8 G6 k/ ^) a1 g% J4 f    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
. H. C9 w* d' ]. V8 i$ v( [1 K        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
, M/ `$ A& J7 G/ j        Dim aChildTag As Tag = Tag.Null
4 d. P2 N' s( w3 I# f# s' n
        Do
% j: j& J+ q, j            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
9 e  ?; ~# t! L- h            If (aChildTag = Tag.Null) Then Exit Do

1 j* \6 T* r% L$ h            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
$ m; B! ?# }1 c  z5 R            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
' j% ]: E0 X0 @; b8 A        If dispPart IsNot Nothing Then
            DoIt()
! a& E, F0 f% n, l; k            Return
        End If

    End Sub
8 _9 b0 r* [) b! V) T5 \+ F5 Y
, H$ F& f7 q5 d  z9 K/ ^    Sub Echo(ByVal output As String)
6 G2 l9 {: x/ }: W        theSession.ListingWindow.Open()
' c$ _6 r3 a# E9 Y. Q2 C' ?7 r        theSession.ListingWindow.WriteLine(output)
8 @" ?4 D7 q) |8 o) y  F        theSession.LogFile.WriteLine(output)
) A" b& m" C5 R8 f' f* H    End Sub
& K9 e$ u$ G1 K7 D. r- x
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
% S, G( s2 E/ K% B0 Z6 m/ _6 `7 [            Return
        End If
+ k+ c! J0 _+ B# o$ t! w+ T+ Y
        Echo("  Load notes:")

2 F/ |, X( u+ K! A5 u8 P4 j4 P        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
$ k2 a/ i- T+ W- x* C            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
  E( |4 ^8 p; a) a$ d    End Sub
! B1 t8 _) S/ \5 @  A, z9 F
    Public Function GetUnloadOption(ByVal arg As String) As Integer
  r1 o$ M8 X6 J- U/ ]0 Y        Return Session.LibraryUnloadOption.Immediately
5 e+ {& `8 i1 r) U+ N: t+ ^    End Function

End Module[/mw_shl_code]
9 S! [8 A' \) ^4 \4 L