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

admin

[mw_shl_code=csharp,true]Imports System
8 m. }- g" R0 B# f/ {+ OImports NXOpen
Imports NXOpen.UF
! u5 l) l) G4 T+ }& YImports NXOpen.Utilities
8 b9 m: C- k1 b6 e" H: c7 T- @'
( V0 `* {( C( c; b( Y3 v  ?' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
' only opens unloaded components fully (see also PR-8406345)
' Workaround: collect and open all components individually
'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display

, K7 _9 W% G' U* ?    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
        Echo("Number of Components: " & allComps.Length.ToString)
6 R* K5 U& f' P% A: u8 [        For ii As Integer = 0 To allComps.Length - 1
1 m% `2 w: f# Q$ I. e# Y" M2 @            Echo(allComps(ii).DisplayName)
        Next

& m* K! l- z2 Q( J3 j. v9 S        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False
$ n$ w+ R& K# W
1 n& K) U4 H7 r7 W: f' U        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

4 t, ]( z5 q' Z% f2 u! _7 \9 j        reportPartLoadStatus(partLoadStatus1)
/ d% Z" X0 y* n. J        partLoadStatus1.Dispose()
) S0 S  r0 K$ W6 e7 c
! b2 j3 D* ^; S0 b' W# f. F        theSession.Parts.LoadOptions.UsePartialLoading = option1
. R8 u2 A, j: d8 p
    End Sub
: S" e5 x& O. q3 f# J; k  R
2 r# t, F! J" ^3 ?    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
) ~+ z  D! T# B1 W1 n0 D        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
1 k! E7 B" e+ c( j4 {4 r+ ?4 q        Dim aChildTag As Tag = Tag.Null
7 g/ S" v! y; B5 \
        Do
            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
+ Z9 g5 Y2 ]7 ?: k- {: G            If (aChildTag = Tag.Null) Then Exit Do
9 M% A  v' l  \$ E7 Z5 T* w
' A+ q" r$ X2 N" ~8 y% b0 p; Q            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
# E$ e/ }4 b5 q7 e4 u            theChildren.Add(aChild)
! [7 m, e! Q* T# n0 Q        Loop
' g- w: V5 \+ S        Return theChildren.ToArray(GetType(Assemblies.Component))

  n( G9 J$ g9 `% h& |& w    End Function
  c, s9 }/ Z; Y0 d* u
+ N# d- `4 X) T    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
& \9 Q2 g. K0 B" q" o) {* ~8 B            Return
8 s3 c3 ]$ g5 n$ a        End If

  @# o8 I5 Z8 v/ w    End Sub
* p+ @2 ]. z) h# e8 K
    Sub Echo(ByVal output As String)
3 R) O( y- k& B0 ]0 M        theSession.ListingWindow.Open()
! ?" |1 W/ A5 _% ?# c7 i        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
( Z2 V3 R) T5 c- N        End If
0 Z8 N/ U5 ^' a8 L
* N6 P4 ]2 {5 Q5 K$ j: C        Echo("  Load notes:")

7 l, j, d8 L! H+ w) ^) G* `1 i        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
1 H3 |* B" J8 i  r    End Sub

' k' B9 y: I" r9 k0 }1 C  }    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
( z9 b: {# t) b: U) }4 j. G) p    End Function

End Module[/mw_shl_code]
5 A1 M* l2 s1 Z% M! N( h