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

admin

[mw_shl_code=csharp,true]Imports System
4 u- @5 r+ z0 t$ y8 [Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
* @3 U* l8 Z3 ~+ T6 ]$ @'
4 P4 _- d' |# Q- R6 T) v4 }2 m6 G' B" R' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
+ X8 x# m' }5 W8 v! h" q. H% s. S' Workaround: collect and open all components individually
'
Module NXJournal
4 s+ l$ J" g2 T9 }6 Q, X    Dim theSession As Session = Session.GetSession()
  y, d7 S+ i& C2 _; p' m. P    Dim theUFSession As UFSession = UFSession.GetUFSession()
* Y8 ~# P5 Z3 f# O4 G    Dim dispPart As Part = theSession.Parts.Display
! }7 }  a$ P: \! u& F8 O7 t
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
; ?  m* V+ q; a; v& t' L7 x" @        Echo("Number of Components: " & allComps.Length.ToString)
- ]- W* g* w/ s, K! X% l        For ii As Integer = 0 To allComps.Length - 1
9 L4 r% X. y! M            Echo(allComps(ii).DisplayName)
* \+ m& w' P( G3 j' x" E        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
4 A. ^6 N: T- m+ f2 R0 F9 ~        theSession.Parts.LoadOptions.UsePartialLoading = False
) W: L  y& c7 O" q# y9 S
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
+ y& v' V0 `9 ]8 _& B" x2 X* F        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
; w' `7 Y+ l1 x+ C& b
9 F: u+ x$ G( |* c        reportPartLoadStatus(partLoadStatus1)
, _7 {" A4 Z) i1 N6 t% `" u) j        partLoadStatus1.Dispose()

, i6 Q: l4 u8 u7 n. g5 t4 F! A        theSession.Parts.LoadOptions.UsePartialLoading = option1
* E* {/ E! O/ X
) ?! W! `& Y' W1 B    End Sub
& D4 {: R0 g' E0 H- U
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
7 @+ c# u3 M! d8 _- \' d        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
3 y2 A, [( a; ^. n. d# H        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
  o) i# b! s# G- _4 l9 u            If (aChildTag = Tag.Null) Then Exit Do
, l+ l2 s0 }& l6 Z# s
6 M$ D5 H5 @$ d: D8 @% c6 S            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
4 p# H2 J) B) u  P' j
# k+ Q" R( f& E4 Z2 {& n  B" r    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
0 M1 ^5 D  |# H# s7 }; t            DoIt()
            Return
- V- ?' p" {0 }6 I/ L        End If

2 U! m$ y0 i/ s3 i+ S. O& B/ f/ R4 \    End Sub
" l9 T! q" }' i8 k$ x$ e/ m4 z) f- _
3 p+ U" N/ f0 z. ^7 l    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
! \) C0 H8 L4 ?6 R' ~        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
0 C1 P, [" ?8 ]    End Sub

& n( ~4 d: R: `    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
3 T0 Z) ~$ B& q0 T4 h* y        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
$ x; L7 Z0 m! c7 m# E3 {8 S0 f
        Echo("  Load notes:")
* Z1 }: Q0 o: X- e3 K
+ ], G  r' ^: {0 E        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
2 L& ]% s6 K$ v7 F. N" S2 o; y! l. I        Next
    End Sub

0 e' ~4 g, V0 P* z9 x5 P  I. W  p" l* T    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
. Z0 K; d. i* J1 E    End Function
! h5 M. R9 t0 @" ?) ~  k5 W
End Module[/mw_shl_code]
3 A& M, v* B$ D6 w