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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
* j  H0 j. E/ t5 o) k- ]Imports NXOpen.UF
# \; ^1 e0 u# B; B: FImports NXOpen.Utilities
) [8 H3 X/ F0 O9 c7 S'
' The OpenComponents() parameter
6 P: \% v, V% h& J4 B& Y' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
. _2 F; Z5 H- r  z. U5 s" v' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
7 z' y6 N  P" J" s1 t: E- b0 @Module NXJournal
! ^4 n) I& c. l9 V    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
, l9 u+ Q  w$ y/ e2 u; |    Dim dispPart As Part = theSession.Parts.Display
& _. I9 r  n( ^2 c5 Q1 w5 c) R! ?
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
8 M' U2 L! v2 }) ~        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
( _4 v# u$ X& o* N6 E        Next
) s! Y- r0 y( l7 x2 ?7 S
- v- v( c$ k! S        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

- I9 \! o0 h. o  Q/ M, G# g        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
9 ]8 f2 ^. m3 x, p! j( V& d( e) k            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
; Y$ C# }, {& m( z' K' t6 w- j
        reportPartLoadStatus(partLoadStatus1)
+ `' G$ N$ C! A% J. s* n        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1
: B/ k2 `6 E0 {0 K; _
    End Sub
1 g  `2 J) j4 W) y+ H2 ]0 ~
) v) q7 S7 H, B/ ~* h# e    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
+ e" ]( z0 I: ?. g        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
# D) w! P' ~; V        Dim aChildTag As Tag = Tag.Null

' x; t4 _  L8 d' N1 e        Do
( Z/ A9 ^' G' W- ~8 f            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
9 \; }, n$ A$ U            If (aChildTag = Tag.Null) Then Exit Do
  i7 V; b( c  {$ _1 D1 }
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
" n# C0 I- H+ u7 w        Loop
7 A# I( w- M9 D; P        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

7 V# f8 s; I# }( i/ R5 t: A* V- n    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
7 u2 i% r" Z% y& |8 x            Return
' a# H, Q  _8 f, C        End If
' _6 x, W0 F& z* x# P7 ^' t) J  ~
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
: L! |6 ]) A( N: [9 X8 u' m
) o# M! B0 g+ I, S4 c    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
* p# D" V* ~1 e9 S            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

+ H- z8 z+ H) D2 ]# K    Public Function GetUnloadOption(ByVal arg As String) As Integer
0 Z5 F! j8 \) D2 [! ^        Return Session.LibraryUnloadOption.Immediately
    End Function

6 P5 {; Z  \2 \End Module[/mw_shl_code]