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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
9 K7 A8 g5 \. C7 z; ]Imports NXOpen.UF
1 t+ A3 n' R* l" k* f7 }4 y/ K1 B! wImports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
1 b% N+ ~4 G8 \+ o6 j/ R" Q. M# O8 U' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
7 @# O, p& E/ C: c; \'
Module NXJournal
3 E: M( a) j; Q3 M    Dim theSession As Session = Session.GetSession()
4 n9 p  L0 X3 R4 q% w" u    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
2 O$ Q8 A; z% y& J' b/ r' \% J        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
/ |1 @- N; |& z) E            Echo(allComps(ii).DisplayName)
: L) q# o3 [4 i9 f2 s- p        Next
+ U( a. ]6 z: q
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
# K+ d: {8 O" G* t7 ~  U0 n3 Q        theSession.Parts.LoadOptions.UsePartialLoading = False
# t" _0 R- ~4 |
  n! P! I$ c- q; C5 U$ e; w4 Y        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
# r7 {; M& x0 k- g2 O& Q
+ b( b+ K+ O  S: Q8 ^        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
* j% w4 X) N+ A) Q
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
8 `; T5 R: |9 \. P* m6 c        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
6 D* v6 V" ~) f3 O2 b0 q9 a# O        Dim aChildTag As Tag = Tag.Null

# O$ Y; b$ ~  T- s6 Q' Y: Q5 U/ P/ J. k+ T        Do
+ q- ?+ g' w" G( B% b- O7 O" T            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
1 t+ v' J% i+ w1 |, H4 Q            If (aChildTag = Tag.Null) Then Exit Do

( e3 R, g' o8 ]- A            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
4 X4 Z& o9 E$ x! g% n% h        Return theChildren.ToArray(GetType(Assemblies.Component))
8 J* ?/ k5 b! ^  F
    End Function

! p" ~9 q2 I5 {" y0 O+ M3 _: p    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
5 l$ n# m5 I1 I& o  Z- Q            DoIt()
$ M/ O# b4 O; E! j. p+ e& Y            Return
- t. A4 x6 j$ ^$ e        End If
, a! ~, E) _3 P0 U) M5 g
    End Sub
& h1 v* g, a5 }1 U
8 o; ]6 V6 y; n+ j7 ?. ?    Sub Echo(ByVal output As String)
. G2 z1 X0 u& e! z        theSession.ListingWindow.Open()
  u' b. d# j  q9 A" d6 I  e& D        theSession.ListingWindow.WriteLine(output)
% ?: U; i5 y/ O        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
* D9 Z' }2 F# \4 t7 D            Return
        End If
& x2 t  Z- Y6 w! V
! R8 \3 `7 U( s3 ^7 B  i5 r$ W+ j( r        Echo("  Load notes:")
2 T. Y, f! W$ W1 _9 m
6 G! r9 d, _+ J( N2 G% r        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
( }$ ^. ~" F% p6 S& A0 _5 Y: T+ j        Next
    End Sub
1 Y6 S3 L6 c3 _1 U- i5 \
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
) s0 F! k2 e: B( P' [
6 ~& h8 k* Z7 wEnd Module[/mw_shl_code]
6 b# l% ~4 e( |  I* c8 ?! ?* @