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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
( R: w7 c% i$ B3 wImports NXOpen.UF
0 \/ [& K& \6 F0 a+ {. T: N& ?Imports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
  i9 m9 `. t; R4 J'
$ H9 i; l1 h4 S% ?, ?: I0 `Module NXJournal
4 r' I; j. n' ^( G# d2 [    Dim theSession As Session = Session.GetSession()
4 A7 }* q8 d8 H! l; p) C' p    Dim theUFSession As UFSession = UFSession.GetUFSession()
  s0 N/ l0 f9 C: _4 k6 ~    Dim dispPart As Part = theSession.Parts.Display
' O: e3 p3 x' \4 X% }! a3 [6 Q
    Sub DoIt()
/ r% _8 k$ o, r8 z! L% k        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
& u* V3 o+ E( k            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
& w2 ?3 R6 Q# V1 ?, k        theSession.Parts.LoadOptions.UsePartialLoading = False
: }' ?, |! [  K$ V1 q
& \& Q9 S1 \$ M# x8 R7 [        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
) Z  T  }6 e0 O9 S6 H, s6 E0 ~        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
, }  Y% c' A7 K! I* g        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

% ^7 X5 ^4 U. h, ?, c        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

; ]5 g! N+ n; f! f        theSession.Parts.LoadOptions.UsePartialLoading = option1
& S$ B# A( i: b6 {" p0 I- l8 T7 p
    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
! l* e9 S* @: G6 _  Z        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
* M& Q& C, e: U1 l        Dim aChildTag As Tag = Tag.Null
" D( ?- i! ^! B  l4 n- p4 n) ], o( p6 M
1 x0 x7 y4 b1 a1 \* Q; u        Do
7 |( L, p9 O6 e  |; r            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
0 l: ?1 a( f3 v3 q. ?4 |5 l7 i0 j; X            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
$ `3 [; g: T* j- L' p1 K0 E4 v            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
3 U( I6 l: H$ V
# u$ W7 L2 B) p! S# k4 y    End Function
  q' ?0 h- B* D1 T/ R8 r- k0 w
    Public Sub Main(ByVal args As String())
" g) m0 |8 F; ^% f/ R! X        If dispPart IsNot Nothing Then
            DoIt()
. h) M4 y  t( T) X4 R! I9 Q& l; x/ z; g            Return
/ ]* j9 R2 q; H2 W. c        End If

/ K( c2 s' ~, G5 A1 f    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
6 J# X2 Y# h% g3 }' y7 [        theSession.ListingWindow.WriteLine(output)
3 h) Q7 r$ E) R, i        theSession.LogFile.WriteLine(output)
    End Sub
) _! e7 k8 c! d' b, a3 Z* ^
# a+ K% N& b+ M% B: k% {7 ?    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
; }) i( D" c  J7 a- ~        If load_status.NumberUnloadedParts = 0 Then
  V; b& w9 Y  U+ F            Return
$ J( w) O% N" Z5 I' E( H9 @        End If

        Echo("  Load notes:")
7 A7 H# M9 w: ]5 ?
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
  O' M# ^4 ?1 D' P            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
* G2 {" P( J! c6 u  Z        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
/ q. G7 ?: n' ~" d( D" b* [1 G3 E        Return Session.LibraryUnloadOption.Immediately
    End Function
; e7 D& P2 j1 q4 J, V  M! P) f5 p
End Module[/mw_shl_code]
3 o- k0 Q; ~+ `% Q* E