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

admin

[mw_shl_code=csharp,true]Imports System
& h6 r  F( z' R: m8 H: oImports NXOpen
/ J7 _4 x, N6 X: I2 F* aImports NXOpen.UF
5 t5 }' x" |! D2 b% i1 E8 ?* HImports NXOpen.Utilities
'
) h0 ~+ y2 v+ S7 r5 d7 H6 _' The OpenComponents() parameter
( {4 Z4 Q  S# U) y' L0 U( R! [. K' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
- u2 \- v8 V3 e% j7 M: B' Workaround: collect and open all components individually
. U& g) ~" S7 v9 R'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
1 l2 U& r! [% W6 w" Z2 F% L9 V+ k    Dim theUFSession As UFSession = UFSession.GetUFSession()
) o3 n* p8 t# l. @( S$ K& n( ^    Dim dispPart As Part = theSession.Parts.Display

0 g' B& d1 S% p# a$ I/ C    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
3 [. \' ?8 \: t1 ?# D            Echo(allComps(ii).DisplayName)
* n( J8 ]$ u- l# F8 @+ T' z5 W        Next
* M- |. t  N# p- i
; T/ m& ?- R1 u" X- I: I        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

/ h9 t7 E: t5 o$ L! J        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
* l% g/ o/ @8 A) s- V        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

% r/ y9 Q" O% H$ q# a        reportPartLoadStatus(partLoadStatus1)
" t! e" V+ L, |( {3 a        partLoadStatus1.Dispose()
/ [# q( r5 f) ~% i! g) T
/ ?* j. j- V" w6 p2 o        theSession.Parts.LoadOptions.UsePartialLoading = option1

7 L; Y* F6 V/ B: U    End Sub

" V  G  `$ n5 S0 `  |! v/ e7 H    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
) L' S/ [! j- [; A* }  x
& j, b: a" D  F0 V        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
" N4 W' V" P  [6 u3 t" H            If (aChildTag = Tag.Null) Then Exit Do
$ v& a* O3 V8 G* h5 |- i
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
# @9 X( O* O$ f1 ^7 r0 [            theChildren.Add(aChild)
        Loop
2 i  g5 B6 H/ p& q9 V$ h        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
1 A% ]$ O, j0 g6 C. E
9 |9 J4 F# J  w: b    Public Sub Main(ByVal args As String())
3 H9 h: s, m, a  Y) n6 o        If dispPart IsNot Nothing Then
            DoIt()
% _# u3 b2 q4 ?0 A" @: q            Return
        End If
4 N3 [. e. d8 [9 t- d; W
" J/ W: B  j, y- y; z    End Sub
9 I( [' y6 |/ Y. }
9 v3 Q( i  B7 y1 E9 k    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
# n+ I" T9 a* ?) I8 P        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
' P, x8 ?3 z& d( K    End Sub
/ T% g0 U  m6 L( U( N
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

4 C& _4 C3 z- e# G0 U2 g        Echo("  Load notes:")
! C+ H) a# \3 ?2 d- G$ S2 ]
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
) {  k! j, j3 a* N6 A! l9 ^0 G$ K        Next
    End Sub
  F1 [# D! z4 G0 j9 v
/ ^. Y  w) @5 g9 D7 U    Public Function GetUnloadOption(ByVal arg As String) As Integer
1 `' A, |8 x3 O; a& r' B3 z( q7 X        Return Session.LibraryUnloadOption.Immediately
    End Function
/ J& A( U& t- ^' i2 W1 Z
End Module[/mw_shl_code]