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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
  {8 Q1 A' I8 m' w2 Y' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
  E6 M# o" D1 {7 }0 E4 G8 z/ d' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
. S* |# B; T$ D% \'
! \9 _# A7 g4 Y$ x( C% i3 }Module NXJournal
9 c0 T7 X* Y1 u( y- a! z    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
* X" D' L0 `/ D7 Y. T$ e    Dim dispPart As Part = theSession.Parts.Display
8 u; g  y- `! k! X8 k$ M6 R8 y- O
# b1 }- C# ~: H+ [8 O' {    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
+ G# @/ l. a$ ^8 j+ F        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
, i. f8 M5 U- w0 N4 V. b        Next
* W* P7 y- g9 [; E6 n; ~
/ v% y: @9 x0 R        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
& y3 m7 ]8 j" x% Z0 s/ ?- I        theSession.Parts.LoadOptions.UsePartialLoading = False
( U. s" Q, C/ |( E
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
  G( `  ]& L1 D5 I2 f        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
8 ~5 i& [/ E; k- Z4 N) Y0 K        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
. s  c: b, a4 V' e7 |
        reportPartLoadStatus(partLoadStatus1)
0 F1 K: m% d1 |$ o# ~& ~        partLoadStatus1.Dispose()
$ O( L6 _8 V7 z  Y9 u2 j" Y* u
: e; L% C; @; |1 d$ f4 C! y        theSession.Parts.LoadOptions.UsePartialLoading = option1
+ e3 i/ \" q3 f2 J% v
    End Sub
: Q* `% j+ }. D; `. E5 t$ {
7 o2 a# Z8 b7 l# `/ [* b9 g    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
2 q' c* K2 h9 A4 O3 o        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

  C* O7 j& L: u" `, p! [# |        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
1 ?. C3 X, F* ^% o8 Z            If (aChildTag = Tag.Null) Then Exit Do
* c3 t6 n2 n7 Q: ]
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
+ V( S6 {$ R7 e            theChildren.Add(aChild)
5 Z  V8 c- l. d1 m% k+ \        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

$ z) s: }- c3 R6 s    End Function

3 X5 ]: f( T( m7 `- C% F    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
0 }9 r+ ]; L0 d! a: F- Z; D
! t7 n0 e; @1 |    End Sub

' j' S2 i1 j% u7 S/ u5 U& j8 h+ _    Sub Echo(ByVal output As String)
9 Q( [6 `2 m% B8 K/ {! L! G4 y        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
  H3 ?! k, `3 N% O! d        theSession.LogFile.WriteLine(output)
6 _( C5 a6 s% n9 A# j+ q    End Sub

: E0 s( Z- }# l1 O' G$ |    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
% y2 C  B/ B, }, p9 T- I1 G7 Z  G& E            Return
7 u( I, y% F* H7 w# M        End If

4 c5 {" f) {( S        Echo("  Load notes:")
( v- _. y$ G/ L& f+ q2 ~) l/ W7 V
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
  e  J: R# [$ K5 [        Next
/ D+ O- D' w0 B( m) Y0 V/ O7 |    End Sub

) s, Y- _5 {) N( O6 B0 v5 c: M0 |    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
. s7 l6 E0 O  V! o( G4 W    End Function

! W1 n9 r& s* SEnd Module[/mw_shl_code]
+ K- D) o- Z- z4 `