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

admin

[mw_shl_code=csharp,true]Imports System
8 x8 P( P% e, R5 M4 S3 _2 K  QImports NXOpen
* S' J- I; H  l9 i. y6 H7 HImports NXOpen.UF
' C( |2 y8 u, C) M; d" ?. h! tImports NXOpen.Utilities
8 k; v: h3 F7 f4 x'
' The OpenComponents() parameter
% N  k# G6 f9 g' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
2 y0 v5 l% f8 g) Q' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
7 ~! G9 Y$ n' r1 |& E$ K    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
, d1 I1 M" v3 H- ?        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
1 m0 D! h& i* [1 _; `8 v8 f        Echo("Number of Components: " & allComps.Length.ToString)
& c- ?" s+ y) ^; b1 f9 x        For ii As Integer = 0 To allComps.Length - 1
  m0 k( q' t6 ]6 \5 W; [8 _            Echo(allComps(ii).DisplayName)
0 B- F$ B% b% ^- q3 G) z        Next
+ h( M* X8 _4 N* \6 U! h6 ?
" v$ }0 v+ Z" N0 [        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
1 y) p/ R- V+ U* g- @        theSession.Parts.LoadOptions.UsePartialLoading = False

& b% N7 K* U! b  V& r" ^1 J8 h, R        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

5 A" D: M6 W/ P. F        reportPartLoadStatus(partLoadStatus1)
1 v2 ?, z! F. Z0 ]# h        partLoadStatus1.Dispose()
% D5 q3 `6 U1 ~
7 R+ L4 V* a9 Z: n) r: Z  E! U        theSession.Parts.LoadOptions.UsePartialLoading = option1

! c1 m) ]- K) \; M0 [( ?- ^    End Sub
& v% f% D: o' z. Y. ]; z
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
! D6 }) }: N' }7 _8 x: v        Dim aChildTag As Tag = Tag.Null
. i' G) C; `0 A: \: d6 V  n
4 |3 a; @! x$ T        Do
2 M2 e; p% S4 G9 G3 e( N2 `) b            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
% R+ _! I( r4 g/ H: l- U  e            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

6 d- f6 q1 v/ |+ P" j( n. m" Z+ n5 f( l    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
' ]: c" g5 Q& F4 P; t( j
9 c/ m& I: I/ B( G    End Sub
( j3 g' P/ s# k4 y7 B* n
    Sub Echo(ByVal output As String)
) X5 S" D$ _. y: C/ \( N        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
& l7 [5 ], `( ]# [, P" F* V& w        theSession.LogFile.WriteLine(output)
$ u  |& {% |# V4 Y( W: U    End Sub

- V  F* i& Z. A9 h6 e( S  L; b- U    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
2 x/ B: O/ R" s        If load_status.NumberUnloadedParts = 0 Then
            Return
1 T! G! J5 F- v7 A        End If
3 |$ }1 F! I- Z$ a
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
! Y; N" Z$ [6 C9 J2 v            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
& ]# x) z& P& t* L8 K& M        Next
    End Sub
2 i- ?1 ~' R" D* N+ c. V
8 U; f. H" ]3 N+ S6 B    Public Function GetUnloadOption(ByVal arg As String) As Integer
8 x6 T! y  S  D, M- a, U8 z        Return Session.LibraryUnloadOption.Immediately
4 N3 Z$ H% U) u% O9 r5 a! z4 k    End Function
1 i" _4 D5 @$ E4 n* ]
End Module[/mw_shl_code]