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

admin

[mw_shl_code=csharp,true]Imports System
+ M5 [- p8 O4 m5 y, [2 OImports NXOpen
/ ~: I% e$ f- \) V6 H( N3 oImports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
- f2 d- h* B' X' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
. P0 H1 f7 `) `: s' Workaround: collect and open all components individually
'
( ?8 w3 g* j% ~+ ^/ y, F. RModule NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

& @, Q5 j, _# c  y; I1 @    Sub DoIt()
& F3 B2 \6 }# i1 T/ \        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
+ r. L2 b+ f" A$ v7 ~- K4 Q- i, A        Next
: e% v+ z+ I6 K6 C8 N# v
! M+ d/ u/ {! d        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
+ F3 }: P. u, T) D+ f% e7 K  e; e
, z/ M$ L" W& Q4 E4 {' s$ q) p% ~        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
+ U( a& p& J1 q3 g        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
8 J  f0 P1 p0 W$ E" G' S. f2 X            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
8 W, @. [" W, J" O# w
% f' }" Q7 e- j$ T8 n  l  M, d        theSession.Parts.LoadOptions.UsePartialLoading = option1
! N8 Z! I* ?# x! y
. i8 J4 E* e( _- E8 K! I    End Sub

3 \( v. S1 T9 T6 B1 d2 Z/ S    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
; D4 q! `( d: e' e7 {. w        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
8 v; V" k, u5 p. l7 a- ~        Dim aChildTag As Tag = Tag.Null
& m# d  U! B, |' l3 |/ y
        Do
  a3 t7 ]/ k# n            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
  G) t" b: p9 n& x            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
& ?' j  ]/ L# A4 D' z; a- C  Z        Return theChildren.ToArray(GetType(Assemblies.Component))
( `3 ?" X4 V: d2 C
2 @4 p$ W- _  R; B7 b1 ?! a    End Function

2 P5 D. i1 \8 i8 n/ Y    Public Sub Main(ByVal args As String())
' A* I2 l/ ]2 \/ R; o- `! w8 l        If dispPart IsNot Nothing Then
            DoIt()
% Y6 P9 B+ g- R1 Y: t) ]            Return
        End If
* u; A4 e& T# A9 K
    End Sub

8 \4 u% \; f" C* N3 _* T7 q$ u* x    Sub Echo(ByVal output As String)
! H2 w) J; t) S* |/ ?" \( l, y        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
! ]8 B3 p  }, M& a( `9 V+ I    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
4 Q7 f, I" `9 o        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
% _9 ^+ Q& N. f. y5 I
        Echo("  Load notes:")
4 W9 A1 A" w! @. S
* L+ A1 {! s* h2 X( E! B        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
9 Z1 H, \* t% p        Next
- A& H+ n7 x2 ^$ a3 G4 @    End Sub
+ g( A( i# m% z7 B: o
    Public Function GetUnloadOption(ByVal arg As String) As Integer
7 N$ D5 ]' ?7 l( _        Return Session.LibraryUnloadOption.Immediately
    End Function

/ F& F: s- E* O) v# ^4 g$ d( x4 pEnd Module[/mw_shl_code]
4 ^3 [, }( W+ i& S