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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
* R9 N5 a/ J- p0 i1 _. j1 {0 k% V'
! T) o; r7 E- w0 y$ x, b' The OpenComponents() parameter
5 R/ Y3 S( O+ P& i) C! Y: v' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
5 U, z" u: l+ y, l8 K' Workaround: collect and open all components individually
'
7 c7 d' e) t. C8 i& H6 JModule NXJournal
    Dim theSession As Session = Session.GetSession()
! a, }2 F2 x/ x* p    Dim theUFSession As UFSession = UFSession.GetUFSession()
9 z8 x: B/ V) E7 L! ^    Dim dispPart As Part = theSession.Parts.Display
0 j, Y3 S, {8 \; L) v
    Sub DoIt()
) q: p7 T. r8 Z# e4 _% S        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
3 _# T6 D! y' s) Y) i% m4 J1 [        Echo("Number of Components: " & allComps.Length.ToString)
  n" p) g' t. w) Y7 O: H        For ii As Integer = 0 To allComps.Length - 1
0 [( a( @5 [. H# ]: P* w            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
4 x8 }" P0 ~$ `- ]
% }/ E: [' ^' o! h" J' R* f: {        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
' C( T; u- ~, D  f/ ^% i2 `2 F        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
8 f! Y9 W' [' a- a  Q  S            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
0 }4 `( e5 I- p7 }; ~) |3 M
        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
' A" F' g$ @: v
; V( O, G# `: @- g% p. ]& H        theSession.Parts.LoadOptions.UsePartialLoading = option1
! X& Y7 Y) L, }) ^
7 U1 K- I9 T) p* W' e4 X. `" i    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
2 y) r8 e& E; j6 z        Dim aChildTag As Tag = Tag.Null
7 I1 f( t* O6 j( }8 ]* T* n
% ~2 O; W0 c1 Z; R2 O- r/ `        Do
/ e# K1 ?- n5 B$ z; m            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do

" t( d: [6 {" t& V/ a1 i. A$ N! p6 A            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
) f' P/ a2 Q# A- H& H! G2 M( V        Return theChildren.ToArray(GetType(Assemblies.Component))
# j! w# w) y8 C+ |8 w  w
- H+ J6 G! S' _6 m8 f! k" z+ X4 v    End Function
6 ^- R% _" ]9 ]4 J
    Public Sub Main(ByVal args As String())
9 Y- w* J) l8 k* a, G        If dispPart IsNot Nothing Then
$ i8 I* {& c  n( R* N            DoIt()
            Return
! [, V0 g( _, b) q        End If

; _- O. z( I. _* E4 S' t    End Sub
8 n& S1 V  H. j
    Sub Echo(ByVal output As String)
5 N. ]8 D" b3 l; t2 w/ w9 {) P  x$ C        theSession.ListingWindow.Open()
3 G% P  u% D7 W- D+ ?        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
/ Q8 ?& i; z6 A9 B/ Z+ z    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
1 l, d8 s( M! Z9 ?% _7 h        If load_status.NumberUnloadedParts = 0 Then
$ \5 @$ _5 l1 p5 L7 G7 ?            Return
        End If
' `3 N* T& \: U$ L, Z
" R; j4 b7 K& ]& x0 q5 @        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
2 B* m# s' v/ Z1 e: N5 E        Next
8 |5 [5 e3 G6 Z* H    End Sub
3 \8 C9 S7 T! l' v) e/ q9 C
0 H$ x! d& u3 F7 y6 g0 S3 \    Public Function GetUnloadOption(ByVal arg As String) As Integer
  o7 q% P) z4 C/ M8 e1 {# C        Return Session.LibraryUnloadOption.Immediately
8 I6 ^+ n1 G  ~0 F  f1 H: i0 F3 M8 q    End Function

6 V2 Z& |; P' b8 P: O7 yEnd Module[/mw_shl_code]