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

admin

[mw_shl_code=csharp,true]Imports System
3 S; }1 v6 e( Z6 m9 q0 xImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
% G0 T3 e, W2 I" d3 g% Q( \' only opens unloaded components fully (see also PR-8406345)
" N( u' J  p9 X! Z% |' Workaround: collect and open all components individually
$ N! \" Q- a3 T& p% B'
! T3 ~7 X& h  X; k8 o" oModule NXJournal
' A6 U" z8 b& t# ]0 k* f    Dim theSession As Session = Session.GetSession()
9 \' x1 k9 M! s3 S9 f    Dim theUFSession As UFSession = UFSession.GetUFSession()
4 P2 ?# z' `) c$ N! V/ ^  {3 n    Dim dispPart As Part = theSession.Parts.Display
! q- u. V/ d; r0 g
; ^0 F7 e; k. \( g/ Y    Sub DoIt()
( T3 u; f  W' }; j4 {        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
' o  |6 A+ B9 K0 z5 y1 r" N            Echo(allComps(ii).DisplayName)
        Next

- H0 N) }. a4 g& `9 A        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
: @- L3 d6 a& X2 G% V& u" ^6 C
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
' o0 `' E0 ?0 _6 n4 W        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
# b7 P1 Q9 Z5 t1 y        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
        partLoadStatus1.Dispose()
9 }+ _! I5 N$ O8 ?* e: F) G, k! w
4 O# S8 l) W  D7 U( d+ r        theSession.Parts.LoadOptions.UsePartialLoading = option1
3 f1 I4 R! d- i  A% t# }' Q' a: {
    End Sub

, L. B) g. X( ]7 `: D* Z    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

$ w9 e# C+ X, `  @, _$ i6 L; Y        Do
! D/ z: n2 j; h  d            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
; G5 E/ M4 Z: e1 g2 R            If (aChildTag = Tag.Null) Then Exit Do

            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
' j& J8 ?' a  d: y8 _            theChildren.Add(aChild)
5 @8 y! p: s) y$ L        Loop
* g) n1 y# d' h$ Y, M; |        Return theChildren.ToArray(GetType(Assemblies.Component))
: t7 l) i2 j0 L4 @7 i5 f
    End Function
- G. b4 P, c, ~1 _$ l: q. w9 h
' S) _2 Q" z7 F1 E1 R' \0 _; `    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
; {7 B% R+ w& v            DoIt()
4 U% p' g. @6 y" a; E! W& e4 c9 _$ {            Return
        End If

+ B4 W9 T- J) u# e3 A/ ?7 ?    End Sub
, Y, Y5 `: a: S7 {* z
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
2 o. T7 I0 S5 P, j2 G- z8 C        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
/ G9 Z$ M9 @0 S; a6 m- I4 |; |    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If

        Echo("  Load notes:")
1 K. O! B( J2 J+ }% j  Z' J
9 ^9 }/ r: D2 F% j/ N1 N# i# o        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
) D* M+ y2 X8 S# C            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
$ _% u% g" L+ s8 ^        Next
: a; J1 J( ?9 G9 \% ^5 B    End Sub
+ @! x' h) m8 t* W/ c
    Public Function GetUnloadOption(ByVal arg As String) As Integer
( R. C8 s2 v8 [: q% L/ m! v        Return Session.LibraryUnloadOption.Immediately
    End Function

: l0 D- \) V& }, N) bEnd Module[/mw_shl_code]
1 \; Z. O. J, p5 u