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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
- }8 x! k% l' a3 z' w* ]3 C0 ~Imports NXOpen.UF
Imports NXOpen.Utilities
3 {5 K5 m9 z* M* f: {4 \9 h; L'
, X; z7 e8 N  k6 L" s) ^' The OpenComponents() parameter
& D8 I% L0 P, B' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
& ]- n" v7 I+ o( p'
Module NXJournal
+ s$ P1 A: s. u/ _$ b0 ?    Dim theSession As Session = Session.GetSession()
8 H) m6 R4 I4 Z7 P: g4 }    Dim theUFSession As UFSession = UFSession.GetUFSession()
4 E4 m0 Z  Z1 P( Y    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
2 e% U+ ~( v; G1 q9 O! V: o5 F! v6 |        Echo("Number of Components: " & allComps.Length.ToString)
3 Y1 V- O% t; y+ t: w        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
+ p( Z# w8 T8 V" `! {5 J* l        Next
3 K! T3 s$ u% M/ Q7 P$ _
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
) l7 T# z1 g* u6 ~: b7 ^            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

# `4 o; S3 ?$ q" \. d0 f        theSession.Parts.LoadOptions.UsePartialLoading = option1
" o3 J2 S* _1 v( ~$ K
    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
: m* f6 p* j7 c        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
# d7 k5 J. g! S/ t7 D  U: v- ]3 _        Dim aChildTag As Tag = Tag.Null
/ M! k; ~8 ^  L& v+ X7 X+ ^, N( C- @7 ]
7 C& N/ n/ H5 `; r% l        Do
6 d3 X* v# H# B. b( u$ W2 ^  q' {& p            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
5 g) G6 L+ v" N3 B# `+ y+ n
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
; ?9 v. M$ |2 t) u/ ]9 t            theChildren.Add(aChild)
        Loop
! p5 a, w; v% ~+ y3 T+ k& U/ P( j1 r        Return theChildren.ToArray(GetType(Assemblies.Component))
  Y" P7 A: ^* P, E; p
    End Function

6 j0 ?& t/ H/ S7 A2 f# E4 }+ |    Public Sub Main(ByVal args As String())
2 H. Q# }5 O$ j9 t        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If

5 _8 i9 Z. _& W6 n2 w    End Sub

    Sub Echo(ByVal output As String)
9 ~# s. F8 W3 V8 j) |' J, o  Q        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
4 Q% X- F( \) {, ~, _
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
5 \5 {- H$ v7 \1 v% |. H8 d, l  z            Return
        End If

) H5 t" y# e; S7 @7 ^" o        Echo("  Load notes:")

- _& h- |: M$ E        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
9 K8 m# `! v# o$ [& h4 H
    Public Function GetUnloadOption(ByVal arg As String) As Integer
2 C9 W6 A, v+ D4 m$ V        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]