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

admin

[mw_shl_code=csharp,true]Imports System
3 r2 h$ h( r2 v7 r7 ]# Y* v0 x9 RImports NXOpen
, O' L! L( }0 |Imports NXOpen.UF
4 ~( k* v( y2 O4 u; }8 M- l1 {4 AImports NXOpen.Utilities
- M. _7 m+ b9 O4 Y'
& q' u: u# w+ J% L  [' The OpenComponents() parameter
- u* ^4 v! Y/ p+ O9 E/ G- s' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
9 l7 L- R' |8 g4 k( b3 l8 J' only opens unloaded components fully (see also PR-8406345)
5 n- g. j( H: S  Q  @' Workaround: collect and open all components individually
$ ]) _, Q" z0 u+ y  D% X" C% I8 T. J'
6 C1 u2 Q8 q2 q6 y9 YModule NXJournal
5 i- l3 y) ]* R  P    Dim theSession As Session = Session.GetSession()
& a* ~# Y' z# ~# S2 E  D: A: j, @    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
/ Q' y: I& y) _) e0 v! [- H1 ]
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
; B6 M4 g( s* R3 S8 }        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
, \' B& M# Q# g' Y3 U4 v0 b, q" |            Echo(allComps(ii).DisplayName)
+ H; q" G4 F  I) F5 Y& @        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
( N+ L, a! T8 C$ F5 s: {
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
0 V# X' {' z/ h! L8 u3 }7 p- @        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
7 H& x+ X3 i3 W2 T5 w* G            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
9 j2 }3 p/ q; d
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
- o$ n; A! z& W/ y1 K/ n2 A# N( G
4 O* d* B1 T7 f1 ]( Z! V/ J        theSession.Parts.LoadOptions.UsePartialLoading = option1
8 |9 [0 p" N6 f$ U2 ]/ J& R
: q- d. S5 v! b. L7 d' w  `! z% C    End Sub

5 g- ~) }% C9 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
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
* L. ?- D' l0 j. }1 S            If (aChildTag = Tag.Null) Then Exit Do

9 J* B9 a. Z* a6 W& X$ l8 @            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
9 p& n. i$ W& u& y2 G        Loop
" c  H8 E- V, v! c, {7 R& O        Return theChildren.ToArray(GetType(Assemblies.Component))

* c% d0 s3 h% `& A    End Function
; m1 p6 P% o5 C* e( p
; P, u; m& Y, `5 M    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
; b- S6 ~, l& i3 _! V. L% T            Return
) l: E' {( j! ^6 P% Y0 x        End If
4 ]6 K1 s3 h" y/ x
4 M9 s( y  x. x! F% R1 Z8 {/ I1 Q7 a    End Sub

" S* _" \7 }- Q- H    Sub Echo(ByVal output As String)
  `& \9 O1 l/ g3 ?( g$ p        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
% q0 r8 t0 J9 d) @    End Sub
# {/ W; `( Y( [4 s( z) ?( J* V
  s% r0 y% C# }) k+ R    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
. y* Z8 n3 ]( ~# j! Z            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
( a5 G2 V+ ]/ }4 G. N' s
    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
* g$ [! o! E! H' b/ j# n    End Function

End Module[/mw_shl_code]
8 q, |7 t  c' R' a$ P9 A7 _& [