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

admin

[mw_shl_code=csharp,true]Imports System
# k1 B! X  a6 WImports NXOpen
& |0 k/ n# w4 |+ M& a- UImports NXOpen.UF
2 f8 h3 T0 H: tImports NXOpen.Utilities
0 e: d' \6 O4 C'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
( n5 g  X9 r9 ~' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
: }" C/ L6 K, G7 [) O    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

4 f% v8 L& T- e4 [6 x# y- N0 g: F4 s7 O    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
' J- S/ p" n- b( a( w# ]# Y        For ii As Integer = 0 To allComps.Length - 1
; h1 H9 a4 Y; U& z, B7 I8 b            Echo(allComps(ii).DisplayName)
        Next
4 H! o0 u& s; a
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
- Z& K0 G( k( [+ u- f: r: d7 G& O! I        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
% u. s/ q5 v# _$ O9 y" n# k2 P        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
/ r# t0 q9 [8 s8 K        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
0 U" r' S! ?0 A5 R/ i: ~( f, j            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
4 l, [; I& ?) H# P/ [
5 l- b0 }( W% U( ~* J' i        reportPartLoadStatus(partLoadStatus1)
. u, J0 u) N" E/ O' g        partLoadStatus1.Dispose()
* M# G  c  B5 Z6 ~6 Y6 x1 v$ v
% a* D; m: f( d3 y6 D        theSession.Parts.LoadOptions.UsePartialLoading = option1
( a, D7 m( v  Y. Z
6 b' D. G: P) A    End Sub

/ ]$ M$ n) h; n    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
4 m3 l. G4 ]3 S$ v2 s0 H        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
3 t* A; p& ^; c" U, F3 e2 z
4 G; p2 o& S0 Q3 A( j            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
# r  B1 ^% e; {9 B6 F+ D            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

; O) V: A# m& [6 b! U3 P    Public Sub Main(ByVal args As String())
  g$ B" j7 O2 @        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
  P3 F- t  ^* A2 P' F
    End Sub
! ?& o* r9 v8 y- ]: y* M
    Sub Echo(ByVal output As String)
9 q' A: O6 p. z: _% R  F$ g0 M        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
# }6 K8 _: Q) a        theSession.LogFile.WriteLine(output)
2 T6 o$ A- F" D    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
2 f" T: U0 h5 v  q& |) G( m        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
6 u1 t3 Q2 t# L            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
- t( \9 z6 G" {# E        Next
    End Sub
" _3 F/ p( F% U' T8 [' x/ k
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
: `3 y4 t% c6 x; T; N; q/ w    End Function
! Q" _! p2 i0 U/ f' ~7 }7 ^. B
End Module[/mw_shl_code]