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

admin

[mw_shl_code=csharp,true]Imports System
0 g0 ~% }- A7 P3 g. Q& h3 \Imports NXOpen
Imports NXOpen.UF
/ j. H1 D! a, q9 V  vImports NXOpen.Utilities
'
8 V+ W( K6 t% u( o( V& a" }' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
9 f. A$ J3 C0 V4 i' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
' f* S  u  V' C. n* }; _! h9 C    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
        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)
) w# o* n3 V2 f        Next

6 m( U4 y  z; t4 o4 [, D, v        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
, m, U8 g+ E/ @4 d% V! X, F; y        theSession.Parts.LoadOptions.UsePartialLoading = False

& v3 w; q% x" n$ f5 B: b        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
) {' E  E" j/ n# f) h5 m/ ]            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
& J$ f# z6 u+ \' k1 V
. _9 ?. u: P( u- G2 y. v        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()

6 x* D% M0 `+ Q        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

: D/ |$ p/ D: ^- a, S    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
6 `( l2 R7 t$ p% V% t9 H
1 |( _5 u+ E# Z! m9 }0 w        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
: G8 |5 \2 O4 h% B4 x( J, i& P            If (aChildTag = Tag.Null) Then Exit Do

+ U2 y! o$ x9 o( Q1 Z  s6 H            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

7 Q, L2 ?. }- _. i5 M+ q    End Function
: f( D8 }% A5 ]) U9 y7 j1 C6 X( d
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
, L! P+ J5 k+ ?) P3 c7 _: @. Q8 F
    End Sub

2 \( H. {& Y0 M  J7 O    Sub Echo(ByVal output As String)
9 D' R+ z) r5 K4 q: V- |        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
6 r6 G9 i7 f9 O; U* D' Z    End Sub

" k- F! g# L! [    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
4 T# M2 `6 Z: p; y; o# a1 s, R, \( Z        If load_status.NumberUnloadedParts = 0 Then
9 t; ]+ Y1 N4 z' v            Return
  o) m. W( D; i        End If
( D. m: u; Y* u) e! ]1 w
        Echo("  Load notes:")
* Z% e" G3 U7 L1 }
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
2 O% |: B. q! H3 P        Next
    End Sub
: I, y5 X2 W# x" b# o! u
    Public Function GetUnloadOption(ByVal arg As String) As Integer
- m4 o0 {$ H) ?& m. I' k# i* H3 R        Return Session.LibraryUnloadOption.Immediately
    End Function

* m' h$ T8 v/ o( U% n5 vEnd Module[/mw_shl_code]