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

admin

[mw_shl_code=csharp,true]Imports System
/ b, [2 z4 ]* m* u! k7 w7 RImports NXOpen
7 L+ J" O1 c6 fImports NXOpen.UF
$ T! ^3 Q: O; }' y7 `/ ~1 ^, F7 c* rImports NXOpen.Utilities
0 H; Y+ t* ^1 C'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
" i: _& v' Y5 [' only opens unloaded components fully (see also PR-8406345)
( j7 Z. h4 ?9 v" y4 ]8 L' Workaround: collect and open all components individually
'
: h+ j3 `( z( D* U+ _" [Module NXJournal
    Dim theSession As Session = Session.GetSession()
- v  j. N' T& N: L    Dim theUFSession As UFSession = UFSession.GetUFSession()
2 ~7 R# R: ?4 K+ k+ g    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
/ x3 n5 x! D0 W; y5 E        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
2 F/ h$ v' A; u6 V, E        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next
" ^3 I$ p1 F; m- z0 `9 B( ?
# [, P2 H; K/ |  f5 {5 K! `; m        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
# W4 z! Y  D8 ~* w5 ^, v        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
0 O3 j  L: U5 i( @) y, d+ n        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
: s" m8 P  n- C/ k" Q6 \            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

; {% G1 \7 `& L, M        theSession.Parts.LoadOptions.UsePartialLoading = option1
0 i5 @( t$ l% Y. x
6 v6 y# z4 Z* ^9 R    End Sub
: k# ^4 a: }# i) }) L6 \6 j
3 B9 D$ y8 }4 P# t8 r0 Y    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
& i+ S& V3 n/ S" }/ L. @$ f" ?        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
( W2 b+ j1 m1 k9 P5 y        Dim aChildTag As Tag = Tag.Null
) K& d$ _1 m* k% }: K8 j3 r
, e3 K+ ^" C# ?9 G        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
: J/ s/ k( A8 l/ n            If (aChildTag = Tag.Null) Then Exit Do
3 I/ G) j3 |+ U5 J. Z
* C6 F( b& b, z  r# `! x            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

0 T2 o& A! l. S3 r! |    End Function

% a: G* q, ]! v0 s+ y    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
  }4 h# L9 @0 z
    End Sub
+ a( J, q, j% j+ U5 x  p
; ]* \  }; a: l. N0 L; o1 Q    Sub Echo(ByVal output As String)
7 V: v/ m+ a. U# Y        theSession.ListingWindow.Open()
1 K2 O& ~# a6 e6 t. T# e6 ^$ t        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

( S- z' h2 K$ g    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
; M0 a& O4 {4 b/ Q/ A+ Q5 F            Return
        End If
9 F( u: Q5 n5 j
- [0 h" z& L0 C. G1 w4 }        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
) \$ y8 J# j5 X6 V4 l0 `            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
. o+ j) I! F* j  u) y/ D* ]        Next
0 [. Z! ?0 Q* s6 t  B' F# a) K; P; g    End Sub

% P! Z4 _: J5 e2 j, y( e& K    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
! a6 b# a: B/ T( Q    End Function
0 I0 P! Q( X: q
  W: d  e6 S9 N1 `End Module[/mw_shl_code]
) n: b* r9 t* k/ Y