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

admin

[mw_shl_code=csharp,true]Imports System
; L: f+ [# u0 s$ M& {! z) T' lImports NXOpen
: V: Z# G; M* k% h* oImports NXOpen.UF
$ g1 ]+ t, E$ C) K9 q- c) e; ?4 LImports NXOpen.Utilities
: D; G1 q7 Z. K  l+ s( `$ i'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
2 p9 V% N2 H9 W9 G' T! ?& u0 ^- m' only opens unloaded components fully (see also PR-8406345)
& Z% \' o) r# K: _" o' Workaround: collect and open all components individually
! |4 z3 j: d! e- t( v8 n9 c'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
( P9 ]. m$ m/ E9 J8 `+ l, U        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

/ q1 v, b) @5 x" u% u        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
! P8 f; {! ^  E        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
& |7 ~9 g1 u; m# z; g( y7 ]/ D$ f0 e            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
& Y5 s  F! ^: g3 I# a
5 u3 p, u- @$ ~' F/ p$ k        theSession.Parts.LoadOptions.UsePartialLoading = option1
( x5 \6 @* ^# `5 w7 A
    End Sub
5 A( D: D7 W+ w+ ]; T
: i8 Y1 O( d, n+ u) e    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
) l# z% }5 J+ Q0 {' W        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
) k: N% k3 N7 ^% q% K! Q+ s4 [6 i" k        Dim aChildTag As Tag = Tag.Null

3 N- b1 F4 a8 k- H( Q5 N        Do
/ j0 ^$ C( U% ]            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
7 H9 A/ O5 F0 E* j; y4 v$ }            If (aChildTag = Tag.Null) Then Exit Do

( c4 v! H5 l. G9 p! l' E            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
7 G0 f8 B) J" ?6 }7 j+ {* k# [: V            theChildren.Add(aChild)
        Loop
$ K6 r. M3 `+ O' n3 r: ~, D1 F0 ~2 t        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
" `9 l8 n7 g5 G! l# D. Z+ V4 {0 _( E& X            Return
4 h+ _. Z+ I1 D* o' a        End If

+ A# w  f) c$ {% Z" Q    End Sub

    Sub Echo(ByVal output As String)
% G! a  e3 O5 p0 s8 x4 S6 J! B- H        theSession.ListingWindow.Open()
& j& S" p1 Q/ K* d        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
$ U" I  o8 F2 |' C- e0 k! ~  }    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
3 ?& Q+ p1 X% q1 V( D        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

        Echo("  Load notes:")

, g: I  @7 H+ ~9 I, a5 [% @        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
" H% F4 J& q% D8 N# [            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
* k0 Z0 K0 N9 }  l- m" m. Z        Next
, u& g/ f7 V5 g- Z: B" [  y    End Sub

, D) I7 T4 n7 g( b) u, b    Public Function GetUnloadOption(ByVal arg As String) As Integer
8 Z* }$ ]7 [' ^, }# ?. t        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]
9 A+ H. Q+ h, B; u# i9 x9 K, c