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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
* F* s$ q$ v8 T- H: `  j- bImports NXOpen.UF
Imports NXOpen.Utilities
'
- o9 p1 R: i2 v. P) z/ E$ h' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
6 ~* X( {! s" w+ o'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
* R# B/ I2 f# E0 X    Dim dispPart As Part = theSession.Parts.Display
; p5 f/ ^8 q9 ^/ ^% @  L$ R
  |  ^5 W" M+ s* }& d    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
0 G. H$ ], n9 R( \, p        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
, F6 e4 m2 [% @- X' [' B        Next
/ V" k) T$ l, m
! D3 L+ ~! D* e/ r( Z% U        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
1 f$ l3 m4 i5 l* ~5 o        theSession.Parts.LoadOptions.UsePartialLoading = False

4 s8 W7 y; p3 f! U! Z        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
1 m* v! y# ~+ s3 ^# U1 l        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
8 N' U9 a7 t+ M6 b8 G) @# p/ ]/ A' _0 B1 _        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
. {6 K& H5 L9 ~6 z3 S) m
        reportPartLoadStatus(partLoadStatus1)
( H* K4 g5 A* K! `9 F1 x        partLoadStatus1.Dispose()
' H$ y* F$ ^3 j  o
        theSession.Parts.LoadOptions.UsePartialLoading = option1

7 c! i5 g7 C9 S+ ?5 v6 _    End Sub

+ r& e& T9 N% @    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
2 E7 \( ?/ q) G. @5 S- y* u        Dim aChildTag As Tag = Tag.Null
9 N$ r  Y: o" \
        Do
/ Q/ N5 L0 S! N2 f6 ^            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
& D* h; C* R" H1 W            If (aChildTag = Tag.Null) Then Exit Do

3 Q6 J$ W. F: Z/ x            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
$ f% |6 `. X) L, G            theChildren.Add(aChild)
        Loop
1 p/ W1 s/ C: c, ?6 S& N        Return theChildren.ToArray(GetType(Assemblies.Component))
4 T" h5 y; u) n: T! F
1 U0 n. E6 y! s8 y    End Function
$ a; N8 h/ X# h2 S& H9 A
6 F. |3 a0 B7 Z- E. A0 N( V    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
3 Z: _: x! H( y4 c! j
    End Sub

# t: h3 N4 E2 l8 P, ~3 a  y% H    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
) E6 n) T8 n, _, ?4 R& l. U6 y5 A$ p        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
+ S& }  V8 g- b- b6 G            Return
        End If
0 m5 d% \8 A; O  k6 i5 I0 ^
        Echo("  Load notes:")

& b9 z4 `4 u0 c  ?        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
, k  X  c$ o0 c+ H- k4 i7 R            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
$ s8 \8 U$ [. h2 u; n: C( x        Next
    End Sub
& ^& S/ n$ h9 `4 `$ U+ |
/ l9 q& Z: K9 N) ~  G    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]