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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
3 F0 Y. T; c' {/ w, t/ ~; J'
' The OpenComponents() parameter
* ~7 P3 z: u1 K4 Y' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

# m3 r" i8 w6 Y# k0 `4 @    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
% m9 l, v" z" V* A: y% `1 J        For ii As Integer = 0 To allComps.Length - 1
. I! n! X; O: V' u, K/ h: K. k            Echo(allComps(ii).DisplayName)
        Next

7 [4 Z, d, E- \, i        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
( h3 [6 {" {, s( q% H+ j5 m  c0 y( o0 @        theSession.Parts.LoadOptions.UsePartialLoading = False
, K+ ]0 p. M% o" v6 Y: {) a/ [6 a; \
. C) |7 L0 p6 u, U1 f( p4 i' ~        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
% L/ r( J+ |0 H  ?& U: O" @$ a        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
8 g' e& Y7 t4 c' ]; L# z3 d3 Z$ x9 U        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
* k  [$ F0 `* k4 n2 x* x            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
. b* e) Z0 b" ?; Q+ a        partLoadStatus1.Dispose()
' ]4 Y7 \# q+ k) @7 o
2 D/ f/ D$ w+ c4 L1 p6 P" \        theSession.Parts.LoadOptions.UsePartialLoading = option1
* @: l' l3 c. q" S* h
    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
$ w1 O+ x; ?" e; U0 U: l2 ~: X& H        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
2 N( A& C& _7 [' T+ X        Dim aChildTag As Tag = Tag.Null

% s$ W4 A( x# P/ N3 k, N        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
( R* b. \8 H' Y' O! K/ `            theChildren.Add(aChild)
3 f# X1 H+ E" b1 l" e3 j        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
' _$ O/ Q' o7 F, d$ o
    End Function

    Public Sub Main(ByVal args As String())
4 A8 i2 `# W* s$ m5 g, m/ \        If dispPart IsNot Nothing Then
            DoIt()
% V5 m, n/ U* |$ x1 n) @; y            Return
        End If

0 F( h: a/ \3 s4 E  Z/ G3 {# w    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

' b2 B+ T+ l9 b* ~# e, J  g( J    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
* E6 `4 \( m8 c, `        If load_status.NumberUnloadedParts = 0 Then
            Return
2 a9 U# N; V$ q6 L' H        End If

) e5 N: F: m9 `1 K        Echo("  Load notes:")
( Z) T8 w9 B5 C0 l5 p- n
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
! a9 d8 t% w4 }            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
+ @9 Z8 p& m. w& F    End Sub

. y3 ?' w2 g& B) Z9 S: x    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
5 ?) g2 R8 U; O0 w1 W  [    End Function
6 q% X5 l7 {  d* _
6 Z9 u3 k( l4 E3 q0 O: Y$ i) R9 ]End Module[/mw_shl_code]