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

admin

[mw_shl_code=csharp,true]Imports System
8 O9 g$ o+ R0 vImports NXOpen
+ o( M7 g6 b9 X4 o* ]" _" ?Imports NXOpen.UF
Imports NXOpen.Utilities
'
3 P+ A; T. a2 A" {3 R7 n# I% `' The OpenComponents() parameter
( f8 o( E* n& W) v' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
4 G5 B3 p/ l% b' only opens unloaded components fully (see also PR-8406345)
2 D$ v1 W8 L3 a  V' Workaround: collect and open all components individually
& F4 e' `& f5 A" @( a( f'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
9 t. D& c/ |' Q5 ~" }! `    Dim dispPart As Part = theSession.Parts.Display

- P8 P5 }3 }3 i. A    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
; Z# m7 F& _& S- B0 @        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

- u1 s$ |- E' y. }( r. w4 G        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
' @' u& f7 A9 ?* b        theSession.Parts.LoadOptions.UsePartialLoading = False
% @  `- m: _% P
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
6 c1 [: B9 _& B, W        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

( T' B% X" r6 l        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

: C+ T  m3 t: f# `7 W    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

4 s; _2 @- o0 f( y! d4 D0 N, b" f- t        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)
            theChildren.Add(aChild)
        Loop
+ f' o( |6 a  f1 N+ }' z        Return theChildren.ToArray(GetType(Assemblies.Component))
! e) B) j( W6 t2 s0 K6 E2 x
    End Function
+ J( t1 H. r" C! V6 t8 ~7 @+ e
    Public Sub Main(ByVal args As String())
2 r2 Z: v4 `( h  ~2 E4 h        If dispPart IsNot Nothing Then
            DoIt()
            Return
4 J" P: T' T# p( p3 @        End If

; R( L5 P  }! Z( l    End Sub
0 W" L* q  Z, y- g: ~1 Z" P; I- F; f6 E
, C( Z# ~& N; j5 j. H' g; G( |    Sub Echo(ByVal output As String)
% D- U; \, |5 d7 D        theSession.ListingWindow.Open()
8 n1 P7 T- O! k. F9 `5 i7 F6 w        theSession.ListingWindow.WriteLine(output)
5 n  V% ]9 N# ~) D- _$ O! E. O, |$ `        theSession.LogFile.WriteLine(output)
/ Y; _, o+ ?8 t& w- v+ B/ D% w    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
( p1 y( `/ N9 X& P" d! z  t            Return
0 Y; c( A* B* X! O- i        End If
+ @8 i- s1 F& C8 G* W
0 y4 q4 z& H! M% O4 ~  I! {        Echo("  Load notes:")
" O0 h1 d  S+ Y$ [1 e4 D
% `8 `  c$ w9 }! c& m. I! _        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
8 p5 P# v9 r9 L* K        Return Session.LibraryUnloadOption.Immediately
# N2 R$ J* {( b' ^3 ]: b    End Function
* q) \0 j' I5 K7 T1 h! |' x8 x
; X7 w: x6 M* ~- i' PEnd Module[/mw_shl_code]