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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
+ I' I; @; G2 I( j5 w& A7 \Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
+ \2 X4 B* e% K1 v' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
/ h3 B' b5 x' M! N' Workaround: collect and open all components individually
4 x* T7 j: R1 e'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
$ |  y( q) T" k& t    Dim dispPart As Part = theSession.Parts.Display

7 a3 ?- B5 F; l$ G    Sub DoIt()
: ~" k& Q  |0 Y4 H0 o        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
* I- l7 A7 ]( Q        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
0 D, h4 t) q$ b$ J- R& G+ P/ H        theSession.Parts.LoadOptions.UsePartialLoading = False
0 l1 F  P% M  z4 ^" [4 J  P
9 p2 K. T2 }: j( I9 s2 N/ v        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
" i: J4 f. U8 n9 i$ |2 C4 }
4 w; e$ `' t% D! x/ G! k% v        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
, S( f* N, \5 d+ Z" q! z+ H
8 Y# j8 f& X# ^$ X) x% ^        theSession.Parts.LoadOptions.UsePartialLoading = option1
) a6 q. |3 ~: a3 K( M6 t* ^. `
    End Sub

( W* s6 m5 ?" t. V) U$ q" Q    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
) q. ~: b" c! o* ~9 o        Dim aChildTag As Tag = Tag.Null
- w6 c+ I0 P8 X- J& ~' `4 e3 f4 x1 i
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
. P. e1 p, c; B            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
( n$ w) E1 ~7 [% m        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
+ ~' G8 k8 @4 U3 Q+ ]- z' Q
    End Function

, k) U' S$ g/ i9 I* ?    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
; L" k2 `& \$ _5 V* p* Q. r            DoIt()
! b# E4 O. n8 F6 B5 }3 ~% H( n: M            Return
1 J+ c# ~  C. b4 a8 n: K/ i        End If
! o/ [/ I6 {' X  s
    End Sub
1 M% B5 H2 j+ z. V+ n
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
6 T+ j7 P! H: f6 J& r# v2 Y        theSession.ListingWindow.WriteLine(output)
, K% E. @3 S4 I. e& v        theSession.LogFile.WriteLine(output)
+ P$ X: K2 w: g5 {2 m    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
' E4 D7 ]- n' n8 M, J9 R8 h            Return
        End If
5 v; j# w: L  H4 @( k
6 u& K: ~8 u  X  J3 c% `- I        Echo("  Load notes:")

0 `  P4 R, B  q3 N) O        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
  M% z1 q, @3 E$ n+ h- e' R        Next
8 k$ B$ L! R' w2 f0 t    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
4 l5 K" V! d* a5 r0 }    End Function
, ]" x! R8 F* O/ j' V# s1 D# K% r
- e/ S* K% H5 V4 G% x& QEnd Module[/mw_shl_code]