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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
: Z- X3 N' G, Q7 y! O, lImports NXOpen.UF
- {& k  U) {0 d/ H0 _' CImports NXOpen.Utilities
8 G7 w! m9 Y2 h! i0 n'
4 \7 u5 T6 U9 p- _3 y' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
4 I) a1 W7 R8 v/ p4 S! [' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
6 A; ?- I4 S# M'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
; j! O0 ^) C' n& ]    Dim theUFSession As UFSession = UFSession.GetUFSession()
  h9 k; Q. x8 n6 `; z    Dim dispPart As Part = theSession.Parts.Display

; L# Y2 [# x8 V+ O) P3 ~    Sub DoIt()
- o( G5 F0 l3 {2 Y; f3 [7 ~        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
2 [; o! d1 t5 w5 q, s+ E  h        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
/ \, T% Y/ G  g2 ]) ]& m5 a( I/ U            Echo(allComps(ii).DisplayName)
* k4 R, ^. D: h6 [5 u9 k        Next
0 V9 ^" _! w$ F9 x# }
$ z0 U7 e3 s. l: Z        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
4 U3 b& i) w, ?% u, I5 `) Q        theSession.Parts.LoadOptions.UsePartialLoading = False

) ^/ U4 m$ f" x$ l' g% q7 j        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
8 E2 u; Z" X" e' y        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
* J4 @6 Y& Z9 ?6 u+ |/ i            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

- M9 R% D$ b& {9 h0 `' ]/ }) d2 E        reportPartLoadStatus(partLoadStatus1)
  L5 P, Y/ e% k1 v6 f        partLoadStatus1.Dispose()
6 Z  {: [9 Y) B- M8 F4 |/ Z
' r! o* d& y' y8 n5 |& E! c& R5 {: V        theSession.Parts.LoadOptions.UsePartialLoading = option1
% m) x9 {( b. A7 r5 B2 R% C
    End Sub

5 d% L0 V3 q4 c# r    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
4 b2 ^8 n8 O: L8 ~9 d8 B        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
0 w; L& l* \1 M( [$ y        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
/ }4 S+ Z9 X6 g) b0 G            If (aChildTag = Tag.Null) Then Exit Do
7 {" w4 K; X# g6 j, K! H
2 |! K5 U$ {7 @7 s4 b& D1 f% N            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
$ C: _2 W( d2 u6 d/ C  x        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
% m# M1 J$ V4 q  d- h9 k: ]& t- N
    Public Sub Main(ByVal args As String())
' w* }# i$ t& n        If dispPart IsNot Nothing Then
2 z2 w0 G2 Q/ Y. X( ^& z" ~, w            DoIt()
            Return
' c- M8 }$ [6 H  C* \: u" H+ W. S        End If
" j, f% v* h* q" `* x2 [. e) I5 a
" l7 I& G' {6 l* D& v$ l    End Sub
- b4 D! x( ~& x  @( ]
    Sub Echo(ByVal output As String)
) X* Q2 L: ~' w! E7 q0 S  Y5 S        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
+ F/ `3 Q& l1 X8 v! E  b        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
% E9 y: f7 k, Q        If load_status.NumberUnloadedParts = 0 Then
            Return
& c- x& n: h1 }+ s8 @3 |        End If
# W4 W" }  B) b$ f0 `' i
" z5 M$ ^7 Q8 c" j% u" e        Echo("  Load notes:")
. O' ]) P6 w! \
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
5 |! h/ }- X3 F+ ^" I9 r            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
; @0 j  K5 R5 X/ C8 T- Y
  D/ _- J% ^+ R: O5 u    Public Function GetUnloadOption(ByVal arg As String) As Integer
6 M9 C5 o2 j1 ]* i  f* e$ S* N        Return Session.LibraryUnloadOption.Immediately
/ t6 q: G, I) o- k! a" c, t    End Function

End Module[/mw_shl_code]
1 A1 C& O$ B: O$ L' o2 k4 G