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

admin

[mw_shl_code=csharp,true]Imports System
Imports NXOpen
! o& b$ C+ I7 {- q1 C' L: TImports NXOpen.UF
% B9 ?+ r5 Z/ k3 nImports NXOpen.Utilities
'
' The OpenComponents() parameter
0 _. y2 T" I6 l+ T$ U' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
( y5 n& J7 d) a' only opens unloaded components fully (see also PR-8406345)
) K; `# g1 o, x" @' q' s" x' Workaround: collect and open all components individually
; o: N$ {4 D' N/ ]$ l'
Module NXJournal
' w! r" H: |, I* ]6 _/ x% @# c    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
+ U# H& r- n+ S    Dim dispPart As Part = theSession.Parts.Display
* G# Z, ]$ V/ E; I; N# J) n2 M
4 C5 h7 F! ~; [1 L: Q    Sub DoIt()
' F% b) D( }  {) P        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
" G8 t! E8 `" a. C: A* \1 z        Echo("Number of Components: " & allComps.Length.ToString)
5 u6 C/ B7 v$ {0 D9 v9 L        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
  r  S. C# V$ w( {* K9 w        Next
! H# B& C& T' F; K$ b4 X! t4 l
9 [/ z2 n% G% d        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
        theSession.Parts.LoadOptions.UsePartialLoading = False

9 w+ h4 q0 I# H( N& a+ ?0 ]  m8 B        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
! \: q8 r2 ?& D% i; [: R        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)
4 l# Y* H/ Q  p, Z/ G+ Z% n
        reportPartLoadStatus(partLoadStatus1)
: u8 |1 S% f' i! w9 Q0 g. \        partLoadStatus1.Dispose()
5 ~% d! \: n4 G# d# N6 ]0 o
        theSession.Parts.LoadOptions.UsePartialLoading = option1

+ U7 N; Y- K' s    End Sub
% c. |) t# G0 c4 L  J
    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
        Dim aChildTag As Tag = Tag.Null
6 f8 I# m! c2 w' e  O
3 l0 v/ I$ T5 M5 m1 i% W        Do
) c4 a$ O$ G! ?8 B$ y3 j            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
            If (aChildTag = Tag.Null) Then Exit Do
! E9 m% y. \8 c- o; m9 T
7 V0 s5 t1 b: V$ v) a8 N            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
8 q2 x5 J- _6 {6 X2 @6 H            theChildren.Add(aChild)
  P* G' s' @* |1 D        Loop
! A/ v6 a/ w+ \, i9 v' K        Return theChildren.ToArray(GetType(Assemblies.Component))
5 G' o; T" g5 m, K
7 v3 `6 P  B* b3 N- n* @    End Function

* _' ?$ I( n+ _    Public Sub Main(ByVal args As String())
        If dispPart IsNot Nothing Then
            DoIt()
            Return
  {/ g3 U' j/ w# d        End If

1 C! ~6 l5 F& Q0 Y    End Sub
6 {; _1 l4 B0 @# d
  E( \) B9 M% F+ T' e    Sub Echo(ByVal output As String)
: s7 I0 w& D0 _        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub
% Z" W- L' g, B, y' V8 x
" h% u+ S0 G) t5 H+ [$ w3 r    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
        If load_status.NumberUnloadedParts = 0 Then
            Return
8 a% {( L, o6 Q: H        End If

$ Y) ^! d8 z* e# z2 j        Echo("  Load notes:")
# E1 `+ Y2 Y" n+ a, L% P
7 u* d6 e& m  ~1 d& P& A. \) j- E        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
0 I! ?6 i4 l2 O9 b            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
    End Sub

    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

+ |( J! ^3 o) w: zEnd Module[/mw_shl_code]
& _- `3 p+ M3 L* x6 Z5 L