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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
1 H+ z9 A/ d' d3 ]Imports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
+ m  [, r; d2 h, I' Workaround: collect and open all components individually
1 K& {  r/ i7 Q( D, u'
6 y7 V2 l# D" V% q* J* t# c% oModule NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

5 r* S! f0 u3 ]( C+ i/ l, t! v    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)
; B# i, z+ t3 Q8 y        Next

# G( E* R3 {1 I/ J% J        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
  w+ S' R) H, V& R' N+ t$ ~+ u        theSession.Parts.LoadOptions.UsePartialLoading = False
1 w* e" ^1 P4 C  `
4 F' k5 u- f% ^( r! ?( G        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
6 d2 v) `; ?' p! b/ P        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
% P/ _! z' `  n9 ]( ]            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
* r3 w/ r, B! d1 M5 g6 e! Q  ?0 }
3 ]  X! r5 `4 o3 C! O3 Q        theSession.Parts.LoadOptions.UsePartialLoading = option1
4 H4 s9 f1 X: L% y) X
- ^( R" d# F7 A3 y3 R    End Sub
* |  A: [8 n0 W$ V8 Y4 {4 f
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
9 J% l+ d, f. V8 q+ p; N, X        Dim aChildTag As Tag = Tag.Null
2 d: K  t' ]8 H4 H& V7 ?- `* ?
3 a. q, ?9 p* [. Y4 \        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
, a. B3 ]4 O' g5 V& `
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
6 `1 Z$ K# M& a3 m; X        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
4 B5 Y: Q" D! Q1 b+ ~
    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
: _; |* @/ V. C# u3 c            Return
5 x" c' e/ d* n7 r1 }" c        End If

    End Sub
- c  z2 H2 D% B% h5 b
    Sub Echo(ByVal output As String)
0 N4 P0 `8 P, p4 Y5 I! b        theSession.ListingWindow.Open()
1 T3 h! U5 U3 |+ L& v# v        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
& M8 m; B4 M# h% U' s3 {8 l5 `
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
* K" `: t5 O; u, A) y        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
" Y3 z* |+ x4 j7 U  z1 I( X
3 x# I: M: r* |3 \        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
/ `! `1 v( A4 \! R3 d            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub
9 I8 W% M$ V% }" N. q5 D. k
    Public Function GetUnloadOption(ByVal arg As String) As Integer
* ]% h# a# P1 Q% L. |8 U# f& J% \        Return Session.LibraryUnloadOption.Immediately
    End Function

3 V! V! T! g0 H2 [: n+ vEnd Module[/mw_shl_code]
" k; D+ L3 b. g% k7 Q1 p7 }