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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
' A. u( Z* y6 x* S( E: gImports NXOpen.Utilities
'
- J$ m" ?0 p. v0 B0 t' The OpenComponents() parameter
6 V- O6 `2 [' Y0 c1 c0 H  C' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' b7 g( u* {: u6 u% B' N' only opens unloaded components fully (see also PR-8406345)
4 D7 j5 v) y! p$ ]' Workaround: collect and open all components individually
7 e/ |" Q# [4 S; T% B'
( W; ?+ ?. {# P6 J/ w; NModule NXJournal
    Dim theSession As Session = Session.GetSession()
4 t' M. X! G. B* t6 j4 y    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
+ c* Y' U3 k3 e8 T) W4 {
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
1 j. F" M1 \$ ?& s/ c) v8 k6 v        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
( q  B- ]8 k* {        Next
0 v6 }# o% E, }+ v3 n4 c
# \8 J! U2 ?3 S7 A2 ~1 W        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
( J9 n! X4 ?( g$ O: `6 N. j        theSession.Parts.LoadOptions.UsePartialLoading = False
/ a- F! Z4 q2 N% r
6 a% ?7 g* u. y8 u  s        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
  \0 v5 n3 K* D7 m* m* g        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
# w4 `. D" P) ^% d        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

# G6 P8 ?4 ]% I4 V: O8 J    End Sub

+ U) F  |  z. Q    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
6 r4 ]( W* C1 |' Y/ K* t        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
! C3 @9 u' b- P3 K
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

  |3 N9 \9 ~% n; r' u            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
' {* i' j: F; {) G6 ?. Y  m        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

8 Z3 j' x3 j8 ]0 }    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
( \7 X) t- _, k        End If
1 X7 Q1 @$ Q% U6 d. h2 h  e5 g
    End Sub
- C7 P8 J) q. O; i* T6 |7 c
9 j0 l0 s" ~2 u" F    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
5 \+ v8 N8 q& T7 w8 N% p        theSession.ListingWindow.WriteLine(output)
2 s8 G( ?; i# \        theSession.LogFile.WriteLine(output)
    End Sub

5 I2 @) u3 i( ^, F0 O    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
4 \2 z3 d. {  R: H! A) _        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
. v& z' R  R9 Z" }( u  R# j            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
/ g- i; w3 L, U) }' Y- v" s6 H% P    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function
8 h# l  p4 |( U( R
End Module[/mw_shl_code]