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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
/ X3 E, o3 C' H5 ^Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
  F1 d- r- r7 U2 c' Workaround: collect and open all components individually
'
Module NXJournal
5 x$ w& ^4 p+ Q, D1 i! r$ ~# l  E9 t    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
, J+ s+ V4 @7 ?0 K- s+ i, t    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
9 t9 j" C% x. W% W" q! s        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)
* \: B- `! T% c1 w# p- p        Next
; q- ?2 J  E. d' E! f) I# j2 T
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
* d8 p3 Z3 `; Y2 u, `        theSession.Parts.LoadOptions.UsePartialLoading = False
: W: C1 z& q; u& A2 I
" P" W( N; Q6 h) y* U2 Q        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
8 c0 Q" o& R- `/ [            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
4 d9 ?7 q! T' A/ p
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
" O1 r( j% F6 @" v4 T# o- f8 J
9 Y! X* q/ C! B1 c8 [  y1 w* J        theSession.Parts.LoadOptions.UsePartialLoading = option1

' F3 Y/ E" v$ f- B. R% q    End Sub
! U3 p) v4 f* x1 Y4 A
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
6 b: p$ s9 c! y! [        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

3 ]9 x8 K- C+ h: g" W6 T* P  v- e8 V        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
' {9 N2 c% o3 u5 @8 Q
    End Function

6 n+ n9 i; d4 p: J/ _    Public Sub Main(ByVal args As String())
/ o3 J! _  x$ c9 d/ \        If dispPart IsNot Nothing Then
            DoIt()
            Return
, E9 E9 s1 {) H! [* s' D  Q        End If
* e) b0 a$ G/ V* `5 r
    End Sub
0 c3 A) w' |5 Z7 g4 f
    Sub Echo(ByVal output As String)
) C/ @1 F' [- G# `# p9 D        theSession.ListingWindow.Open()
8 u$ Q. p( l; w* Q8 X9 T        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
, J) D8 Q7 r2 J; A    End Sub

! l( Q# N9 q8 m- k' i; W    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
7 i  v: v9 Z" d: o
0 s4 i1 i& a- ~+ T8 S* U% u  x        Echo("  Load notes:")
5 ^& V: w; [9 b  `2 s& {$ p8 a; Z
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
4 g5 J  v% w% _+ y9 |        Next
    End Sub
  g1 `6 W/ Q" O  z
4 r; @; c, |9 H% y/ Y, e5 e9 L    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
  ^  S! B8 f6 ~$ @, _% W4 N! o    End Function

End Module[/mw_shl_code]