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

admin

[mw_shl_code=csharp,true]Imports System
) k  x: {/ l) c: v2 p) fImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
+ m  B, S4 P9 _'
' The OpenComponents() parameter
2 c, ]" {3 q7 g" I- }' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
/ H; ~  |* M1 t; T/ v+ F( w2 X' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
# h; a+ J$ D7 W- h- Q
    Sub DoIt()
4 H% E/ I) A2 |8 d+ E# \        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
5 u/ a1 w) J: `3 C        For ii As Integer = 0 To allComps.Length - 1
. C9 Z  q8 P+ w            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
5 ^8 x) F. }1 `( Z# m2 m! N        theSession.Parts.LoadOptions.UsePartialLoading = False
3 q. r# ?( z' U- C
' a- n' e7 H5 s, x6 H+ I/ i# \4 j+ s        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
. E8 ?  Q7 K0 K8 g        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
* C5 e2 E+ c: Z1 Y        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
' h3 J' U* |) F" Q" M            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
6 Y9 g/ H! r+ B8 i1 U        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

) E$ a4 r! ~) y2 {! C    End Sub

) D% L' G% i* e. h" W) l: P6 s3 o    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
, l' x& o, h2 Z9 x. v: C        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

/ E2 U; x( n6 S% A        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
6 A9 n4 P6 j: M* a4 H            If (aChildTag = Tag.Null) Then Exit Do

$ N2 s/ D  X! K9 n( Z            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
0 U# @. d4 F! F2 N2 P% z6 K" L( _5 x        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

5 ]( Y" M3 q# Q; x0 J    End Function

6 Q' b; l6 d- v* ?( R7 t" ]: D    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
- O" l& L' Q& T0 e, _" z/ @            DoIt()
            Return
        End If

    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
; L! G* e4 e5 [: Q& o9 d        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
2 a' ?+ n1 z8 |* E
8 h- x! v( ~% K9 W) ^; p    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
7 J& Q3 V; k( I1 O0 C, M7 g9 c            Return
5 A" B1 G- n0 l  p& H        End If
7 k/ {2 b9 N" [1 M* g; J3 z3 N8 C
! }. O, M& ~3 F3 X: h        Echo("  Load notes:")
3 I0 n9 v$ q: W" e$ [* j" n0 Y3 b
! z( v: w6 U9 L  p2 x        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
7 j6 {* }( L' l3 U4 a  k            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
! ?5 A9 o* W4 o8 \8 w- b        Next
3 M9 M7 I/ U6 }& j  Q+ S( j    End Sub
2 t. c1 Q% |+ ]/ E! U
3 A" f9 P: f1 V: P    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]