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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
. L# V8 p- W/ B/ B: AImports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
! Z+ \, \/ J6 H3 W: D1 l' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
" o7 y* V( @; Y' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
8 g5 L* k0 f5 _5 K5 P" C7 ?' ]    Dim theUFSession As UFSession = UFSession.GetUFSession()
' r! o' V# G  Z5 }5 k9 _    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
# P" h  J  f/ P! y- Q# L0 K        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
9 }7 l: a+ S" B, w% V; m9 w        Echo("Number of Components: " & allComps.Length.ToString)
8 b& A  T4 q+ g) K4 d' h1 u        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
4 U+ d- H) l- y% _" z6 ]3 U, w        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
% ?* ^/ x. I4 d0 a4 {/ G- N! L        theSession.Parts.LoadOptions.UsePartialLoading = False
2 r2 }3 ^! r3 Q2 S+ k4 \5 Z
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
6 D" j" I  g, C. u        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

( G. x6 G' N8 E3 |7 r% x" p        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
& s* Z; O3 [* Y
. K" b) [2 Z  b8 B/ A1 h        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

6 K6 x  R: ^) @# Q5 X; k4 o4 {8 b    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
7 r  @) L% S$ d8 ^2 [
5 ]: H) |- f) A1 U1 c3 C        Do
. `$ d- Q7 A" h            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
' p( J8 ?) H3 W  `; K( b0 e
3 y6 g* w" I: Q7 x* j" b8 z$ @            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
& N# [1 L7 |1 c- F1 e            theChildren.Add(aChild)
/ j$ l8 e; l, J        Loop
/ E& b' x- W/ q2 w6 M. z        Return theChildren.ToArray(GetType(Assemblies.Component))
" h0 S. b' I, B
4 i4 n- a1 o4 b& t; F9 W0 H    End Function
* q3 p5 u; d6 L3 H
    Public Sub Main(ByVal args As String())
0 I1 G- n/ Q4 U- v3 x: u        If dispPart IsNot Nothing Then
5 ^3 g6 k& h* m& B$ R+ h1 b: q6 w            DoIt()
4 Q! Y3 L1 P* ^* T7 T! p* j7 F            Return
        End If
0 c& h2 V* i% S% I3 G- F
* @3 d/ p$ _, Z2 T6 E! `    End Sub
1 M8 _3 M6 e0 h) D7 s% y
    Sub Echo(ByVal output As String)
$ Q) @! D% P* ~5 u) n6 J. ~; @        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
9 m5 J" T8 X5 e- [, M# [1 k% j    End Sub

+ ~+ F5 W- F! f" v$ n    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
. i0 ]  ^8 Z+ U1 n. O        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
* r4 W) y; I, F7 b
        Echo("  Load notes:")
' s1 J; p! g5 r: F. U1 j
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

4 H8 Z0 d7 I% T1 T    Public Function GetUnloadOption(ByVal arg As String) As Integer
/ e6 W% n% R1 G2 x        Return Session.LibraryUnloadOption.Immediately
    End Function

: f6 r% R7 p- g  _. a8 S! PEnd Module[/mw_shl_code]