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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
Imports NXOpen.UF
6 l3 N  U: J% f- E: Q( PImports NXOpen.Utilities
( n2 i2 N' J" o$ O# S+ \8 ~) o  n% b'
& Y2 f: c( h9 z) w! U8 S& h1 i' The OpenComponents() parameter
, W$ G& u& ]6 \+ u' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' o4 s% |6 a8 z* `# L  V- G' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
4 L  j$ o# s3 n( Y% I8 a'
9 L& `( a+ f) {, hModule NXJournal
    Dim theSession As Session = Session.GetSession()
7 A8 e* ]% U4 n+ `    Dim theUFSession As UFSession = UFSession.GetUFSession()
' u* N1 Q1 f  J& b' _$ h    Dim dispPart As Part = theSession.Parts.Display

& |/ V0 b0 i! \0 e- q6 [- r, p    Sub DoIt()
* x7 ~( e& [1 W* M        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
  i( x6 c  b: h0 E% N5 N0 B8 r        Echo("Number of Components: " & allComps.Length.ToString)
& p3 U% G" d9 E2 w6 W        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
2 Z, D0 D$ Q3 @/ w. E        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
4 X$ |) Y) Q) j9 K# V! i) G! ^
" x$ X2 b: n) x7 c* b. V& \        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
& V6 ^' h0 ]. u6 z        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
" h. k+ W& Q$ K9 [  L8 ?8 A            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
6 e7 \# b6 A! h5 I8 d) @# [3 B
        reportPartLoadStatus(partLoadStatus1)
3 ]' O- L0 f, i7 f        partLoadStatus1.Dispose()
- n) G1 ?  u3 _
' Z: j% x6 m3 W( U+ z, L+ S        theSession.Parts.LoadOptions.UsePartialLoading = option1

- e. b$ I+ i9 o0 m1 f/ l    End Sub
* T7 t* B- ~6 \% ~& O! f2 L: z, T" t
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
" T  L" ^# ]- ^, w5 P        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
% R2 c' Q* v: I        Dim aChildTag As Tag = Tag.Null
. p. _/ o1 x; N/ E: h
( L1 r% F5 p4 a  x( h6 y        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
. n% _% }' V/ V9 B
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))
3 p$ Q/ Y. S' t
# Y! c& t* T5 q1 B/ l$ m. m    End Function

    Public Sub Main(ByVal args As String())
: u6 s1 l$ b. r- @        If dispPart IsNot Nothing Then
6 k9 X4 H& T4 A1 U8 ~% z9 ~            DoIt()
            Return
        End If
/ L' O. @1 ]8 u3 W9 {. A7 i4 {
  A6 z+ k  Z, @3 U    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
" E# @1 T% r! `" I  R) L( Q( k        theSession.LogFile.WriteLine(output)
    End Sub
% O$ N& R  y# ~  H  M- S9 d% q/ P/ S0 M
    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
. ]3 M( G( f" C7 k        End If

        Echo("  Load notes:")
2 U* t! L' B% |$ u
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
$ N7 `$ q' P- s1 k( ^  b            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
! ]+ o. P# H7 w" `        Next
    End Sub
% g; T. Y8 Z1 Q
    Public Function GetUnloadOption(ByVal arg As String) As Integer
. ]- ~8 ^& U# ~# ]0 G1 f        Return Session.LibraryUnloadOption.Immediately
8 G( O3 d: w# M6 C/ P* T; n' q    End Function

3 c( @# j3 v; z/ [! p% j3 U9 r9 UEnd Module[/mw_shl_code]
3 L8 Q7 `, D2 W1 M5 I