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

admin

[mw_shl_code=csharp,true]Imports System
/ Z$ Y9 f, Z3 nImports NXOpen
4 B/ v- L0 O% CImports NXOpen.UF
Imports NXOpen.Utilities
& x% C9 D/ t$ O( v: m+ Q'
" D# {5 m3 P- ^' The OpenComponents() parameter
. o. n. f+ m2 q% t$ ?/ b& x3 E' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
+ ^) L! v# i. h; D'
Module NXJournal
, b- V- i. Y+ Q. v+ w    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
  f, e/ A8 E+ K/ k: t    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
2 L' w3 L8 B! _/ e5 b) m        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
! H- x& U, A: s9 M; q4 A        For ii As Integer = 0 To allComps.Length - 1
( z" A5 L- @. C2 A; R            Echo(allComps(ii).DisplayName)
% a$ n- Z6 d. `# N- E        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
- j7 h' e/ c9 o7 |' h! \" J        theSession.Parts.LoadOptions.UsePartialLoading = False

$ o8 \: X8 G3 x        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
& N- K3 a: v; E/ s        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
. u  x$ i! M8 g# A* P
2 y8 n. |+ i) g! [" E" m        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

' a, b8 Q! M3 S* S: h$ D' ~9 j$ i        theSession.Parts.LoadOptions.UsePartialLoading = option1
) ?- A4 d# h* V* k
    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
8 v. T; N  ?7 G        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
5 p9 j3 h6 {  A7 p' x- r' Y4 `7 s            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
! h% o# a! s/ Q- `; l# u/ o        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
6 f) {' {8 u5 |% ^            DoIt()
! M$ E* ~  X& h2 h4 b/ K            Return
        End If
2 p* c3 p( t. Y, {
9 `* y/ N) f: w4 H( [. h* K    End Sub
/ d2 @; i7 b6 H& ~
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
3 y. s9 A& n1 y1 ]' z( u; y$ O        theSession.ListingWindow.WriteLine(output)
6 `! M8 w& ]$ P* Z/ y        theSession.LogFile.WriteLine(output)
5 x$ P# ~, `1 P7 ]8 F    End Sub
( s; }; z4 {3 i0 p2 D
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
' ~  A6 z! t& n8 D" i3 G, M9 ?        If load_status.NumberUnloadedParts = 0 Then
            Return
& b/ \" d& E; n        End If
' L# C9 B* b) V+ `
        Echo("  Load notes:")
& D6 Z3 ^( e8 F
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
9 @' U/ Q  P1 X9 L' j" s& C        Next
    End Sub
: X2 J) t6 ~/ x: Y
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
7 t0 Q! y+ \& V& U! k    End Function
6 M6 d! E6 T$ j) A0 u
End Module[/mw_shl_code]
# d" A  M1 i9 i# @& n