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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
7 u) {6 j0 F3 N& o1 z7 j+ N5 hImports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
9 d2 \. W( G! }# ?/ D5 @, l) ]' only opens unloaded components fully (see also PR-8406345)
0 e. j2 {- ]" @5 C' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
0 D* E" y- T7 v0 m    Dim dispPart As Part = theSession.Parts.Display
4 A4 `( M9 T* _' m! e- }9 m
' r7 T4 c) K' }8 J1 R* C    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
6 g1 j" c4 H- W        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
1 d. c( a; `5 J1 e
5 t9 h! P' _" L; F+ J, [        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
/ B4 J5 N3 G2 t& A/ }. U; k9 i0 K, R        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
! r) _: F0 A4 D* U$ K- ~% U* C2 w            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
( V3 s( H( h1 P& g7 ^
: M& Y9 P6 \$ }& `        reportPartLoadStatus(partLoadStatus1)
) q' r# h6 X) N+ g) V7 x+ x/ Q        partLoadStatus1.Dispose()
" g& d  f" q* f6 n+ o
7 f6 r- O) s6 T( L        theSession.Parts.LoadOptions.UsePartialLoading = option1

1 s( P- Z9 M! G3 X, C! Q- W    End Sub
! n- q( ~: D; H. B  W$ x9 n
, v: X! H+ K- U* [) h    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
% j8 z' Z) {" H5 o  D" \        Dim aChildTag As Tag = Tag.Null

8 _# `. A8 J2 F% N9 u0 e! f1 U- I! Q        Do
! `/ i4 @+ H4 R            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

2 |- @- u+ U/ r8 n2 A            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
: E# n/ q% |$ U7 L. o2 Z" W            theChildren.Add(aChild)
        Loop
1 s, F- e' |" ^% ^) e        Return theChildren.ToArray(GetType(Assemblies.Component))
, D! u2 a5 V$ k4 c2 D" X  k
    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
4 U$ e, R5 l7 c6 L* y* a, |" [            DoIt()
( |- v# u$ S. F            Return
; Y$ q+ Z$ e  u        End If

( z- G; k' x; X9 F5 B    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
) Z2 u# g( m& @        theSession.ListingWindow.WriteLine(output)
8 ~- J% [: l, b) q" Y        theSession.LogFile.WriteLine(output)
+ A, O$ @0 V0 x, D( o# z+ C, V    End Sub
& \+ j& a) {0 G+ Q
4 b# a( @" G& u! q; q    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
1 @7 X1 w/ [8 m$ F            Return
        End If

        Echo("  Load notes:")

9 b: G9 e$ v( a9 O; a+ n: @8 ^        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
2 R$ |# S  L6 V- p! e    End Sub
( U9 c9 k% {; f5 t
5 @! u/ ]) q8 L3 f7 k+ R' U3 P    Public Function GetUnloadOption(ByVal arg As String) As Integer
; Z4 L* `1 m, h0 R1 A* I        Return Session.LibraryUnloadOption.Immediately
    End Function
8 f/ J# y" [. r' ?. `& E
! E, p% J: P0 E. ^2 A+ N' N& PEnd Module[/mw_shl_code]
- K! g* o" ?% y8 w0 A