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

admin

[mw_shl_code=csharp,true]Imports System
+ u2 ]: V' M. E$ Z7 l! u0 i/ w5 O* uImports NXOpen
Imports NXOpen.UF
7 X" i% L% g0 L, ^) b4 ?Imports NXOpen.Utilities
1 E# u, A# y( \  w'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
* }$ o: p8 v, o* Y. ]'
8 [7 b7 Z; [" _8 k+ kModule NXJournal
+ ]' X; L$ _) S. X    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
1 v8 m: Y% A, R5 P
0 j5 ^( G8 D7 V5 M7 s7 g6 }3 J% q5 d    Sub DoIt()
) o( B5 ?8 W) ~9 J3 v        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

  p( x/ P) E  R8 j( [        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
% Q  d$ _( s+ l3 a6 \        theSession.Parts.LoadOptions.UsePartialLoading = False
" e. \' N/ X6 E3 j6 U
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
2 U/ h6 k8 X2 u( u) f        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
4 h! n8 k; V' Q, h
- G( s3 w" g! S3 b" L        reportPartLoadStatus(partLoadStatus1)
: o: ?+ ?5 N0 \, j  G& F, u; N        partLoadStatus1.Dispose()
9 f2 C, G+ b5 |! {+ H. r3 B
        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
7 [$ E( b, ~" `
3 y. ^7 u+ p& D+ [+ @  Q    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
# n4 c; P# C( @7 }        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

) y# ]/ X. Y# O9 n        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
5 E: V' S3 r, ^, P" v+ l: J( Y3 m            If (aChildTag = Tag.Null) Then Exit Do
4 W4 l0 P1 c" ^2 F. x8 b
; v; w: {6 |+ l3 {* w            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
4 C) ^& b4 S6 h: I( Q            theChildren.Add(aChild)
7 \- k, Z0 D9 M4 C        Loop
: K1 m  m/ W; v3 |5 `        Return theChildren.ToArray(GetType(Assemblies.Component))
: ~1 \: M- e, I
    End Function

    Public Sub Main(ByVal args As String())
% f+ K+ E5 l/ u& q3 j        If dispPart IsNot Nothing Then
            DoIt()
            Return
5 j3 O2 d% p' ?/ Y. q        End If
) e2 }' H9 q  g, l' V
0 J6 }, U# w4 b( y3 [$ e    End Sub
$ Z% u  Q; [: ]
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
! v. t: [- \9 L% n    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
" Y+ k0 l% o: C! B1 X4 F+ ]            Return
! r$ S) \) Q0 p0 s7 o# o5 ^        End If

        Echo("  Load notes:")

$ N+ `1 l: f) q0 ~$ D        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
; _6 K3 p' o- C" D            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
- V/ u2 `, j5 ]5 s% a. w        Return Session.LibraryUnloadOption.Immediately
    End Function
6 f  T  c1 Q' m, b* O
! N2 @' H; h, H4 l  r6 W- OEnd Module[/mw_shl_code]
/ h- V4 `: x7 Q9 K! |* H+ D