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

admin

[mw_shl_code=csharp,true]Imports System
" R) H9 Q* d9 ?, e$ wImports NXOpen
) g  y4 {$ F; q: B" T7 c% w' eImports NXOpen.UF
6 J) c( H! H* I$ e. c' U7 p% NImports NXOpen.Utilities
'
& B. U0 ~8 _1 b2 P1 t" |( |# x' The OpenComponents() parameter
. @& N* h% m# d5 N3 v0 V- d/ N' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
) c, `: D: R. V( u  C' only opens unloaded components fully (see also PR-8406345)
# w' ^( b& p8 U; O+ I9 R, J' Workaround: collect and open all components individually
$ x) H$ n. J& X9 t* S( C, l'
- W$ L9 R  f9 ]! L3 |Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
2 b8 Y; s! F/ n, W* Q  x    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next
8 K* o/ P3 w% I7 k
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
0 P' _0 T9 ~! _, p- h- L# c/ ]
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
+ g4 T/ `6 F& e5 j. L2 N, Y! E  Q        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
; O  a: g& H' a; k' n6 J
        reportPartLoadStatus(partLoadStatus1)
7 F, ~# W$ M/ z% M* x        partLoadStatus1.Dispose()

9 g9 a9 V% ~2 L# T0 \1 c' p3 G        theSession.Parts.LoadOptions.UsePartialLoading = option1
- Q  @# y8 v4 K% L- P% a1 T# f
    End Sub

) j6 S; }& r" w) t2 B6 f    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
$ _* b/ s  S- k; L        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
1 X  E) q- s% H1 i7 N" b6 m        Dim aChildTag As Tag = Tag.Null
& R/ E8 O) Z# a
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

5 C/ Q, r- p! Z! L) I+ E& F0 \3 p+ X            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
3 e7 S* y) _% q! V/ Z1 J        Loop
( E' L- _# z: }( S  A9 ]' a/ w7 ^        Return theChildren.ToArray(GetType(Assemblies.Component))
$ c8 `6 k& G" z5 z
    End Function

    Public Sub Main(ByVal args As String())
$ o# M* i) i# Y( K: c8 B2 f        If dispPart IsNot Nothing Then
, f8 [* W& K4 X- N) Z            DoIt()
& a1 P) K) d4 {- d6 H+ s5 u            Return
, n  ~+ V/ X5 l3 D  p0 e$ _3 X+ P        End If
; F7 ^6 c1 v: y, N5 y' N
+ q* o/ m6 I, e% u# b    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
* y7 ?# ]% k, F. I        theSession.ListingWindow.WriteLine(output)
! p8 `6 G0 p% A' b: ~9 C) `* F        theSession.LogFile.WriteLine(output)
& ~& ~4 t6 o- q. B0 c0 Q    End Sub
5 H4 j, N. v. A* K5 f4 L8 @9 q. B
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
5 i0 v3 Z4 s3 L) l
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
1 a0 R8 H7 Q( I4 x5 I7 x        Next
    End Sub
$ P* S& z5 E  i+ h/ x/ a
7 s! `. e1 U) A: u$ p+ m* \    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
  |4 L) w* Y1 d8 [$ X' v# W* h, Q    End Function

! @1 b3 a4 e/ r9 k: J- eEnd Module[/mw_shl_code]
" M& L  L5 l: Z5 t- ^) L+ I