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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
) M# L4 P  X( N) f9 n! Q'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
- v( `( ]6 u1 B! E6 T3 O' only opens unloaded components fully (see also PR-8406345)
% X' i0 ]' V8 ^1 u' Workaround: collect and open all components individually
) }/ H9 v5 D8 {'
Module NXJournal
0 {/ \: U1 r3 Y! \    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
/ \9 Q& q" P& p. p# D+ k
, `1 X: X$ I8 W/ ~# t6 A    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
) `) n& ~' U; z3 k# Q5 o* r        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
6 h+ l6 N1 A- O+ B. P1 j            Echo(allComps(ii).DisplayName)
        Next
- M/ q- o, k  r4 J/ r: ]
1 C5 ?" x' C- n! y) s, x        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
7 O9 T) d0 C7 Q. X        theSession.Parts.LoadOptions.UsePartialLoading = False
' M( @1 x& A1 s  i1 E
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
3 Y, u4 d0 A: u& W4 {        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
. L" n+ J1 P- `% N6 K
2 x. |, p8 f0 z  k) X" M5 G        reportPartLoadStatus(partLoadStatus1)
9 R9 N# B/ a) T: C: x" c        partLoadStatus1.Dispose()
& x0 v: D3 {3 k/ ?4 f& e
        theSession.Parts.LoadOptions.UsePartialLoading = option1
+ {$ z5 q1 o+ I& c3 g$ N
( \# N0 k5 J" u1 g    End Sub

! ]1 x! f) f7 B; y. u    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
7 D4 m3 s# k0 D        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
  _) |& q! D: x4 g4 T1 |3 w) M" z' W        Dim aChildTag As Tag = Tag.Null
7 I! T' M& V3 ~# M
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

9 E. K; k! @8 y' b$ O( k            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
2 L" C7 G; r' Y$ O% h2 y        Return theChildren.ToArray(GetType(Assemblies.Component))

2 Q5 {) ]& M  G: s! N* w# \3 M. |% N6 f7 F    End Function
) E& h- U3 w) y! Z# g/ K7 o5 h
0 c5 M  i* a$ _$ y+ Q- k( v    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
( H9 m2 J6 U6 S# Z. V9 _9 O) j/ x6 V            DoIt()
            Return
# A4 X$ ]$ \+ x, m  @* ]        End If
$ D" M: c. s, n2 o& _' ^
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
' V4 I2 |, @0 I/ U' o6 W        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
: X. K3 c+ x+ c    End Sub
3 u( _! Z! J) k2 |! B2 j
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
+ A6 S5 Y8 J+ B( J" B) w
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
& q& _/ ?2 v" n) n; i; o+ Z            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
, G7 I( h. p8 u$ z4 `0 V0 l6 i        Next
    End Sub
- b4 W! \8 r: C+ I% s+ S# U
* G, t0 \4 T5 b5 v    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
2 \$ e0 w" z8 w3 |6 p8 {
End Module[/mw_shl_code]
' T8 G* u( Y+ P1 s3 Y