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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
( J3 x% B% P8 g& Z  hImports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
! k: g0 G$ N2 o# v" p% v' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
5 a5 S8 S5 g+ r. g3 o3 Y- j% j' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
  V! M% O$ u6 R5 @2 Y    Dim theSession As Session = Session.GetSession()
: [9 a# v! [) T$ [1 ]    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
" t7 S' k% ]$ h! _
5 p+ g0 f7 K: E  I    Sub DoIt()
( [7 q7 _% |+ Y  a! n        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
5 i% d0 Y  k/ r, G6 h            Echo(allComps(ii).DisplayName)
        Next
# @$ {# @# f  G: ?) P1 a: ^
        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
  T$ \2 W! _0 p( C; Q' H% r; N) H4 ^        theSession.Parts.LoadOptions.UsePartialLoading = False

+ p. q! d3 t7 e$ \        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
( k: ~3 q$ a4 D' \            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
' p; C) q, K( W  ~$ E! F
        theSession.Parts.LoadOptions.UsePartialLoading = option1
' N/ b6 e7 c4 D" r) B+ Y1 Z
; p: V4 x# X  G$ n    End Sub
9 E$ U: t* a8 O2 O* U, w9 P5 w
    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)
9 k, V3 o+ u% c  @2 E9 j            If (aChildTag = Tag.Null) Then Exit Do
2 R- K( ^/ u; `( o4 Q
4 [% i: Q' A0 Y. h7 w            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
& u. f. K/ z& h& c2 N$ K        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
% R1 T/ q* W; ^: ]! Q- C$ h
    End Function

7 ?4 R5 @" n1 K- B8 g$ I    Public Sub Main(ByVal args As String())
" H! D9 K2 \. f2 P3 _        If dispPart IsNot Nothing Then
            DoIt()
6 M5 b; f) t) A9 o1 z            Return
        End If

    End Sub
$ Y: e  L  Z7 n5 N# g( C
9 p" i4 Y/ K: s3 [1 M    Sub Echo(ByVal output As String)
7 P0 a. V( n7 `# t# D        theSession.ListingWindow.Open()
! d% c' {3 G* b2 f, I        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

" A+ e, t# j6 L    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
/ K( j+ M/ b- |* }# n        If load_status.NumberUnloadedParts = 0 Then
            Return
* P5 H3 A8 J& _        End If

        Echo("  Load notes:")

! v% D) ^* ]' s; G8 ^        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
% d; B+ y, D0 f8 V. Q    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
7 \+ R6 a, Z" l    End Function

End Module[/mw_shl_code]
+ |; [/ ~0 a8 r+ H6 T* h