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

admin

[mw_shl_code=csharp,true]Imports System
- `4 ^+ S* `6 r5 O: ~: gImports NXOpen
Imports NXOpen.UF
# i( Q6 I. f, K9 IImports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
; N2 g" X6 s% j& G. b1 f' only opens unloaded components fully (see also PR-8406345)
$ X# w( t! ?3 ]' Workaround: collect and open all components individually
'
2 R: \9 k8 s% O& rModule NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

- V  V; h0 P/ @, o+ i    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
# k! C) R6 m7 f. Y/ n3 f        For ii As Integer = 0 To allComps.Length - 1
4 T& W9 h  [0 f1 x1 K            Echo(allComps(ii).DisplayName)
        Next
7 x$ _5 K& p" G* C6 e) \0 s' m
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
: u% J& `3 U. _
# v% q7 O+ t- r8 D& T9 b/ ]% l        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
; p' V: {: C" p        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
2 L9 g) Z, E* X. Q        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
$ ^5 j6 h/ ^  l, L2 B- d9 f2 ]/ J            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
# ]4 X  W4 b# q* j5 \+ |  k5 n
* _" u" b- j# b  L, \        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
7 B2 n& q8 o. U0 w6 w4 p& d2 j
        theSession.Parts.LoadOptions.UsePartialLoading = option1

1 H: M  B/ {: ~: Z7 x/ |5 D    End Sub
# U3 o6 _9 Q! K) J
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
, v* R  b/ }" D+ V' H$ O        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

9 k- [/ s; U  o; {3 ~        Do
: y9 F: a6 L3 Y6 D6 x4 J$ }            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

( j( x7 ]/ b/ @2 q  d$ P0 t# r            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
            DoIt()
            Return
/ e- g$ r3 G6 ^. a: h; e8 O        End If

    End Sub
: z+ i  d' W1 V" T) b2 A, E; n( ~
) F* h3 I( O5 w    Sub Echo(ByVal output As String)
2 a6 M0 m+ d3 k        theSession.ListingWindow.Open()
5 {7 ^: O, v6 b+ f; O# L" ~$ g) ]        theSession.ListingWindow.WriteLine(output)
& O9 c  _/ K0 W! [, B, y        theSession.LogFile.WriteLine(output)
. |2 s7 U% m# K) O3 h# C5 v    End Sub
, S; s9 i1 X! N2 L. D: j. P
! x5 a. p( f$ z8 @5 ~* @3 Y4 P    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
3 Q0 l- O9 X& T* W            Return
8 p2 F* c" s7 b2 o6 z. C: R( a        End If
! r$ J( w( [5 V' j8 ~6 h
& [; Z+ U3 Z2 ?+ }        Echo("  Load notes:")
% N8 Q6 G6 j  Q6 _3 _# [
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
" a6 C; {6 k: Y, h            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
: w2 L( m' S* T% e+ K: _0 b- o8 O. h        Next
, b0 N7 c/ H" H# I2 l9 r    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
0 l$ m' T! |: e    End Function
5 d/ T( E$ g5 _: A5 ], @  Q( G
End Module[/mw_shl_code]