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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
* D5 k% J) ~& P# L% q5 A! S9 c1 h'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
$ k% N4 E3 K( d. T1 C' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
8 X- ~! D* e2 T9 Q  M* r- W    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
) H7 m& r1 {% b) x0 l6 I    Dim dispPart As Part = theSession.Parts.Display

& L% h! U# U  ]$ e5 C/ S$ H: F    Sub DoIt()
; ?# s2 q$ ?( w. P8 N        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
% q! E  E: n* b+ }# `& \        Echo("Number of Components: " & allComps.Length.ToString)
% V5 K; G4 R: |4 O% ?2 e3 s' o; _, K        For ii As Integer = 0 To allComps.Length - 1
; |. \" P. L7 ]' Y: M            Echo(allComps(ii).DisplayName)
        Next

, ]8 `, R( S& ?' l        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
7 K$ B( A' F' _( t7 a% e$ ]: t
- f! Q5 s8 n, `& J- y& Q        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
1 f) @& k! h: |' a* f! a        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
4 x7 U1 H6 n0 E0 `9 Y9 y7 k; G+ p        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
/ L. B  N2 Q6 N" s. P" }            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

' O) V# q( Q. a- l        theSession.Parts.LoadOptions.UsePartialLoading = option1
4 O& ]2 N& Q9 ]
    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
( }- h8 q/ X- p0 l' o/ d        Dim aChildTag As Tag = Tag.Null

  Q6 x/ ]# \& j/ i6 M        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
  ]( U8 f, u; p3 V" w
, E8 K* w; A4 V3 ]            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
  }3 @8 |5 X* Z" }" c, y            theChildren.Add(aChild)
        Loop
. w/ p5 r0 A) T2 h        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
" O: a. s6 J5 V8 p- D+ m/ S/ ]
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
2 n6 e5 r+ B6 Z5 P) j  q8 A& U            DoIt()
& f: n+ }  r# Z- ^1 M; m            Return
        End If

    End Sub

* o" Z( f" e6 _6 k& y0 c8 A; ~    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
' X4 B0 E* H) U6 ?- O8 V    End Sub

7 M5 j, E# o2 E% b; |6 k    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
# R- W# f; o* \- {8 K: f& z% X( Q        If load_status.NumberUnloadedParts = 0 Then
6 V$ r5 p( W5 q6 s& H- B& @- @            Return
4 R6 O: d- ~8 p. ]        End If
- B7 m4 Y3 x6 S. B7 [! \
5 n  Q5 [: b, @; F& X        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
5 b# S. v! X2 _( m            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
% b3 {! x0 G. E        Next
6 C- k  G" q* K% j1 N& r+ C( U    End Sub

. U: s! z! F  [8 J$ P    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
1 B: F6 L3 ]0 a& ]1 ?0 G& K# {
End Module[/mw_shl_code]