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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
' B: D4 _1 _4 rImports NXOpen.Utilities
; I! r3 [6 ]- h6 Q0 S. k: `0 Y' }, v'
' The OpenComponents() parameter
' J" ~, y- E8 @+ [' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
& U7 c+ L, J8 h% M' only opens unloaded components fully (see also PR-8406345)
! g! A2 s4 U9 g; N5 g! S4 a' Workaround: collect and open all components individually
'
1 u5 n: L0 D: _% b5 T9 L* |1 sModule NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
; V# ?4 J  g( A7 B7 Z    Dim dispPart As Part = theSession.Parts.Display
. Z& u" N( N2 J& @6 S# m* K) y1 W
    Sub DoIt()
1 f5 u( {4 l$ l        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
$ N- Y9 e! ^/ I8 r. J" D        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next
  ]9 A0 p0 G2 v, B' }  D& R1 ~
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
( V5 K4 ~% o& _+ l  @7 e        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
+ D8 a# r! Y& d6 z! P        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
: m- t, v0 |$ F: N. b# x' R" S+ f        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
% B" v! r: z3 V  T! K8 d            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
- I: x$ E0 w2 ~) ^
5 V& @9 w( p: z$ b" c/ w( V        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
7 h0 J- X& S7 [  j' ^; \
' d# r; `7 j7 r  L! R" F' S        theSession.Parts.LoadOptions.UsePartialLoading = option1
( A% p: C6 S, h1 G$ {, p8 p! B
7 u2 P' ~/ L# z! {    End Sub
9 z7 R( Y( c0 m1 e
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
& l- A& w9 ^$ Q- V0 ^2 n& D        Dim aChildTag As Tag = Tag.Null
4 i' [9 Q6 v, ?% T5 z( w+ |
        Do
7 W; r. _8 \3 E) V            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
' G/ C- W' U; k            If (aChildTag = Tag.Null) Then Exit Do

  d9 x$ W: M! V/ y            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
' y/ I: F- F% a8 b! ]0 S            theChildren.Add(aChild)
        Loop
7 B# [  ]( p6 Z: T: y* K$ a9 h7 a        Return theChildren.ToArray(GetType(Assemblies.Component))

  z) y+ A( Z- x/ S3 T    End Function
: X5 C, ^; j3 x1 b7 X1 j: I9 O
! F) Y: R; n- K" e* z    Public Sub Main(ByVal args As String())
2 D; ]! Z% E- o2 Y8 ]. k3 S        If dispPart IsNot Nothing Then
+ o: \" i' |0 |- Y4 J            DoIt()
            Return
        End If

. L, O7 ^4 @1 N    End Sub

0 {# A* m2 j+ D, H4 \    Sub Echo(ByVal output As String)
9 S4 i$ F  V" b( J        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
3 }7 F& N, \! w- s# r$ j( C- v7 X* s    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
* ^. P4 u* K6 ^4 z9 j' F$ }! a" I# x0 O            Return
        End If

        Echo("  Load notes:")
5 u/ O1 |- p5 l; x4 o
6 b4 B! H2 T% e6 d6 h        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
& J$ A6 N& x" A7 Y8 s. K# Q            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

% t7 a' }, F: O: ]& |8 u' W    Public Function GetUnloadOption(ByVal arg As String) As Integer
) d$ S& C( Q6 |" }3 ~2 K        Return Session.LibraryUnloadOption.Immediately
9 T% ?& C+ S& Q1 O    End Function

5 P6 X# o: ]/ i: a* h7 |# @End Module[/mw_shl_code]