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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
6 F+ n9 z  U6 [+ [0 s+ ^- L'
' The OpenComponents() parameter
$ T! f: G* c) `! i' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
( ?; y4 v/ s, N3 |2 t' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
- V9 q! j' t1 J+ V. N! ^    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
0 ]1 c+ y0 A6 `: J        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)
4 }* ~8 O8 v8 q8 C( h6 c        Next

3 h5 {4 m2 x3 {; {9 m# U0 r        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
7 W9 h- D, ?! U8 n4 y) d        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
' A8 E2 q0 K3 Z# q$ }2 e% R        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
+ [; B1 s) n+ u7 ~& }3 Y        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
; g9 ~9 `* ~, c8 J; f7 a            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
1 u8 k4 N& p' i
" |! L* K! a5 K9 {        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
1 M" k5 X6 E+ e5 f/ P3 U/ M# H, ~
9 a; H$ _$ h/ j3 t$ I. ?6 ~5 ?7 e        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
+ e8 ?2 P& W' b9 y        Dim aChildTag As Tag = Tag.Null

' S1 z( ]! ^7 J* _7 V  g8 Z* k3 M        Do
7 n- K) `3 {5 o9 ~8 u# D            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
/ e% b! `" K3 M' O( I9 \% h            If (aChildTag = Tag.Null) Then Exit Do

9 ?( M9 y" U/ c8 b0 q2 E/ U            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
6 V, l. X, v' b3 g+ u        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

& s7 F7 u! i0 s# o    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
1 a9 C0 H5 W8 E' s& o            DoIt()
4 [! N4 T; X% i- `4 \            Return
        End If
& z% p* b* Z# y9 v" P
5 d/ Q& R3 y! o/ e& _# u* F    End Sub

    Sub Echo(ByVal output As String)
: c$ x  c0 o- [  B+ w8 s/ y1 _& ?        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
- p7 I1 R4 S* d9 W9 m        If load_status.NumberUnloadedParts = 0 Then
1 |) }+ L( F1 p" n% @            Return
& v) f* i% C% l5 y* R4 c        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
) H5 q- Q) g, w4 K            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

2 N" h, @% X# W5 VEnd Module[/mw_shl_code]