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

admin

[mw_shl_code=csharp,true]Imports System
  o! S2 m3 e* O! dImports NXOpen
Imports NXOpen.UF
* \1 S5 C5 D8 Y) Y+ f0 z' RImports NXOpen.Utilities
'
) s( n; ?, F. E  X. @' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
  ~, V: X5 {$ e* _' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
# H9 E( C: V2 o, j3 r0 V+ NModule NXJournal
    Dim theSession As Session = Session.GetSession()
# W  K/ k2 s1 C) d. t    Dim theUFSession As UFSession = UFSession.GetUFSession()
2 \$ |7 g* v4 I! d4 O$ c" G( E    Dim dispPart As Part = theSession.Parts.Display

6 `  i" u% L: W" C    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
* A5 {4 Z$ @; k- f        Next
; P- f' n. x) A. {2 m
+ N' P4 {: K4 S        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
  ]1 [2 V! d2 M7 Z  [
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
/ a, ]1 c! \% F( M        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
* C5 @1 O: ?2 I+ n0 g$ u3 g            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

* ?4 }) h$ w4 v1 [+ P+ ~. u$ @        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

! W% N! ^5 u- w7 V        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
2 r4 p. b2 L/ ]$ n
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
# A5 t2 u4 J# i; u        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
4 k- E$ c* Z0 I6 Y8 h        Dim aChildTag As Tag = Tag.Null

        Do
' _! O. O+ g* I+ n6 ?+ a3 o/ B            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
6 H" H; x) H4 ]. I' G7 `/ N            If (aChildTag = Tag.Null) Then Exit Do

+ Y% i' j7 l1 |8 F5 w# t+ ?% a8 x            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

$ ?" }( r& D  }    End Function
$ O6 a% Z5 [1 o* W5 _: W: Z* P3 Y
' ?0 ~' G; G& c' Q    Public Sub Main(ByVal args As String())
6 y, d  [3 l! m2 W+ l' n$ L3 }" M        If dispPart IsNot Nothing Then
3 |2 e5 q. }: `' c8 x$ p            DoIt()
+ X6 T! p, R( {$ M# o. Q            Return
        End If

3 b" |, n  \1 s/ _3 j! M0 }    End Sub
8 H0 v7 O- Y. G' ~$ B$ X5 C! u
4 ?2 o% M4 Z7 a6 J    Sub Echo(ByVal output As String)
% w. d/ g& h* D3 G        theSession.ListingWindow.Open()
" j7 P  V6 ~9 E- `        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
" t+ k- Q# U& k
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
! t' M/ k/ [- s+ V( q; |2 q        If load_status.NumberUnloadedParts = 0 Then
            Return
" F" ?' d: l. a. o1 A" I        End If

5 t( _1 g" I. I2 h; x6 U        Echo("  Load notes:")
! l$ {' i5 w6 D( f! q
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
9 M1 r; s, d! M4 I$ Y5 \            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
$ h5 K. N$ S+ j  ^+ K% d        Next
    End Sub

. T1 o7 _" k* [0 A0 y  X    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
% [7 g% o6 |1 e8 x6 A0 C
) `& z, c" A7 w$ D5 o, UEnd Module[/mw_shl_code]
; s  s4 e& F+ U9 ~