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

admin

[mw_shl_code=csharp,true]Imports System
: @  A" V/ y2 Z# ]Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
& C' N; ?6 ~3 C# O'
' \( h) q. p; c! N$ g& w# q3 J$ \. n8 B' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
* ]/ I/ f% H/ z4 S'
) t( I" ^- e$ @/ B0 Z  H2 @% x* yModule NXJournal
    Dim theSession As Session = Session.GetSession()
1 c& Q. w: _* T& |: ]1 h0 o; \    Dim theUFSession As UFSession = UFSession.GetUFSession()
5 ?( r2 g  u% n    Dim dispPart As Part = theSession.Parts.Display
* `* A1 S6 }# f" @  E5 g4 |
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
. ]) v/ ~4 c8 u: y            Echo(allComps(ii).DisplayName)
        Next
: B  T2 q0 i( o  c; r
2 f( L6 u. a6 }        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

2 ~* ^7 c7 C# @8 l        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
, c& ~) D0 M% y( y( Y7 M        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
& m* u* E3 }. m8 S            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

7 _& l  @1 p: M. G' k+ ?, {        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
  D7 J: u+ S  F; Q# D- p
        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
5 x; A  t" F5 {% x
  l% V9 }: _, J    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
% f# [. |2 \# H        Dim aChildTag As Tag = Tag.Null
4 O  [* C" a. E- i4 l
1 }% Y. I" R4 s2 m8 b: |2 S        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
4 Z' w+ j) ]/ {5 L
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

: r9 X) [7 M* P5 |+ f    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
: k7 m6 e5 N1 y9 q            Return
        End If
8 i4 U. T6 ~' y8 f- H4 w- B9 Q* X3 F
: I- ~0 C  W& B- Z/ @    End Sub
- G2 r/ o+ k4 c4 V& Q8 J6 O: g
    Sub Echo(ByVal output As String)
8 ?* a9 i) V" J" @        theSession.ListingWindow.Open()
$ }4 p& t& R2 A& ]1 S3 J        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

/ d9 x% x- T" r    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
8 B  i& [! n0 X: L6 a8 F            Return
4 ~" [+ w& a' x8 P        End If
- @0 p9 [1 d7 z  ]
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
7 j" v5 h6 a. R    End Sub

$ M2 S$ Y+ w+ A    Public Function GetUnloadOption(ByVal arg As String) As Integer
" `' i6 D4 ?" z$ b+ q, ?        Return Session.LibraryUnloadOption.Immediately
# I3 W+ l# p% g  P' v    End Function

End Module[/mw_shl_code]
! o# m- }2 A7 |5 F/ `& K  I+ z) t7 t" D