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

admin

[mw_shl_code=csharp,true]Imports System
' {2 w) e9 E9 L+ tImports NXOpen
$ c, ?) M6 D5 mImports NXOpen.UF
Imports NXOpen.Utilities
'
: I" k6 W2 c2 V" \) S6 e' The OpenComponents() parameter
* @5 K5 O( ?* ?% r' g' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
- t7 y& v6 ^; a5 e. N) m$ }Module NXJournal
3 u5 H2 H' f' v, y2 J    Dim theSession As Session = Session.GetSession()
$ j" z+ K7 j# d. c1 R    Dim theUFSession As UFSession = UFSession.GetUFSession()
& {, E, H' @' b( @6 {! x    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
0 v/ B% z. p; _3 k        Echo("Number of Components: " & allComps.Length.ToString)
- N, A' {" T; U, Z* I  W$ D5 T9 R        For ii As Integer = 0 To allComps.Length - 1
+ C( _; z, t! M- S            Echo(allComps(ii).DisplayName)
& n4 j3 g; x' ?" Z, m6 v* a7 u+ H        Next
; ^6 o# E. l, _5 ]7 Q
% a" Y, \' ~  ?7 U8 P        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
( k" n& }; J5 ]+ J        theSession.Parts.LoadOptions.UsePartialLoading = False

6 I0 d% m3 n( W9 [/ i1 d" L        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
- u5 `+ p1 p2 z! y; L2 g        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
) i$ l8 ]. K( j: _        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
7 R6 \* w+ I/ F8 u$ Z) U$ @
4 R9 a& P) ~" r5 v  R        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
5 N  F$ |; Y. o0 B7 b
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
) n, s$ D2 a& {8 ^& `' U: G        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
! X  V! v6 E0 t+ Z2 I' m        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
& W# Q( s- I" b1 D
5 |# J& w, s$ r( K            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
) \8 C% r, }( ?8 {, f5 l            theChildren.Add(aChild)
$ f1 K1 U1 q( w$ f+ n6 G$ |& n$ n# v        Loop
- a3 b. O  }7 ]5 x8 Q        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

4 V9 a9 ?3 k6 \) D3 E5 R    Public Sub Main(ByVal args As String())
7 ]5 `3 ~& L- z# G% P1 D1 H+ F        If dispPart IsNot Nothing Then
( _6 G$ H# \. R6 N% x3 j; _3 `            DoIt()
            Return
2 I7 g7 Y' D2 x( Z/ M        End If

    End Sub
& p! c) o  }5 Y# z2 ^/ |" D' k# q0 Q
# Y/ M8 f3 \, Q; m$ X- {    Sub Echo(ByVal output As String)
0 |  e; G. D- x" [( [        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
6 C. t( h1 [  R/ j        If load_status.NumberUnloadedParts = 0 Then
- W8 |" V! t0 W& i; K  k' W            Return
8 Q; h( k1 K. I* z" ^4 v        End If
* ?( d1 N! @" [9 k$ k/ }
* R$ L3 M' E- K; J5 C        Echo("  Load notes:")

3 ]. q5 `" l! q        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
9 Q( C  F. N8 h            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
5 p, [2 ^3 Z" U- F* Q  p: O    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
  q/ c$ ]3 k# ^  O    End Function
' F9 R2 K& i6 R  a8 u  g* z" n
5 g' Z* [$ U7 w3 aEnd Module[/mw_shl_code]