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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
, F' r6 T$ b: u+ b- M' The OpenComponents() parameter
2 K  S3 S2 K; \& R: e' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
1 C1 p2 t" W& y, A6 `, E; Q'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
; U9 U: z" O# u, V% l, H6 v        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
7 P7 a+ o8 M9 P. D            Echo(allComps(ii).DisplayName)
, e% T/ M5 I: I2 ?% q$ K        Next
, q$ c9 [. B4 K0 L
  B/ X2 K/ L- }) z8 }( n        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
0 }2 e% a. e& _- b; u3 b4 c% ^        theSession.Parts.LoadOptions.UsePartialLoading = False

" F+ P3 S7 L# t/ m0 D( k        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
/ @$ W# \. m3 u1 J6 K- h8 Z# U        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

  \7 e( Z' k: C# y7 M2 t2 q        reportPartLoadStatus(partLoadStatus1)
& T3 g* l( v. t, P        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1
, P: N. K$ }. [% Q
    End Sub
' Y, ^( N7 O2 W% N
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
0 R9 q1 d# A: P- m1 _) O& y. E) V
, w: H1 f: Z/ \" B# W' `' X        Do
/ r: ~: V/ r4 x- n  M, A+ S            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
& r9 A* K( z! o            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
& {" Y' S5 J3 c5 b$ ?, R            theChildren.Add(aChild)
) j! I0 B+ B2 H        Loop
' ?, z2 q+ f% g. X3 E3 F4 ?$ @        Return theChildren.ToArray(GetType(Assemblies.Component))
" z) _: O6 {; y0 c9 Z' F0 Z8 D
    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
4 g" q+ T2 P3 k* M2 K* v2 u  W: k            DoIt()
! b* H" {0 W& ^+ W$ {1 M1 [0 l            Return
        End If

( F! U/ c" y9 n1 s    End Sub
3 L% R8 H3 u! K% D
( y5 W5 J/ o0 I4 c9 p% E    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
2 Q. p& j9 o. F3 B5 L; c        theSession.ListingWindow.WriteLine(output)
+ u% D  T! y) q0 y; N) E3 ?/ D- ]        theSession.LogFile.WriteLine(output)
    End Sub
5 M3 t# P$ Q! G1 P$ E3 q
1 m0 U+ Q7 [  `7 a% S  k    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
2 g% n7 F9 Q! B        If load_status.NumberUnloadedParts = 0 Then
1 ]1 x. V% T1 a6 T7 v8 f            Return
4 P; _2 X3 a8 M6 d! K7 G        End If

        Echo("  Load notes:")
% K( r0 Y! `* }( K" @. \
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
, z+ u) q+ T; A! x        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
/ x# |1 L' ^) E+ S9 i  y5 A7 K. n! ~    End Function

! Y' Q/ I3 j/ e; g" a: Q5 r5 p; FEnd Module[/mw_shl_code]