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

admin

[mw_shl_code=csharp,true]Imports System
/ A3 e; p! u. y5 r5 P3 ]5 A% wImports NXOpen
- z& f" K9 E: N2 }* w. I  p9 s: c+ cImports NXOpen.UF
/ y, t1 L! L' Y3 S# _: m# WImports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
8 j) q# B& E3 l+ i, v8 X. v/ z0 e' Workaround: collect and open all components individually
'
' u0 C1 ?, o# j. {2 VModule NXJournal
    Dim theSession As Session = Session.GetSession()
# m0 |* M9 m4 U- ]- X    Dim theUFSession As UFSession = UFSession.GetUFSession()
1 o( }( d0 V- _& o# f' J    Dim dispPart As Part = theSession.Parts.Display
0 ~3 r" {0 d. o" J. |
    Sub DoIt()
, q3 u/ k6 ]3 Z" @        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
' R- O" z0 }+ s5 ?7 \  N1 q4 T            Echo(allComps(ii).DisplayName)
        Next
+ F) U/ }' `! i+ K" s1 ], A7 G
; D2 M) X  A! o& n# g        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
/ H; z3 i6 \& S$ Q9 L2 P1 @        theSession.Parts.LoadOptions.UsePartialLoading = False

& o- u. o6 o* b6 d1 d- e& {' u+ ?  \        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
2 W, s3 h& w  \# Q        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
6 }9 t" F/ {# ?; f4 `& n2 }        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
; }7 J3 {$ e* l  t! D; K            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
1 ~8 Z" j7 t! Z8 c& r* _, P        partLoadStatus1.Dispose()

4 |( @; d* I; c+ M% l: L        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
  `3 u  K: n2 t5 E- c2 O# m3 K
3 u  g, x5 s8 n5 e2 d" D) p- G2 `8 Y    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
$ h1 T! h; [' t        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
) W  A8 N" G7 z# o7 M
+ f$ O7 D. ]( N& Q" V6 U/ ^1 N* c- _        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
) K! G, p/ E" w" l5 I            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
' ?; D, C3 w- M- K8 C            theChildren.Add(aChild)
' {$ _/ u) g; y, |! u        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
6 O, t+ x/ T! u* f6 K        If dispPart IsNot Nothing Then
. s) N' _* a) J5 ]            DoIt()
            Return
: {! l, e9 m) u1 ^+ h2 ~/ {        End If

    End Sub

/ c3 I! P7 A% d+ m7 |0 @+ L& Q    Sub Echo(ByVal output As String)
9 G$ u* T( T1 a; l! e        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
" I/ c9 }& P' z; [2 B6 f! K        theSession.LogFile.WriteLine(output)
: _6 p1 [. r* [" A    End Sub
0 Q  \+ n$ ~7 X  H4 n: s
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
! B9 J1 K0 f$ ?2 |5 V* G        If load_status.NumberUnloadedParts = 0 Then
3 U( a0 p3 P& C1 g  g            Return
        End If
9 U5 y, H; l9 V  [# F
        Echo("  Load notes:")
. W4 U; R! j. J7 |' O# K" v
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
% P0 ]$ \3 v3 }3 L& Q            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
0 n" p8 U! I3 j9 Z1 e    End Sub

  S: `  m2 }, ^5 d/ A    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

/ g: w% w2 w* l. I! dEnd Module[/mw_shl_code]
! D; Q+ U8 ^1 g1 K7 q$ J