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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
9 H6 ^% H: h/ ]- Y0 v'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
, z! u2 z5 L  E( H: Z    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
. p; [# ?8 Q( G. N' _+ C/ o; ~! Q
# N2 c  m0 H* _, F9 e; ?    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
# ^5 q/ S% ~/ @. e/ H! y1 Q            Echo(allComps(ii).DisplayName)
& ?2 w; p! B. K$ Q: \! q        Next
; z. N8 G( h' }! [
$ m. w, {  d" h/ W3 P* k9 N' Z8 n        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
, D& I, _/ ]8 {3 E* L! z        theSession.Parts.LoadOptions.UsePartialLoading = False
# Z$ j, W/ {( a- k) }  g+ N) a
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
- t0 f' ?9 w" ^3 }$ y1 l        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
/ J: H6 w  x3 O6 o            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
& N9 Y6 u' ?- \$ ?( S6 m8 `
! d" _$ ^$ o7 A0 n- v        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
6 h8 [" }# ?: ?5 k! e  G! R: `% B9 n
        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

  U5 c* l5 U+ D" X4 o0 a, F* t    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

        Do
& {! K8 K2 j5 E1 s0 a            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
. b2 Y. Y( @8 j% Z* H3 S% [: L            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
: S; K+ R9 x' k/ E/ s; M5 D; ~        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
# J5 R& |. A4 H8 u7 H: h# E            DoIt()
            Return
, q% D$ L# i, @8 A        End If

    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
# m7 S# B# s  Q2 h        theSession.ListingWindow.WriteLine(output)
/ h6 J  t  s' w. j. l8 U9 i1 @        theSession.LogFile.WriteLine(output)
4 u8 V$ t2 R2 |1 f+ ~$ F- X0 l    End Sub
2 \& m) L! v4 U  |3 }. m
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
& }2 ?7 t) L) W5 r9 C            Return
1 l" n- P/ a9 v" E; D/ o4 x        End If

) Z" R/ T3 F; ^/ e  i3 y( k, i' K        Echo("  Load notes:")
$ g) d7 V/ Y+ U* |
2 e/ p; J/ [: F. y: i9 j        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
( X7 e, a; }# G) ^8 p% g            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
' T1 R6 g* n( ?- E$ P        Next
( M; b4 n0 k- }    End Sub
& X* U( d! N* W
2 z6 {: s( y, K! U    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
* ~' R) u6 _2 k4 T& A    End Function

# r7 `2 i, E7 _# n" X3 ]End Module[/mw_shl_code]
) b" M! R1 F/ U- T