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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
0 q" i! Q+ y( gImports NXOpen.UF
/ c) D" p7 r% o; y% FImports NXOpen.Utilities
'
5 n7 h2 L! N& ]# X' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
* Y' [: {  m, ^# f# V- u5 H" l4 L' only opens unloaded components fully (see also PR-8406345)
# {1 T7 O3 ]! c7 @) s7 H$ F) O' Workaround: collect and open all components individually
7 b* D4 i4 P) b- a'
* d  I( e& @6 T  U6 n6 T! `% X, BModule NXJournal
0 {/ u; r9 I: ^+ _    Dim theSession As Session = Session.GetSession()
  c* G: `+ B# b" M# I# t    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

: Y* p9 {$ L5 e) o) k    Sub DoIt()
1 H; M. z+ h0 _* Q        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
& U0 k3 m+ l' d) V4 u4 D7 [  j        Echo("Number of Components: " & allComps.Length.ToString)
3 L! {6 U+ y6 t# _! L& {        For ii As Integer = 0 To allComps.Length - 1
0 ^+ W! Z, c3 W$ l            Echo(allComps(ii).DisplayName)
2 [8 \% {& X( U4 N  U7 s; O        Next
" t: Q. e" X  M# Z. @# C) s
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
% r" b) d9 N0 w
$ B& T. Y1 s( ?        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
" P7 J# G' j: z: y        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
) P0 a# S& q% d, Z3 u
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
5 k5 r5 r! O% y5 ^! ~, J2 I* c
        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

; N7 h+ W, j" q    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
/ o8 P4 \' }/ k% J) C        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
% Q* }0 p6 k" t) g8 ?8 {        Dim aChildTag As Tag = Tag.Null
( i) Y, G: m: G! J+ `
        Do
; ?+ V, j! Q" l" w% v, u            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
1 Z* w5 M/ c2 ~  v            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
& Y( {5 r# R; |            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
( z) Z6 R; V& |( U: @* `
$ `4 [2 V# p5 |3 U) m4 t+ B8 t% }3 T) p- e    End Function
+ x% k1 K3 q9 m: q5 D3 `
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
- o9 A5 q5 W$ y, H4 u: w2 S2 l            Return
        End If
/ E; F1 Q5 M: |3 U6 E1 L
    End Sub

. E. Q; O: B5 C! e* K& X. f0 |    Sub Echo(ByVal output As String)
) p* i3 I8 J/ k. x        theSession.ListingWindow.Open()
6 x  W3 |- a6 @; ?' t- r5 H! W9 q        theSession.ListingWindow.WriteLine(output)
/ j  F8 ?6 [* f3 ^2 K        theSession.LogFile.WriteLine(output)
    End Sub
6 j6 b, T' C& ]( O3 U* e, Z1 b
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
# w" A, l; ~! z( y$ ~/ p( p            Return
        End If
# f1 n5 c, o7 H5 ]+ {
' M% M  _0 i$ p; D        Echo("  Load notes:")
3 R- L6 V9 P7 N- N
( c8 I0 F  z5 m        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
. r% M) L8 U8 _: ~            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
( M1 _: D. ~% ~; d9 w% p        Next
    End Sub
9 ]0 V9 E5 M$ I. U; \, y7 y7 `
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]