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

admin

[mw_shl_code=csharp,true]Imports System
) j3 i9 U: r! ?+ DImports NXOpen
Imports NXOpen.UF
: E7 Z$ r! a9 eImports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
& O" ?, ]# o: \+ Q$ W( R3 Q  ?' Workaround: collect and open all components individually
'
8 Y! q+ C+ N2 h0 P: cModule NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
! e9 Y& S" K2 b8 K. e    Dim dispPart As Part = theSession.Parts.Display
) Z0 @/ Q* K) x7 Y' f( F
    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

/ H( v' z" Y. o* N        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

3 |$ ]$ L" H5 H7 v  ^9 Y6 f        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
+ b: X# J2 M. ?        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
) Z4 O/ Q$ Y, `* \6 \4 a
' P( Z. g5 K* Z        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
) l+ f  ?- U2 c5 N8 K- d$ t
        theSession.Parts.LoadOptions.UsePartialLoading = option1
# u3 U9 w& o# e0 _; Y2 X7 w
    End Sub

; T/ r$ o) `3 e$ J    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
% @: Q& U! J; Y' I3 Z        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
  e/ R5 [/ E3 {% k& j/ d' g
/ a( _: B+ E. Z/ s  B6 F5 B        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
* _6 e( H# s& q5 F3 s  L9 X        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
% m5 l) ?. \) \3 A5 t3 d$ ^7 k
) o2 ]! Y7 Z/ W$ n    End Function

, M) U3 O! m9 E* @9 ]    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
, d% g) @2 y; c3 q8 Q+ r            DoIt()
            Return
" r0 @; r8 z+ l        End If
. f7 @6 z/ k% I, U, f
    End Sub
! B: _# |5 _8 m
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
$ [! o; z/ s; g) Y2 ]        theSession.ListingWindow.WriteLine(output)
6 \; P8 u0 w/ D  S        theSession.LogFile.WriteLine(output)
) M& V1 E  M: T% O* j6 A- z& ^    End Sub
- d( }' s5 |- [, R, Q
5 Y. {7 e/ `: \    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
* `; w. h+ |: V) i        If load_status.NumberUnloadedParts = 0 Then
$ U( c5 B2 Q( l/ I: s' \            Return
3 \1 ~0 X$ F: F. W1 ]) i        End If

" r1 b9 y1 X; @4 G        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
8 h: F9 R8 f" O        Next
    End Sub
  y1 d7 o) x$ m' N5 t
    Public Function GetUnloadOption(ByVal arg As String) As Integer
( \5 Z% X' A  g7 j. r' T        Return Session.LibraryUnloadOption.Immediately
    End Function
% L: W1 i( g$ y# F# J
End Module[/mw_shl_code]
' E0 R! _8 F" b; U% O# d