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

admin

[mw_shl_code=csharp,true]Imports System
% V5 C, l6 A4 [Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
# ]( x- D* m0 I! X5 V4 h+ {, {' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
+ F  Q$ C0 F& w+ A( z8 Y' only opens unloaded components fully (see also PR-8406345)
7 M% K1 p1 X' D4 H0 E4 [' Workaround: collect and open all components individually
'
0 P6 F$ p4 p2 T* s- DModule NXJournal
    Dim theSession As Session = Session.GetSession()
' q  P! `0 K1 }6 L5 w8 s. p    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
8 Y  G% K) [. [1 l: B
    Sub DoIt()
2 z# F6 S) m; Z: u0 g) C, u        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
4 C8 l: P  \$ }5 s. p4 e! ]            Echo(allComps(ii).DisplayName)
        Next
8 S4 P/ C) y4 M5 x2 T4 e
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
# ~% Z) E& Q1 i/ i9 n
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
2 u0 v* I" y8 a& O        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
( d2 U# Y. B( e# S0 ^        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
! M' ^0 S, x0 b( F3 `! Y7 l% Q9 @
9 {; c8 y% R7 \3 v( P, R  ^3 G0 f        reportPartLoadStatus(partLoadStatus1)
; W, d6 _# L7 q        partLoadStatus1.Dispose()
) |1 n: R, {4 \4 J6 {+ p2 l
        theSession.Parts.LoadOptions.UsePartialLoading = option1
: s% t* k4 u1 _! |
- [+ ^2 j5 b' s* `    End Sub
6 R" E: [# l% o. \) r- i6 u
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
3 \0 A, W- p1 D: b! `9 ?# n        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

        Do
" l+ q& x/ I% N1 f( Y( `            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
% I, j3 c- K0 C+ g7 b+ }
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
$ K0 l, _5 C: p- L& |            DoIt()
& I+ A: B9 H5 ^            Return
" J6 s5 K$ j' Y4 s4 c        End If
2 T; I4 l5 M) `; K
    End Sub
: S' ~* E7 C) H1 X+ r  i( |, r" P' V
, T7 k! o  I2 H; d    Sub Echo(ByVal output As String)
4 t6 ]: y& z1 \2 f: ?1 c        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
7 t/ E5 n/ t" }$ j/ b, K        If load_status.NumberUnloadedParts = 0 Then
            Return
2 C4 f7 ^' ~! i, q        End If
' L& _6 f8 P" `$ n7 G
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
; R0 q% x" R; h% P7 r. @            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
! i/ o) Z. g0 \/ n4 j* N; R        Next
    End Sub
6 t0 P! `9 S, a" C, Y0 |% F
    Public Function GetUnloadOption(ByVal arg As String) As Integer
0 |. T( I( H* R1 B        Return Session.LibraryUnloadOption.Immediately
1 c/ Z) m! x2 }- n    End Function
9 n6 ^( D  z- P# U/ W
End Module[/mw_shl_code]