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

admin

[mw_shl_code=csharp,true]Imports System
# k) {! U) w8 X* N+ X; N- oImports NXOpen
& p* Y6 u3 z+ T3 e% pImports NXOpen.UF
Imports NXOpen.Utilities
+ `! S7 K: K5 N: z4 D# O% x'
' The OpenComponents() parameter
( U( S4 Z- p, ]; f, v4 a8 Z! w; V' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
+ @* k* X; b, ]9 o! N4 k; i'
Module NXJournal
. W2 Q; \4 R# w/ B- e    Dim theSession As Session = Session.GetSession()
. g3 e+ P' S( S1 p4 `/ V    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

6 m; }/ T7 D3 b8 ]! G& w5 D    Sub DoIt()
1 J) ^  i0 J& t' n        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
% Q2 @& N" _$ m  l9 j. E        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
" g0 t# j$ j0 G# k6 A2 n' H        Next
0 O1 ~- x$ x9 c( a) O
! e, Y- ^1 Q, o) o: h; ^+ P        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
7 S' W* j; V0 U, ~        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
4 }2 ?3 O1 \3 f8 _( X: E        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

  a1 }8 M& P  T4 A1 g* {6 R        reportPartLoadStatus(partLoadStatus1)
* E& `! {# M' [8 X: }6 H. q        partLoadStatus1.Dispose()
9 r5 `+ O0 W- A9 y
: _2 s$ S6 H% F: e5 Z) x        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
, s, a8 a8 F# `3 Z        Dim aChildTag As Tag = Tag.Null
+ p( y& X) ?! ^
        Do
7 s$ t, @& r( X2 `5 ]; q& p            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
' i7 y: j$ Z( J; d
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
- j* A4 m! C7 g& U- C7 x            theChildren.Add(aChild)
& F$ J2 R" X! c5 l9 h        Loop
5 L8 v+ p( C0 b        Return theChildren.ToArray(GetType(Assemblies.Component))
8 z; h( I' T- ^. ?# `1 ~
    End Function

* s' E: p- r* ?% [' e    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
+ X5 F, @2 H& d" p9 O0 E% A* Q# d        End If

; p. q; P3 ~8 n    End Sub
6 n1 L0 S* O7 |" n6 _
    Sub Echo(ByVal output As String)
3 u$ @- O9 V0 l% `        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

& S# L) ]+ _5 I- u    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
5 s- |: `  O( |4 k+ X3 G0 G& g% L
2 `5 t$ @" X! O0 ]( |5 Y        Echo("  Load notes:")
( v) i* a0 h, U8 M2 I" T
! _  L# b. `6 ^. C* J& g        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
9 I  ]. t6 F& m; j6 Z( I2 y            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
8 a0 q3 J' k1 `1 \$ I4 r* _    End Sub

# Y1 u3 J3 d2 |2 p9 z: }# y( K    Public Function GetUnloadOption(ByVal arg As String) As Integer
% m+ _( F( ]+ Y" @! x/ ?" B! i8 |4 n        Return Session.LibraryUnloadOption.Immediately
    End Function
1 I" J* z8 R; T: v. Z
End Module[/mw_shl_code]
( S' ]% Y* ~5 @) J7 @% q