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

admin

[mw_shl_code=csharp,true]Imports System
6 U4 @0 S/ E3 X! i& bImports NXOpen
' D3 c+ C* u5 F0 oImports NXOpen.UF
8 w% Z# o9 o! O5 zImports NXOpen.Utilities
6 T% Q3 B; s/ M8 ~3 O, t; `" A$ V'
% c9 Y: p/ t* P. J8 M' y% |' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
5 O# ~; Z3 E+ ?) x3 i' only opens unloaded components fully (see also PR-8406345)
  A7 H" e( _9 j" B7 `% _' L# `' Workaround: collect and open all components individually
'
8 K  }" ]3 q5 nModule NXJournal
( g( o8 ]+ |' C7 w. ]7 d1 f$ B    Dim theSession As Session = Session.GetSession()
  d' [6 e+ L! S    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
4 E: a. v9 M, w# R! K
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
% @5 U8 d" C9 c6 Q- w        Echo("Number of Components: " & allComps.Length.ToString)
. h. P2 D) b6 x0 p- a3 A. _/ ]0 @, d        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

2 d5 E& w) ^4 h% q0 e. c2 X        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
; m  U5 C1 z( g. j2 e. a+ \- ?* r
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
0 u% l5 w9 a) d. O        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
# H  _0 \+ H8 b2 ^        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
% V9 {3 U: ^: g/ _' A: o, z
. h, H! I5 q9 D/ @8 G" r) D- A    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
  J8 b+ T* B7 W2 y        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
7 f# U# K" {  q, o1 r        Dim aChildTag As Tag = Tag.Null

        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
; K. l0 g. O$ n. |' J
- m" q8 q4 o  A; t$ `            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
1 l* L7 {9 n2 |0 l3 I( ~            theChildren.Add(aChild)
        Loop
7 i+ w; J, ^+ K/ Z        Return theChildren.ToArray(GetType(Assemblies.Component))
6 [2 ?9 p. b+ K; I
    End Function
, q" h! O2 q7 O* s5 ^
4 ~( c1 F" F2 C( u    Public Sub Main(ByVal args As String())
0 L* l% W9 w! ~; C        If dispPart IsNot Nothing Then
9 ~  }9 X& c8 s            DoIt()
7 _: N& T' G1 D' u! T/ I            Return
" Y0 M, F  I& o0 N        End If

    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
7 A( _6 ~3 C9 B
" _; M, G1 n  c    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

        Echo("  Load notes:")

- j# m8 _( [9 O        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
9 R9 b5 a8 g3 k* Y/ X2 I4 z- ]9 m9 K            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

1 `# Y# D/ q% C2 o. I$ _    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
; E5 W- h- g! I1 J/ ?    End Function

End Module[/mw_shl_code]
' O* ~' K# Z( \8 ^# a( ?