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

admin

[mw_shl_code=csharp,true]Imports System
/ e, l; [$ C0 k5 O* @1 }Imports NXOpen
Imports NXOpen.UF
, X7 M+ @! w' A5 \" |Imports NXOpen.Utilities
'
' The OpenComponents() parameter
3 T2 e0 j, [' M3 q' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
2 i1 ~- t/ W. \# s( X9 S' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
1 Z2 n: [" q' R* V& m3 s$ YModule NXJournal
    Dim theSession As Session = Session.GetSession()
; x6 o& ^  l& r    Dim theUFSession As UFSession = UFSession.GetUFSession()
9 \3 A0 ~2 N8 Z  ^6 M    Dim dispPart As Part = theSession.Parts.Display

    Sub DoIt()
" p/ T; x* ?! Q0 c0 H7 @1 ~        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
- p: T- S& h4 A0 r7 b        For ii As Integer = 0 To allComps.Length - 1
+ m: \  v  a$ g$ R/ s! w1 h! c            Echo(allComps(ii).DisplayName)
$ }& X& a6 W. p' b# Q        Next
* U7 u# j% c! S
  S; s; |# U, q3 M        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
  M' y# ^  _8 p5 }2 g        theSession.Parts.LoadOptions.UsePartialLoading = False
2 A* {5 d) U4 \  ~! o3 p5 m
        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
  s- c2 r( O- j( @% J+ l        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
5 L9 F' B# J0 |        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
5 b$ z5 l- G4 o& Z
        reportPartLoadStatus(partLoadStatus1)
2 J0 k9 J9 ^; v' r        partLoadStatus1.Dispose()
. N# y+ c8 N. Q+ R; r
* f: }! O, X. ^" o        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub
/ d8 {! x+ D" ?9 Y+ _; g$ D& |: \
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
3 `7 M0 @/ q2 n5 L& u2 E, S$ I8 j# b        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
3 R" f/ }# U% u$ {9 |( {$ B
- @: R  [; R) P- G( x3 ?9 y7 {$ E        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
- ]  F  O2 A" F" G& X$ f4 Y/ V" }            If (aChildTag = Tag.Null) Then Exit Do

$ ^: _! h5 H6 P7 {3 z$ g: N" F            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
, I' J' s; d1 W( t: |            theChildren.Add(aChild)
+ P. ~1 k+ w4 ?. T        Loop
+ g3 H% W3 A7 ?        Return theChildren.ToArray(GetType(Assemblies.Component))
7 o4 C+ P9 c% V( R/ ]# e: M3 J
    End Function
( w/ [+ E& F7 S' q, ~% w
- Z. L, `1 D  E+ z6 L, t    Public Sub Main(ByVal args As String())
0 [) r8 }% J8 {$ T5 v3 w! x        If dispPart IsNot Nothing Then
            DoIt()
            Return
        End If
- F: k' c5 h+ A0 G
' Q0 a) ^/ s) f4 ^4 v    End Sub

    Sub Echo(ByVal output As String)
( ~, V% R9 }3 `* E2 S        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
5 n( [3 A5 D. ]) J& [+ r, ?    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
        End If
+ X3 j4 o; i8 L* k
        Echo("  Load notes:")
" F/ w. r' e0 ^/ o* k0 J
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
+ A% W) [: l. ~            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
. H( q7 P3 R* j, T1 k9 U! d  J        Next
- K; ?& B3 @9 |; o; K; r) y    End Sub
( [: y! h0 z2 Q% L' s7 {' _! _
    Public Function GetUnloadOption(ByVal arg As String) As Integer
: v7 L  {1 `: J) I        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]
, Q" S+ A) y% L" C