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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
1 D  }  l6 T9 ^' T8 Q9 m- d- pImports NXOpen.Utilities
'
/ h- [( V+ s4 F$ r7 D7 j' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
# @5 e/ @- U+ _  ~4 X% a7 \7 r- Q'
. P8 v2 O% j) r- I/ uModule NXJournal
, R4 w* j. h, x4 Z    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
+ s" F) ]" O  r# v4 o$ G. b, x6 h/ s* ?        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
  v* y2 z" J0 r7 Y" E3 p        Echo("Number of Components: " & allComps.Length.ToString)
) C1 T( l# W" K1 y        For ii As Integer = 0 To allComps.Length - 1
; C8 K2 e9 u, l2 g) [            Echo(allComps(ii).DisplayName)
- D8 a+ P% p% q; U% p        Next

' J' q, k* E% |* e9 P5 g: W        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
$ y# ^7 J* ?# ^! E. j9 p
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
5 F8 f& n% r6 U7 W        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
* ~! k4 f, ?& I+ ^$ O2 i- g# i            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
" d  K% X1 m. J; G# c9 \
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
8 `) ?2 i8 H2 E! H
        theSession.Parts.LoadOptions.UsePartialLoading = option1

2 M+ Y4 F0 s* d3 Y- ~6 G5 T    End Sub

9 N6 m! M' i6 t; d1 b( r. m    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
* c/ T4 v# k8 j) p: a3 r        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
. G, n/ i+ J% }" y$ `* M' `0 F1 w        Dim aChildTag As Tag = Tag.Null

        Do
. Q3 n$ c) ~5 x/ N            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
, S3 B2 K) Z  N8 W0 c% o! `            If (aChildTag = Tag.Null) Then Exit Do
$ d, r/ [6 P5 Q/ H% f9 x7 J
7 N8 Z' r. m7 W$ [% j# {            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
6 B! H% Q' X( N5 k" {& A. `            theChildren.Add(aChild)
  s4 O+ b* @" S% [' H        Loop
0 x5 m2 `9 ~. V6 w* H# s+ c        Return theChildren.ToArray(GetType(Assemblies.Component))

+ e- i6 ]3 r( F" L7 ~6 u    End Function

    Public Sub Main(ByVal args As String())
' h4 k: e* a* T  f! I2 D2 I9 v! X        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If

  q! p! a7 P) J6 h0 G) Z    End Sub

  }/ N+ t, o& x8 a) o    Sub Echo(ByVal output As String)
! B/ C1 {! [! Q/ c' U2 u" ~        theSession.ListingWindow.Open()
2 q8 H+ a0 e# K. E8 Y        theSession.ListingWindow.WriteLine(output)
, V; T) w; M/ H/ V5 U        theSession.LogFile.WriteLine(output)
    End Sub

( }7 k, h' M6 F    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

        Echo("  Load notes:")
. Z7 I" b  h7 D& G, M
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
$ _2 R4 R8 p! @' [: P4 @            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
9 U  S! y' G; U    End Sub
. T' g4 m; K) M7 A. {# g- m0 \  e
, r6 k: I1 L. J/ j/ X    Public Function GetUnloadOption(ByVal arg As String) As Integer
/ w% J/ l2 M5 B1 Q% [* h/ C5 @  }        Return Session.LibraryUnloadOption.Immediately
    End Function
1 E0 H+ s9 y! R& _, g
End Module[/mw_shl_code]
+ ]0 q$ r  j" d% k& O