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

admin

[mw_shl_code=csharp,true]Imports System
4 d' f" Q* _8 X+ eImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
" S8 V2 o4 c8 ?5 O' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
3 m, w- [$ _' S6 z' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
) N# j, q( q3 S1 a7 o  jModule NXJournal
" h. I3 `0 i, D    Dim theSession As Session = Session.GetSession()
+ s4 z2 ?8 E( ^7 s3 W" i    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
# l' b/ `2 |0 R6 e, r' t
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
: |0 c3 v4 F' n& H, Y% m        Echo("Number of Components: " & allComps.Length.ToString)
2 @' E' G, s9 ~# O0 l. v& D        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
" y% P4 G4 J  v0 V# E7 K* o        Next

& W4 Y; u9 G* H        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

0 a1 \" t! |) v& W+ M# [9 l0 Q/ S. m        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
# i- v( f" x9 L0 S' z        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
0 C7 w  {6 j" L2 Q1 Y( R/ v        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
! ~& J, P( O! _: `2 }            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

( G/ e+ C% U; S$ p# }0 n' I        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
2 e' q5 @/ Q1 V
9 X: w" |+ D% z& D) M        theSession.Parts.LoadOptions.UsePartialLoading = option1
, }# y, q1 H9 h! L0 h4 x) M
    End Sub
; L6 a! V5 n! s1 C* X5 }9 S
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
5 Z. Q1 V5 N1 V- T, O9 I        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
7 m& p7 R- `' Q
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
3 u& M/ H* R' y9 [! l            If (aChildTag = Tag.Null) Then Exit Do
2 y2 _3 b2 {  t% b7 o
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
( b% u. }9 G( G! P, t0 A# R        Return theChildren.ToArray(GetType(Assemblies.Component))

/ U) `) b: p& r, A8 t    End Function

4 p7 o, C$ W. X$ w1 g    Public Sub Main(ByVal args As String())
, g% p. q" z5 n0 x9 w        If dispPart IsNot Nothing Then
3 L) f5 [% s/ O            DoIt()
            Return
        End If

    End Sub
7 @+ r/ h/ C2 A! b/ t2 V
* w& ]3 e: L4 Z  i$ {* y: P    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
/ q) F  F, h7 _: T$ D  z0 }        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
# n/ o  e* D' l% s9 i* l! D    End Sub
6 i# Y. x( D: G' ]: x
3 R/ C) i' x4 i    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
5 N" ^6 ]3 Z3 {% D2 i  q4 ]        If load_status.NumberUnloadedParts = 0 Then
            Return
5 B8 t. }# [6 d' \6 C* C  p        End If
( v  t# C% g7 d
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
6 E& f( \; }2 x, \0 z+ h/ E" q        Next
; @! F/ B  j% k2 H1 ~) A4 E; m* W5 x    End Sub

# S% e. J; F  c    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
* b8 ]8 ~& Z8 V# R- H! {    End Function
) ]2 K3 A* F+ t. ~0 h# d" ^
End Module[/mw_shl_code]