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

admin

[mw_shl_code=csharp,true]Imports System
) x' @& V- Z! [% H; p! c6 p# ^) hImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
6 ^4 z: k3 N8 W' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
2 a( N4 s8 R" ?- p# _' only opens unloaded components fully (see also PR-8406345)
& A+ B8 s* z. w" c# a' ]/ o' 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
$ H: u; x$ z6 K$ d& R0 D
6 Z: b. A3 Z1 s5 A( [    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
# q- Z$ m  \' ^8 j; N7 N6 }( w        For ii As Integer = 0 To allComps.Length - 1
8 f' ]+ v: s1 ?$ F, a2 D5 g! S; s3 X            Echo(allComps(ii).DisplayName)
1 c' V; U7 ]+ i% u1 O9 m5 q        Next
5 s2 k- F+ q  o: m/ ]) `* z$ s
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
% y1 W1 P+ W" B' V7 _9 q4 y1 s
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
# s  t  N1 B0 h+ E& ^, \        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

; f) j* \; E9 n0 p        reportPartLoadStatus(partLoadStatus1)
& Q) J, b" L5 ~6 ]7 L        partLoadStatus1.Dispose()
: c3 {0 w- k& }9 R; N; n0 j( P
' V* L4 p% S- O8 S        theSession.Parts.LoadOptions.UsePartialLoading = option1

( J) P4 y' a2 A1 ~4 L+ e5 C    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
* s4 M" ?( _# c  p$ A6 y        Dim aChildTag As Tag = Tag.Null
, B9 e/ W) \) Q. [+ U- S! V2 E% q
! J9 ?; i) j3 T$ q9 D8 o        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
: |1 x7 ]) l* j, N  R" d( r/ C: Q            If (aChildTag = Tag.Null) Then Exit Do
8 X9 Q% O6 Y! `+ V
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
% E. h; Z1 i4 L: V) t            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
% B; _6 i# O' L" h
% c7 W) x. u; I  V/ K    End Function

    Public Sub Main(ByVal args As String())
$ |4 @; }9 U1 y" n+ {: E1 c0 e; ~        If dispPart IsNot Nothing Then
. n  K& F7 d3 w7 }* B* r. d# C# i            DoIt()
/ }0 D. Z9 L! w! H% O            Return
        End If
# C! Q  A; T+ L3 e8 z- C7 o" c& S
    End Sub

    Sub Echo(ByVal output As String)
: Z, Z6 _- R/ e        theSession.ListingWindow.Open()
9 ~9 ?8 f; A8 t        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
4 k& P( F: {' |: J    End Sub
/ V4 Q9 W6 J9 l, W* }4 _
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
8 j+ \! A. R$ K/ E% i) u( }" F        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
, `2 {1 ?8 ?  t
        Echo("  Load notes:")
- d8 J4 D+ G- s6 A0 R# ?
4 d" H4 l0 z9 e4 v+ u7 R- f        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
$ d3 O5 |7 e3 i" L" c" L# D/ W        Next
! ^, e" a2 P) m, A    End Sub
. O8 B  t1 w4 ]1 N) D$ ]4 l. p5 ?
  K/ L& y8 _0 |$ Y6 S$ [- A+ R    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
3 u4 D( E. n& U1 \    End Function

/ o' }7 E4 k  h3 c, OEnd Module[/mw_shl_code]
5 m7 a" q( i' C