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

admin

[mw_shl_code=csharp,true]Imports System
/ D  l8 ^0 Q2 u' {& KImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
# h7 P8 |; E# [! S0 l# ?* t'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
2 ?% s+ T/ o" C: g6 A2 L4 m' Workaround: collect and open all components individually
2 W: G9 J% h6 t4 h; Y'
Module NXJournal
# [3 X. B! n* H3 u    Dim theSession As Session = Session.GetSession()
+ y: o: k. F3 O) d+ A    Dim theUFSession As UFSession = UFSession.GetUFSession()
, a  I: [5 D; t2 x2 K: W/ ~5 Y! C    Dim dispPart As Part = theSession.Parts.Display
0 e' P! i& H) g3 J! m! a% o2 C+ V
& \1 k# f- P" |/ {7 P% X    Sub DoIt()
5 z) [: X, G& r$ i/ u( |  k7 J/ [        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
7 J5 C+ N0 X7 e2 B& X        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
% I: q6 a5 ~( J. a            Echo(allComps(ii).DisplayName)
        Next
  V$ z7 e- i) r; |4 t
2 u( b+ r9 T1 T2 I$ y! P  o5 l        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
' p3 e/ j+ ^$ l4 p8 C        theSession.Parts.LoadOptions.UsePartialLoading = False

( q) r" C1 K* J        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
! F) @3 S  P" b, ]0 T        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
$ j) U7 ]2 K9 ^& A9 ~
% n( `* P, |. l" n: D' }        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
2 o# S4 Y2 g0 r0 J, y
2 j; g1 ]; I* m8 L/ R: W: O+ c# |    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
9 e. i' d# l& Y1 ]  F        Dim aChildTag As Tag = Tag.Null
) J% d- F- s  t9 n+ f; R% n
0 G! N, H+ \3 \' f7 P: [7 L        Do
% X/ a! D7 V. l" Y& k- O, Q            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
9 \6 S/ P. F( X* Q
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
3 y6 c: h4 W2 M1 p+ A            theChildren.Add(aChild)
' s) n3 J+ l; ?) C9 ]        Loop
  M0 k) Q) s4 [: x- F        Return theChildren.ToArray(GetType(Assemblies.Component))
. ?1 ^0 S  P, Z3 J( C
    End Function
0 R/ Z5 ]( o2 r6 y) |
6 Q) H9 p, e" Z" Y, \    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
/ Y: R' F. E" _7 a7 }. f/ P4 p4 b$ c            DoIt()
            Return
        End If
4 L. |! }* O( o$ N  a8 G' P
: }# _) _0 }7 b) i# n    End Sub

    Sub Echo(ByVal output As String)
4 ]7 H( q+ h/ a- E' r/ l# b        theSession.ListingWindow.Open()
9 ]( u: p1 o- S# h* ?2 \1 x! b9 e$ r        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

( ]1 x5 i, V! }    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
  @  B. ]0 T6 L2 ]        If load_status.NumberUnloadedParts = 0 Then
6 J5 j- p0 C) R8 j/ M            Return
        End If
& Z4 _1 g5 L- P5 l8 q: b4 ^
: |) L" n2 u- z        Echo("  Load notes:")
+ r$ x, M: v5 b& E( f0 P/ G9 t9 \
# R% E  r/ L- a        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
$ u' m8 k' R; ^, V" r1 P+ N: Y6 N    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
; }$ E" Y- u+ r        Return Session.LibraryUnloadOption.Immediately
4 t8 E* d8 `5 S* u0 e    End Function

End Module[/mw_shl_code]
. i. X# s: u1 r4 g/ A