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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
0 l/ n& H& e% UImports NXOpen.UF
Imports NXOpen.Utilities
, O2 U$ M& @# }4 S'
2 Q! l; L1 l% p+ j8 l8 s; {' The OpenComponents() parameter
7 ~. ?2 y9 K) N' J' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
7 |7 ~6 i2 ~6 K5 a' W0 a! S' Workaround: collect and open all components individually
5 |7 i& g( V+ z8 w6 L( F'
7 z. d0 E  r* P1 z1 [# M: i! hModule NXJournal
8 U4 t7 ?7 k$ ^) w4 F. Z  V    Dim theSession As Session = Session.GetSession()
( a( ^6 Z$ u% \& ]1 M& ^    Dim theUFSession As UFSession = UFSession.GetUFSession()
" r( q) e# N( p    Dim dispPart As Part = theSession.Parts.Display

9 [; G$ v  M) U' i/ _  A  b    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
7 @! o* L  W( ^) W        Echo("Number of Components: " & allComps.Length.ToString)
        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
        Next

3 ?* e& ^& N  {' X) A        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
. l" p/ o4 O3 m: X5 V$ t        theSession.Parts.LoadOptions.UsePartialLoading = False
, a3 W# s2 E& a( U, h1 ]- z* T8 `- m
. O) Z  U# h/ t( i6 Z0 P) x# f        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
: I, `. r: r$ L; v/ y2 f9 ?; w        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
+ Z3 r3 p( a: r$ [        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
1 h( p2 C  n5 p' N3 Y; d            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

3 z# K( c" n5 f        reportPartLoadStatus(partLoadStatus1)
+ V% K, H! G. b" e3 p        partLoadStatus1.Dispose()
; p+ ^8 J, y* H: {2 d
        theSession.Parts.LoadOptions.UsePartialLoading = option1
) r# R! F  }3 {$ K8 i  U! d( J- S' C; G
) {' j$ l& k( \' o    End Sub

" t, S: k1 |( W. x2 H' [8 v8 s: L) Y    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
' L* N( ]3 z3 H+ r$ b, ]/ A        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
" k2 K& _1 u0 O5 |& }$ f+ O8 ?
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
7 w! _" O/ j) |: w. A
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
# M0 F6 D5 f; l! i5 B! {            theChildren.Add(aChild)
3 g3 `" L, O6 v9 f8 R        Loop
        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
3 Y2 n4 x+ D8 o& Z2 G/ ^8 O+ `* |
* o9 I1 L6 R$ ~3 V/ t9 @* ]/ E    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
" T1 u0 m& I" |. i5 B/ y4 x            Return
        End If

$ h" e; H* N$ E    End Sub
' l! d- G: T" d- b% K
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
; ]' O- N0 s! r* L0 T$ m# r  @        theSession.LogFile.WriteLine(output)
( a4 [, T: F4 [- v  o  x    End Sub

7 l5 n6 E8 g$ g  M0 f4 R1 i    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
1 F9 ^6 J- k1 z( I! p$ ~) T" v& ?
3 K/ F1 e! O- a  b6 \  j$ ^        Echo("  Load notes:")
5 @7 G8 \' X; Z$ p' S+ P" S
' T3 r  n8 w2 |9 a5 T% J        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
0 x: S# H$ F# {$ ~, b% R            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
1 t. V* T: T* j1 }        Next
$ a7 A9 o1 G( ~* V6 a% U6 ~0 {& d    End Sub
6 ^! X: F0 I2 \, c, f$ e
6 x; Q2 M+ X% @3 B# P7 r/ P    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

, `7 Q8 D$ y% l2 w& d# @End Module[/mw_shl_code]
- E# S  x/ |/ }. k& p# Y* c: r