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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
4 l) T3 y  L) Z  E% PImports NXOpen.UF
Imports NXOpen.Utilities
# M9 _1 a6 M8 `% m' v'
$ H$ B; W  z7 _! ~8 h( b$ X' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
# s: ^! M  n) J* o    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
6 `% q! z$ G3 h4 x  I
    Sub DoIt()
4 H% N& N" {: A: b5 H) q        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)
; z0 w' r6 J) s        Next
2 J+ Q! r8 j+ r; @$ k! w6 v/ w
9 p1 ]4 Y, [' B, j' n        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

" F, K& F: _6 Q" i! D: H        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
1 P5 i( D8 {& `3 }; U            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

( x( d- B( [/ n6 @7 g  B        reportPartLoadStatus(partLoadStatus1)
" H0 L) T7 @% G9 d9 g4 ]3 X" q        partLoadStatus1.Dispose()

+ Q+ C% L$ v4 \9 |* b        theSession.Parts.LoadOptions.UsePartialLoading = option1
4 q  `1 ~- [4 y. J: v
$ `# I7 V& |# n* b& t# X    End Sub
5 e: N7 ^5 U) W3 d$ O) m
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
6 k* s! p8 i$ R$ z6 c8 v        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
4 S( }3 q. H' t" L, V
* |" s1 ]  i: f        Do
# B1 ]: _3 H( O            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
1 V# {, j+ g! u/ C            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
* `/ t! g* T2 u  e) a        Return theChildren.ToArray(GetType(Assemblies.Component))

, X; E8 R2 Z0 }6 W5 B" T    End Function

5 a" o3 k- d+ h9 A5 k) B5 g0 G8 ?3 e    Public Sub Main(ByVal args As String())
  m  ^0 Y2 S, Q/ Y        If dispPart IsNot Nothing Then
! A; @6 T& u" U. U* o7 l! @            DoIt()
/ \% m9 s1 d, K5 a) D! I7 f8 R/ Z            Return
        End If

8 V  C8 q4 N# l  o    End Sub

    Sub Echo(ByVal output As String)
0 E/ A) |+ X: F, _        theSession.ListingWindow.Open()
1 K  l( ?) v/ M. _5 D& K& S/ S$ {        theSession.ListingWindow.WriteLine(output)
; a! G) L5 O; X: n$ L        theSession.LogFile.WriteLine(output)
5 ^" f% N* t2 w( Q1 T! j7 |9 u    End Sub
0 z7 w, x0 X* z% P! l
4 s, h6 q2 X) f5 o' C0 C    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
# d( [' U- I1 I+ }% v            Return
        End If
2 Y; n3 e+ O- z/ o5 S8 O" U% F+ Z
, e0 L" x0 X. E8 m7 K5 B        Echo("  Load notes:")
) e9 i6 x4 j; T
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
! `) _; G0 F/ V* b: a6 b            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
$ e' I1 H4 r: m- m& c
    Public Function GetUnloadOption(ByVal arg As String) As Integer
- u/ o! W. ?* B+ ]        Return Session.LibraryUnloadOption.Immediately
# h( O1 f, R' X! ]    End Function

End Module[/mw_shl_code]