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

admin

[mw_shl_code=csharp,true]Imports System
9 k1 r& x; ~5 E% CImports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
. J; \: x7 T3 U( g) j- I$ |& K'
: y, j, |1 S/ _5 J0 r# y9 M' The OpenComponents() parameter
4 [8 C' y" `$ P- r7 Q# |' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
5 c% z+ J2 j. r" L( R' only opens unloaded components fully (see also PR-8406345)
7 J# R; u( h( i0 {; c' Workaround: collect and open all components individually
'
. ]: d; E9 M0 |; MModule NXJournal
1 g' C1 Z9 `/ K    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

* s3 ~: |1 ]# t8 U8 ~/ a    Sub DoIt()
' c; t# F# J: z0 i5 p5 S        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
( A$ Q- O( ^0 w1 w& b% ]        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

, J6 a9 D  I. d        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
2 W- k6 U. l) `  U3 H            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
+ h5 c0 h6 O* X
) q/ x. B+ r% F1 w" h        reportPartLoadStatus(partLoadStatus1)
2 v# L- Q, F/ u2 W( n: o9 n. m  e9 W        partLoadStatus1.Dispose()

        theSession.Parts.LoadOptions.UsePartialLoading = option1

7 \$ l; M5 F9 r/ u6 q. K5 A    End Sub
1 |; Y! M* ^1 ~9 }8 M" m' _
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null

4 B$ ^  A/ W1 g6 |* b7 b% c        Do
; j/ l; }8 p9 l( v            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
1 h1 R; e/ d( {$ U) U! o2 p5 H
+ v' x' R( @; e: z$ Z6 C- z: C/ C            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
            theChildren.Add(aChild)
5 a; Q6 G/ c$ T        Loop
# G1 _, v* g9 c6 }, h6 ^% W/ `8 [/ b        Return theChildren.ToArray(GetType(Assemblies.Component))
$ E1 [( L. }2 b# M/ p- F4 S
    End Function
0 T4 {5 N- ~- V
7 G, f! i! [/ q; _, T0 z    Public Sub Main(ByVal args As String())
! ]3 k0 |: d: T$ `0 h3 f' _& A        If dispPart IsNot Nothing Then
* f, K5 X# ?( n: V            DoIt()
/ V/ h1 ~# E: K% v            Return
+ s* B) C1 Z" v8 }5 i5 a( x8 f        End If
2 `2 g# T" ~7 R) W1 \# M
! R8 \+ ^% w$ S    End Sub

    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
1 |- X0 }9 w2 U$ a' q        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
- Y# z$ R/ X1 |& L9 N        If load_status.NumberUnloadedParts = 0 Then
2 z1 ]8 s+ U3 Q            Return
        End If
) |- C( h* B4 Q0 L* _3 k3 t) F
        Echo("  Load notes:")

        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
3 u! v. e+ |; a' D4 _            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
/ a) ?( H8 t- x) h! q6 Z% R        Next
8 V( ~1 F# X  ~/ A    End Sub
* k1 ], O# o4 w
7 @' f% M2 D6 l0 ^  E    Public Function GetUnloadOption(ByVal arg As String) As Integer
/ a# F# y7 h" P6 ]        Return Session.LibraryUnloadOption.Immediately
( q2 q- X" R) ~( m. b. f    End Function

. i% O0 n  W$ a& x; TEnd Module[/mw_shl_code]