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

admin

[mw_shl_code=csharp,true]Imports System
1 y8 q7 X( K) n6 W3 W9 EImports NXOpen
* L- g% X& Q9 h. G# s# n9 s! gImports NXOpen.UF
Imports NXOpen.Utilities
'
, ]; }2 X: d$ |# |! e" H, @) f' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' }5 k' W; k$ {6 F' Workaround: collect and open all components individually
. a' d* j' q5 ^) M9 V6 S'
0 ?  ]7 [: y# x2 n0 Y" N, ^Module NXJournal
( g% \+ R8 h& K% C' _( b    Dim theSession As Session = Session.GetSession()
* k2 ]. w7 O: V) K. ]3 @    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
) R. E' y; [4 U+ z" j/ A7 \- f        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
6 U/ o0 k( o% D5 B7 P. f        Echo("Number of Components: " & allComps.Length.ToString)
9 X8 I1 r9 y, Y        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

0 ~$ h5 w$ ^9 e        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
% U  f8 Q8 H/ ~6 @* n        theSession.Parts.LoadOptions.UsePartialLoading = False

4 V" J1 n) C! q6 u# w        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
: i5 K9 O5 d* |        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
0 l8 U4 s2 s3 z        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
4 q- x3 A9 l8 o+ x+ u% u) {9 `
8 {6 g* _4 z# x4 y        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

! M$ w6 }8 H% P: Y4 H& g    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
* \3 M( g: Z+ k. l  d" d        Dim aChildTag As Tag = Tag.Null
/ R% \, a9 I. }( r9 i, Q
# U, u+ x9 V' w1 ~+ l7 N        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

/ W7 Q4 ]% c8 }0 ?8 L2 m6 u            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
. f: n/ U8 [6 o% E            theChildren.Add(aChild)
5 g+ D- i  U7 y. l" E- m" G( _  `% z        Loop
8 H8 |) v5 h% p3 e) q8 p5 ?  D        Return theChildren.ToArray(GetType(Assemblies.Component))
9 ]' D. }2 g: P& i" c& k
# T' u& ?% U. e0 w; |7 O$ M& z7 s    End Function
3 O# F% d9 m5 F. k$ ?
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
0 f4 y$ b* N2 P2 G! t9 U
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

" P. X" P8 F. C2 D2 H% U; @* A) C" \    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
7 R' F9 a, W* C$ J+ f, A0 j            Return
( e3 W: V0 x1 c8 y  s! X        End If

8 Y& B' O* T1 u  ~) L        Echo("  Load notes:")
* t% O2 Q! d! u7 W2 a
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
3 q! C+ x- J) g8 q            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
6 z, y' h. A3 f' r    End Function
9 \! p! n4 J& S: B# J0 Q" q
End Module[/mw_shl_code]