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

admin

[mw_shl_code=csharp,true]Imports System
- O, \5 \8 h0 I8 m* l. qImports NXOpen
; p" P6 i  r! ^Imports NXOpen.UF
! x: i. i9 ~2 W5 E! v' Z/ Y) ^Imports NXOpen.Utilities
'
9 k& L% v& B( b+ B7 {4 p' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
* t/ k9 l# M+ k. p' only opens unloaded components fully (see also PR-8406345)
* q- a3 v4 |& L) |* q' Workaround: collect and open all components individually
'
# Z+ l/ l3 d! iModule NXJournal
. h; {* X+ c# E8 s1 K+ a8 u    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next
; [1 X' x$ p& @1 m: q% W# G
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
' T* ~9 @. z) c" a* f; F9 L        theSession.Parts.LoadOptions.UsePartialLoading = False
4 W9 t7 a$ d9 e. k2 `5 Y+ Q0 l5 X
- Q) M5 S: E& J' c$ }6 m0 U/ w        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
& _9 o) g2 k8 }& P4 I        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
( b: h+ M8 M) e4 j
        reportPartLoadStatus(partLoadStatus1)
' w3 N  r8 O7 z! }+ i5 O        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

1 w4 q1 b/ O/ L0 [    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
* ~3 `9 a/ P- [3 Q% h        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
5 |) Q' o0 E# Q* J0 ?, m$ d! k0 j
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
# c. F2 @, T8 Q4 U6 o" T5 x: j            If (aChildTag = Tag.Null) Then Exit Do
" M6 W! I  O: A2 M6 D3 a3 E8 v1 v
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
' c+ Z) P+ T& k
    End Function
' o' X6 a& v+ q, Z- i7 j
8 p9 J  l0 J$ O& b/ \    Public Sub Main(ByVal args As String())
( }! R1 q: Q3 H2 E( {        If dispPart IsNot Nothing Then
            DoIt()
/ f/ x  ?: `" s7 k- Q            Return
" R+ C, h: R8 T) C& q        End If
) \4 z6 i: h8 X- t! N
    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
  e1 {( t: i% F! a& |' s5 @        theSession.ListingWindow.WriteLine(output)
8 l2 }% K' V9 _) m4 w        theSession.LogFile.WriteLine(output)
    End Sub
! m8 j1 H/ }0 D1 V
5 g9 x+ m1 Q) R, r: G. u/ H    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
% v: e9 X- Z& ]: c# L        If load_status.NumberUnloadedParts = 0 Then
2 ^9 Y; p9 {- E& d  Y            Return
( P0 s7 I% W: j( b        End If

        Echo("  Load notes:")

: r, A% }9 s) f# L2 W        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
5 J  n& U8 z- }1 u2 ], `/ j
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
" D: e' d  B; g/ N* q, b
: x. G) L; o1 O1 P& c3 M/ wEnd Module[/mw_shl_code]