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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
: g6 V2 x: p$ a/ E3 h$ d2 kImports NXOpen.Utilities
" V. Q3 R# \$ u3 \3 \'
& i3 @8 G2 V( i3 U2 z' K. F' The OpenComponents() parameter
7 X- c7 T6 w* t0 C! n6 R* N( K+ K' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
+ q. ^4 u- F* ]' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
9 A/ T# P  A2 L. _' F) R3 `'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
8 b- O) ?6 J8 r/ _    Dim theUFSession As UFSession = UFSession.GetUFSession()
! [* T9 \4 U* w2 ~    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
5 ^5 y( i' x7 h! w        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
1 V% h6 x0 p5 N        Next

1 T3 [7 N) ]8 V0 H0 ]* c        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
" ~) M/ y% }+ [  G        theSession.Parts.LoadOptions.UsePartialLoading = False

1 @/ O9 \# o, D4 G% ?. K        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
' w+ @4 Z$ Y* O9 ]0 `; z            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
' a- G( r6 p0 u& R& G, ?0 L! J3 g+ M        partLoadStatus1.Dispose()

, D# Q. M2 `7 c5 e# M        theSession.Parts.LoadOptions.UsePartialLoading = option1

2 h% E3 ~; q1 X# b$ }    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
* t( E* i+ b% K' H. F  j: z9 z        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

" ]: ]: o$ m2 w; m            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
8 f. V6 l( {5 |' a# O' \, }; q" S, |" l            theChildren.Add(aChild)
8 P' N* [" B+ k        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
$ g5 @% k, h9 }  O! _* A
) K2 v1 Y% C, f8 m; O6 Z    End Function

) Q6 t: {* s/ Z* A    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
0 E3 e9 V$ {( J4 O* r/ ~            DoIt()
. D, Q% c  `7 c            Return
        End If

8 A6 _. S9 Y- B' i7 _3 u: @" W    End Sub
) g# q. Y  H; s4 n+ z, W8 N. S# M- i. m
    Sub Echo(ByVal output As String)
+ i  F3 \- ~+ V2 q, H/ P6 w. h        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
8 G: q0 A0 ^3 d2 |        theSession.LogFile.WriteLine(output)
$ W  z5 A$ G/ ^2 G& ~2 J6 Q6 Q0 M    End Sub
. Q6 q7 e/ h6 J
0 M! _  ~8 t! h    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
  j3 W3 O! Z. \: K- n        End If

3 [8 A  p+ m5 T" P        Echo("  Load notes:")

  t6 b; j" @0 ]. L        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
& R: z2 j; e! Y  \3 ^# E" t            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
: C' R2 U, E4 {7 G7 Q7 n0 @
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
; M. N& d2 ~' ^2 ]( K    End Function

" p  h4 q5 K4 Z" _; C) n# OEnd Module[/mw_shl_code]
2 j0 F" [2 U  K% u- I$ |. }0 s