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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
. c+ V) O0 K  VImports NXOpen.UF
( t8 O8 |8 Q  e- ~/ \Imports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
% E( }# Q6 u$ M5 `  b7 L# y) Y% y/ Q' Workaround: collect and open all components individually
  U: I, i! a5 I5 p' S& g" G4 C'
0 @! {& i$ M- s3 b" ]# ]Module NXJournal
    Dim theSession As Session = Session.GetSession()
: U5 [( L; b: X3 C    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
+ G- _, D2 q8 c# b        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
8 s% t* [  d& k: O! `6 D3 U        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
- q; G+ u# @) ~            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
$ J8 h2 \/ ~8 }        theSession.Parts.LoadOptions.UsePartialLoading = False

+ c0 t$ P. o* U  U- x! \* b0 Y. L        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
; d' g: f3 P- Q" q4 I3 W  O  r        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
+ P' l: M2 P3 z' j; L! K        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
# l3 _  N" s1 d            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
7 j9 L- ?9 Q) Y# O7 N5 s
        reportPartLoadStatus(partLoadStatus1)
! p  x) c& S. ]9 S: H- g) i        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
* _1 L$ k' `9 C4 O        Dim aChildTag As Tag = Tag.Null
+ j* r5 v$ x; A+ Z% I% Y* F
4 z# n5 B  D( I% u! E        Do
: _9 R) u/ y6 L, V  g1 H            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
5 c& V5 L1 F6 V0 {! s1 J$ g            If (aChildTag = Tag.Null) Then Exit Do
  v7 z  m0 M; a" W, V
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
: e' X" F- ?+ X2 v6 _: u- f" W9 w            theChildren.Add(aChild)
        Loop
) J* u) S$ O5 i/ G        Return theChildren.ToArray(GetType(Assemblies.Component))

  z) m3 q' |0 j9 h    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
1 \; L" o" [- ~& M$ ~$ W        End If
" _8 E1 x1 }9 u3 L5 |
    End Sub

2 J- Q9 N/ `. @    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
9 @8 [0 V7 S. Z/ H        theSession.ListingWindow.WriteLine(output)
! v" T% Y% Y1 O- D, A6 {0 U! _; T        theSession.LogFile.WriteLine(output)
2 a( X# [( X4 G! ?: o6 x4 R4 B    End Sub
* a8 P  L, |0 k" R$ t5 _
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
8 m+ i  Q% }6 ~7 _9 T* v1 {
) ^! N( ^8 o" S        Echo("  Load notes:")
& K+ X" `; G) L$ c: {  x
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
1 L& K8 u) W; t$ h' C) V8 I        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
+ J$ J, b* f0 y7 g        Return Session.LibraryUnloadOption.Immediately
    End Function

! e8 p9 G( e* X3 cEnd Module[/mw_shl_code]