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

admin

[mw_shl_code=csharp,true]Imports System
# h8 F  l' H7 c4 C8 i/ |Imports NXOpen
Imports NXOpen.UF
' |2 D' d) r: X+ u# K  [- V4 T3 WImports NXOpen.Utilities
$ ?+ I# j- @6 F. O# b0 b'
( G: o6 g+ ]4 e5 A1 u9 e' The OpenComponents() parameter
) x  J/ ?3 f  _0 M# u- k' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
( Z. r, m/ s% j* h( y3 ['
Module NXJournal
6 x5 c9 Z6 n( a- L3 J    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

1 I; i2 S! l. Q! G% B  ^    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
9 v# _0 g4 w& k* a+ R        Echo("Number of Components: " & allComps.Length.ToString)
3 O- q1 G' L+ v- k; F        For ii As Integer = 0 To allComps.Length - 1
6 Q9 w2 ]$ e; a3 t/ ]% f' f            Echo(allComps(ii).DisplayName)
        Next

' \8 e7 W3 V1 x' r( w        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
' ~6 g; p+ }. F  ~% z( V1 {        theSession.Parts.LoadOptions.UsePartialLoading = False
- V5 e" K7 r7 J: R: v& N
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
3 p$ ]. A9 D% F, S5 \
        reportPartLoadStatus(partLoadStatus1)
' @. [, l% Z$ g9 {' ?- v+ T2 \        partLoadStatus1.Dispose()
; _/ M5 b* h. [3 K
        theSession.Parts.LoadOptions.UsePartialLoading = option1
# q$ f* p7 |" |
/ L% g' H) d; \% q2 s$ J( B5 `& q    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
7 j! |1 ~5 g1 u+ P: i" Y- k8 X        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
, H, ^: [( t/ I3 }        Dim aChildTag As Tag = Tag.Null
9 i6 O$ X9 \8 D: p. E0 W9 m- z3 S& P
( Y; }' G7 n6 m" `! a        Do
0 p3 `' S+ R3 u) g' d+ h2 M            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
  [2 _3 ~# t. H; M            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
. S2 \: f) a0 P. {            theChildren.Add(aChild)
        Loop
: B6 r1 u2 r8 d+ K' d2 z3 F        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function

    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
# `; o* c0 m6 l" i, J8 m2 V            DoIt()
            Return
5 Q$ b+ Y' B, p0 a2 e0 A        End If
2 D" \7 F7 P  G
    End Sub

    Sub Echo(ByVal output As String)
$ W6 n( I+ H6 E. f" u        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
, U5 z4 B  Z2 i  ]( X        theSession.LogFile.WriteLine(output)
    End Sub
' s# U6 Y! K& |+ C
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

$ l9 i1 h2 |. R        Echo("  Load notes:")
, Q4 F' [9 d; W
: Y1 Q0 U( O! v        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
, P$ |( v5 y( B! X        Next
1 b$ q0 e* M( A( I( q6 d    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
0 ~# ?  f8 a& W4 u3 x- H$ z6 ^        Return Session.LibraryUnloadOption.Immediately
% _6 i. f) [' W: {) p/ D* Y9 d    End Function
" A9 c8 l" M& J6 M1 K5 j
End Module[/mw_shl_code]