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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
# d4 s  ~$ R. {Imports NXOpen.UF
. Z, i7 a* S1 h; q8 H1 [Imports NXOpen.Utilities
'
' ^2 d8 ^( u# |& v9 M5 U6 W% e3 o' The OpenComponents() parameter
4 R! y) }2 w0 S& Q7 s" c0 i8 S8 H  ^' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' S* d3 ]& B" J- Z5 R' Workaround: collect and open all components individually
* `& [- G0 @1 v1 `6 _'
+ P: Q; m( X) b+ A4 G( a3 ]Module NXJournal
- ?8 Q" w6 y. l  j    Dim theSession As Session = Session.GetSession()
8 g( K% d$ Q0 \1 x. ^9 J    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
  r  \- [6 q4 _, s  U# [4 K
9 J0 T  b) U) d% U. K$ }. a    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
+ p* z/ v$ h3 M; b8 g# v        For ii As Integer = 0 To allComps.Length - 1
- R: {/ Q, O( g* h! ~" u            Echo(allComps(ii).DisplayName)
- z6 o9 h- Y7 G        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
# T9 r9 V' _- P' U        theSession.Parts.LoadOptions.UsePartialLoading = False
9 }# W3 F, v, d% ^3 e1 W* s2 v
6 [  f7 v/ R* a& a3 x        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
( L* n1 I  P: X( Z4 ~
        reportPartLoadStatus(partLoadStatus1)
- V7 M2 F  j" A5 Y; C  R% ~        partLoadStatus1.Dispose()
1 M5 d8 i2 L! M0 c0 Q% j
        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
. c. \4 M1 R& I) k4 s( ~# z5 l) V
( K1 W. P/ q2 [8 z6 c0 s/ _    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
5 j. I/ Y( u. _7 ^        Dim aChildTag As Tag = Tag.Null
# z8 n9 g' h2 f: E) N9 c8 O2 x
% o, |6 y# _' P' x6 u; P+ Y. l        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)
% R8 r7 A" o% _; B, c) }, |& [9 z            theChildren.Add(aChild)
8 r% t1 e8 R7 b" g6 [% S3 t        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
! S& I) @* G  I) ]
  {3 b- D  F0 C6 q7 R8 P5 D    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
) k3 O4 |% x6 _4 P            DoIt()
. X3 ?/ G+ r' T, a            Return
        End If

    End Sub

    Sub Echo(ByVal output As String)
- {* M0 s# }/ T$ q! S  F        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
1 y2 L+ r" h2 m; [) |# c2 `! U! g
- t! J8 r4 I+ q7 }( `; D3 H    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
1 g+ P( j6 p4 _8 F1 w        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
) B) P: o" c' k* F2 e; @& ^1 X/ p! j
        Echo("  Load notes:")
# E; Q4 m8 m& S
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
* V/ q6 `% E) |! d8 o9 a* p" c            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
1 S& e# t5 q% h$ h! |2 ^/ B* _        Next
" c2 X% B0 N% y- P# `! N, {9 w    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
/ _3 `% u$ L9 ?3 p; J4 L    End Function

End Module[/mw_shl_code]