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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
2 h) @7 w4 e# _( J  f  hImports NXOpen.Utilities
'
; z& ~5 F% d4 H5 T' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
+ H* ^8 h& p# j2 h0 ]2 Q& [Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
/ j+ E& k4 f& I: u/ Y* w
    Sub DoIt()
- _. ]$ T1 D8 S' s        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
; \, B3 C- G, j1 `        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
' x  p( T9 Z6 t9 A0 X6 O            Echo(allComps(ii).DisplayName)
' P& i, Q9 f2 y        Next

$ C6 q( W+ m/ ~        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
, B/ c# G# a" M9 x- u/ k& M6 j
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
+ G6 q: N; D# T% T( t5 X1 \  z
: j9 L8 z+ v; |        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1
" B+ m- Q/ s: l1 [* v+ B
    End Sub

, Q: d6 e# v/ l4 P  I: o- J    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

        Do
+ E2 M  O' D4 V3 O) q0 S. p            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
* X/ ^- m6 D. q7 Q" O            If (aChildTag = Tag.Null) Then Exit Do
% p: Z% X" Q; H6 }
, O% \# F  Q' x8 Y6 w6 T; D            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
! C0 O( |/ c4 ?5 I0 X; b            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
) p, J5 `* A4 o4 t
* J% Q# v/ O8 ]& I    End Function
% ]3 h2 ~, L9 j7 d5 Y7 q! Q
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
- x% S+ f0 ~4 Y. I1 C9 ^2 r% \        End If

    End Sub

6 G$ M2 D& W" _. L/ A( E    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
, q- U5 ]6 M" O1 \( r: @+ ?. Q        theSession.ListingWindow.WriteLine(output)
: D  k+ l- A- W# A+ @) Q        theSession.LogFile.WriteLine(output)
- B9 m$ e' l$ f9 I    End Sub
4 {1 ?; _( o3 W
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
0 C& l4 T$ n: V' a8 z" K        If load_status.NumberUnloadedParts = 0 Then
0 @& f# _- k/ Y( q% @* y            Return
# u" O' u% ^  ]1 z        End If
( I6 I& X5 `" O7 i* @" P& `! |: C
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
6 l, N# c( \( k& `" d9 r) b; V            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
4 m# O3 C) J, ~+ F9 p    End Function

: M! a9 H2 F9 t: tEnd Module[/mw_shl_code]