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

admin

[mw_shl_code=csharp,true]Imports System
' ^  i8 ]9 N' c- \4 F' B& @Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.Utilities
. L& S/ r3 u. g$ N# h'
' The OpenComponents() parameter
' NXOpen.Assemblies.ComponentAssembly.OpenOption.WholeAssembly
* N4 v! |. l4 j. B) ^" `' only opens unloaded components fully (see also PR-8406345)
" L) H2 y8 _9 u' Workaround: collect and open all components individually
  O8 |$ b5 i' x2 T1 |'
Module NXJournal
    Dim theSession As Session = Session.GetSession()
    Dim theUFSession As UFSession = UFSession.GetUFSession()
    Dim dispPart As Part = theSession.Parts.Display
9 @5 u! K! e8 O* U5 l+ e6 c
    Sub DoIt()
        Dim allComps() As Assemblies.Component = getAllChildren(dispPart)
: ?  A# U& y3 s$ c# R& x) O6 \        Echo("Number of Components: " & allComps.Length.ToString)
; a6 _: k& G5 a2 Q        For ii As Integer = 0 To allComps.Length - 1
            Echo(allComps(ii).DisplayName)
8 y' K0 H# J8 L* i7 x" Z' |. ^* Q        Next

: L) D' [' |7 v" ^        Dim option1 As Boolean = theSession.Parts.LoadOptions.UsePartialLoading
/ E2 V: D5 ^, O0 M0 A        theSession.Parts.LoadOptions.UsePartialLoading = False

        Dim openStatus1() As NXOpen.Assemblies.ComponentAssembly.OpenComponentStatus
, ?% g' g. s; g) @# |- \; _        Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
: l1 c- F9 }# O  q: M  [3 r        partLoadStatus1 = dispPart.ComponentAssembly.OpenComponents(
            NXOpen.Assemblies.ComponentAssembly.OpenOption.ComponentOnly, allComps, openStatus1)

        reportPartLoadStatus(partLoadStatus1)
% c1 m! l7 K1 o; O# N9 c        partLoadStatus1.Dispose()

( C) l8 C0 S; ^; ^, l- ^% {        theSession.Parts.LoadOptions.UsePartialLoading = option1

    End Sub

    Function getAllChildren(ByVal assy As BasePart) As Assemblies.Component()
        Dim theChildren As Collections.ArrayList = New Collections.ArrayList
. D& l) }) D" `5 z        Dim aChildTag As Tag = Tag.Null
* N5 e0 H0 j  K. o! S/ \' _7 z
        Do
% d2 V/ d. I' g& |: m& ^, g4 y. u6 [            theUFSession.Obj.CycleObjsInPart(assy.Tag, UFConstants.UF_component_type, aChildTag)
+ g1 h5 z6 G- l5 {            If (aChildTag = Tag.Null) Then Exit Do
% V6 j! Y7 s0 U+ d" E5 B; J" m1 E
            Dim aChild As Assemblies.Component = NXObjectManager.Get(aChildTag)
0 o. r3 \4 c  `  _            theChildren.Add(aChild)
        Loop
* R6 v8 K$ T2 M6 z1 \        Return theChildren.ToArray(GetType(Assemblies.Component))

    End Function
' w  }* ?: R" s, i4 ]4 C
& ]( X/ l# k$ J; S9 f6 t    Public Sub Main(ByVal args As String())
  U: l  P; \6 P. u2 _# k        If dispPart IsNot Nothing Then
7 w0 S4 |7 R) O            DoIt()
            Return
        End If

& z" I/ _( ]/ W& M" }' a    End Sub

( a. X6 |' Z9 }    Sub Echo(ByVal output As String)
" M2 c  V( y- _( P6 R        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
/ ?* G1 S3 |5 d8 @/ X" N% D1 B    End Sub

4 B$ v4 z& R" W0 J, }    Sub reportPartLoadStatus(ByVal load_status As PartLoadStatus)
' p9 Z7 E$ m! H        If load_status.NumberUnloadedParts = 0 Then
            Return
2 r' S( [% S5 g# c/ g4 A7 Q        End If
' q2 M7 M: ?$ j) }
        Echo("  Load notes:")
- L# M. D4 A8 T* N1 X7 x1 |* J; C
        For ii As Integer = 0 To load_status.NumberUnloadedParts - 1
            Echo("  " & load_status.GetPartName(ii) & " - " & load_status.GetStatusDescription(ii))
        Next
1 a9 F8 Z. G7 p) @8 m3 s    End Sub
7 T6 ?& ?+ h" T# C" q0 e, u0 o
, R8 ~  x; c7 q- |' W7 W    Public Function GetUnloadOption(ByVal arg As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

+ H" w# G; l1 l' aEnd Module[/mw_shl_code]