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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
) S* g& B7 v, m" s5 Z* B9 D2 T' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
9 w( |8 r$ {0 k9 ~! `' only opens unloaded components fully (see also PR-8406345)
$ M% {0 M- O  N+ f' Workaround: collect and open all components individually
'
7 k1 u* g2 z/ h7 OModule NXJournal
2 P7 C6 o, r0 U5 u6 G    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
6 u5 P  ]. Z3 q$ n" ?) o        Echo("Number of Components: " & allComps.Length.ToString)
8 T$ c: @  V0 {" o+ ?        For ii As Integer = 0 To allComps.Length - 1
/ I- b/ \# `1 r2 g            Echo(allComps(ii).DisplayName)
8 x2 G$ O/ K, j        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
+ {: ^' L2 P; B% J; f0 C0 A4 [        theSession.Parts.LoadOptions.UsePartialLoading = False
4 K& ~: v2 ?2 b% y4 v, D
# |5 ?) p) {5 f9 c; _        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
5 h3 a0 u0 U. B+ m( l* |, |
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
$ v" P( |$ ]9 u1 d% j
        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

* J' i8 Z- _! g! r    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
- t8 O1 v; I& ^# W$ k" o: }        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
9 m; U" Y  p. d4 R0 K% a7 f            If (aChildTag = Tag.Null) Then Exit Do
# z9 L8 }' d% I, h/ t* q# |. [; q
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
7 L: E' K( O9 @! C; e        Return theChildren.ToArray(GetType(Assemblies.Component))
1 I6 T/ l* H: V: {8 H( S
    End Function
3 u+ o9 N" d- Y1 d
    Public Sub Main(ByVal args As String())
! e; @( z1 G4 J0 T* G5 s        If dispPart IsNot Nothing Then
# B. h2 W3 ?: h+ d4 I            DoIt()
            Return
4 k$ u% B, }: Z# M        End If
" |  F: G# w# [7 w, N  G
# N, A# d& F2 z2 K& `, |. @  P. A    End Sub
! p. o3 M! M) ]- S% h$ i
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
5 h/ \; C, f0 i) t& c- l* M6 `        theSession.LogFile.WriteLine(output)
3 p/ \$ g% R4 _* _6 r* [# x    End Sub
$ U' M" Y, ~0 B2 {$ A2 ^; u4 Z9 A
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
8 i  g7 m! _  x1 G            Return
        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
6 k) e# M& j2 @& y* `- Y$ g; D            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
1 a6 E, ^' M/ e8 K* N) Q0 H' ^        Next
3 r# ]& E* }6 f+ R7 k& t    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
; r5 H4 E) G8 ]    End Function
& J; ?6 b0 O8 m* J3 I
5 f6 c8 W6 p: E% `4 l; d- S* V& VEnd Module[/mw_shl_code]