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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
6 y+ G8 G! F3 v6 i. a; R9 E- aImports NXOpen.UF
6 }3 @1 H- z6 F: V5 ~, ]Imports NXOpen.Utilities
) j+ ~5 {, k' X7 Q! |4 E. E0 L'
7 A1 V7 q5 O6 w' The OpenComponents() parameter
) v8 z$ Y1 Q# T. G: [+ W' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
4 S" D0 G  N3 Y* ~7 z' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
8 |, s. \( S" C'
Module NXJournal
5 T% E  {! l% f# b- T    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
7 M# H: }4 e: x4 `/ y6 a7 \# ^! b    Dim dispPart As Part = theSession.Parts.Display
% n+ i! R  ^  f
# |3 o" [9 q& Q    Sub DoIt()
& Q- `+ e9 q0 b8 n+ e5 }3 [) l; h6 q        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
+ A6 ^3 J5 h: |+ n. P        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
8 {/ b8 Z# l4 C+ c7 t        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
3 Q9 r% h& B# e" w        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
9 T2 v. u! Q4 T4 U+ n* n& n            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

: V  \* A) I1 g& N2 h0 Q& H        theSession.Parts.LoadOptions.UsePartialLoading = option1

" v+ e- W$ }* ^. S: e1 m    End Sub

' y1 _1 V) F; [. P$ @$ c# u0 Y    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
+ w, ?5 Q6 \4 Y, W        Dim aChildTag As Tag = Tag.Null
5 J1 t& X+ V% ~9 @! j8 P9 D
. R5 ]! A3 B* E( _5 v        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
: g$ b5 e# s. f$ u4 c8 U  L
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
5 Y$ h% s& K2 p& R' C' W. x        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
; {5 `' A: V+ F  @$ l. y        If dispPart IsNot Nothing Then
) m3 }* l) ^- _  M" F) X1 @0 Z            DoIt()
) ^* ~; u; v/ l% d            Return
& b3 D9 A* Z0 ]        End If
& N2 O7 d$ o# v* Z& P+ z' Q! O
! o5 _- k2 j$ c  g& |    End Sub

! T3 e; c5 S" W4 [* V    Sub Echo(ByVal output As String)
. K: R/ N& O( S4 ~3 W2 |$ N  E        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
+ u0 Z3 b, `6 F* k1 t
% O% `* a0 o4 l$ R5 A# F& |0 J# _: ?        Echo("  Load notes:")

: r+ D9 [( H' c9 X4 n9 _/ w        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
3 n  z; O3 z: {7 y( n3 ]            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
5 j+ S* z( G2 q& S  I    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

# ]1 l' d$ ]) h1 @End Module[/mw_shl_code]
" e% j3 k. @  A7 M3 ]9 P